1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
use strict;
use Test::More tests => 20;
BEGIN{ use_ok('Net::SCP::Expect') }
my $scp = Net::SCP::Expect->new(
user => "some_user",
host => "ssh.rubynet.org",
password => "blah",
);
is("ssh.rubynet.org",$scp->_get("host"),"host attribute");
is("some_user",$scp->_get("user"),"user attribute");
is("blah",$scp->_get("password"),"password attribute");
is(undef,$scp->_get("cipher"),"cipher attribute");
is(undef,$scp->_get("port"),"port attribute");
is(undef,$scp->_get("error_handler"),"error_handler attribute");
is(0,$scp->_get("preserve"),"preserve attribute");
is(0,$scp->_get("recursive"),"recursive attribute");
is(0,$scp->_get("verbose"),"verbose attribute");
is(0,$scp->_get("auto_yes"),"auto_yes attribute");
is(10,$scp->_get("timeout"),"timeout attribute");
is(1,$scp->_get("timeout_auto"),"timeout_auto attribute");
is(undef,$scp->_get("timeout_err"),"timeout_err attribute");
is(0,$scp->_get("no_check"),"no_check attribute");
is(undef,$scp->_get("protocol"),"protocol");
is("\n",$scp->_get("terminator"),"terminator");
is(undef,$scp->_get("subsystem"),"subsystem attribute");
is(undef,$scp->_get("option"),"option attribute");
is(undef,$scp->_get("identity_file"),"identity_file attribute");
|
