aboutsummaryrefslogtreecommitdiff
path: root/t/02prog.t
diff options
context:
space:
mode:
Diffstat (limited to 't/02prog.t')
-rw-r--r--t/02prog.t29
1 files changed, 29 insertions, 0 deletions
diff --git a/t/02prog.t b/t/02prog.t
new file mode 100644
index 0000000..9cef1e4
--- /dev/null
+++ b/t/02prog.t
@@ -0,0 +1,29 @@
+# -*- perl -*-
+use lib 't';
+
+use strict;
+use warnings;
+use Test::More tests => 6;
+use POSIX::Run::Capture;
+
+my $obj = new POSIX::Run::Capture;
+
+# Initial prog is undefined
+is($obj->program, undef);
+
+# Set program
+$obj->set_program('ls');
+is($obj->program, 'ls');
+
+# Unset program
+$obj->set_program(undef);
+is($obj->program, undef);
+
+# Set argv array. Now, program is argv[0].
+$obj->set_argv('dir');
+is($obj->program, 'dir');
+
+# Set it explicitly
+$obj->set_program('ls');
+is($obj->program, 'ls');
+is($obj->argv->[0], 'dir');

Return to:

Send suggestions and report system problems to the System administrator.