diff options
| author | Jesse Luehrs <doy@tozt.net> | 2010-04-18 17:20:06 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2010-04-18 17:20:06 -0500 |
| commit | c2340699c7caea722dd43210cd8bca5fcea22a00 (patch) | |
| tree | 53e77c717d1a5b94ad8cb1369f60e8ea88057f96 /t | |
| parent | 0f592e5cc31a442e282c29352082b0478c8878ab (diff) | |
| download | app-termcast-c2340699c7caea722dd43210cd8bca5fcea22a00.tar.gz app-termcast-c2340699c7caea722dd43210cd8bca5fcea22a00.zip | |
stop using extra_argv directly, pass command to run to the run method
Diffstat (limited to 't')
| -rw-r--r-- | t/001-basic.t | 5 | ||||
| -rw-r--r-- | t/002-read-write.t | 5 |
2 files changed, 4 insertions, 6 deletions
diff --git a/t/001-basic.t b/t/001-basic.t index 6ec549d..7dd9a7e 100644 --- a/t/001-basic.t +++ b/t/001-basic.t @@ -16,9 +16,8 @@ test_tcp( my $client_script = <<EOF; use App::Termcast; my \$tc = App::Termcast->new(host => '127.0.0.1', port => $port, - user => 'test', password => 'tset', - extra_argv => ['$^X', "-e", "print 'foo'"]); - \$tc->run; + user => 'test', password => 'tset'); + \$tc->run('$^X', "-e", "print 'foo'"); EOF my $pty = IO::Pty::Easy->new; $pty->spawn("$^X", "-e", $client_script); diff --git a/t/002-read-write.t b/t/002-read-write.t index 153f8c6..a03effb 100644 --- a/t/002-read-write.t +++ b/t/002-read-write.t @@ -17,9 +17,8 @@ test_tcp( use App::Termcast; my \$tc = App::Termcast->new( host => '127.0.0.1', port => $port, - user => 'test', password => 'tset', - extra_argv => ['$^X', "-e", "while (<>) { last if /\\\\./; print }"]); - \$tc->run; + user => 'test', password => 'tset'); + \$tc->run('$^X', "-e", "while (<>) { last if /\\\\./; print }"); EOF my $pty = IO::Pty::Easy->new; $pty->spawn("$^X", "-e", $client_script); |