in reply to Re^5: SSH2 for windows
in thread SSH2 for windows

Hi shanthiann,

Select host [ENTER to skip]: localhost

What happens if, instead of "localhost", you enter the secure shell server that you're trying to connect to (ie the "$hostname" in your script) ?

Cheers,
Rob

Replies are listed 'Best First'.
Re^7: SSH2 for windows
by shanthiann (Acolyte) on Dec 07, 2006 at 05:35 UTC
    Dear Rob,

    Now it ran upto 22 test, after giving a secure host ip.
    1..72
ok 1 - use Net::SSH2;
ok 2 - new session isa Net::SSH2
ok 3 - error state clear
ok 4 - set banner
ok 5 - LIBSSH2_* constants
ok 6 - libSSH2 version 0.14 > 0.11
ok 7 - list version match
ok 8 - API date yyyymmddhhmm
ok 9 - banner is SSH-2.0-libssh2_0.14
ok 10 - poll indefinite
ok 11 - poll 1/4 second

To test the connection capabilities of Net::SSH2, we need a test site 
+running
a secure shell server daemon.  Enter 'localhost' to use this host.

Select host [ENTER to skip]: 10.123.3.9

ok 12 - connect to 10.123.3.9
ok 13 - kex method: diffie-hellman-group-exchange-sha1
ok 14 - hostkey method: ssh-rsa
ok 15 - crypt_cs method: aes256-cbc
ok 16 - crypt_sc method: aes256-cbc
ok 17 - mac_cs method: hmac-sha1
ok 18 - mac_sc method: hmac-sha1
ok 19 - comp_cs method: none
ok 20 - comp_sc method: none
ok 21 - have MD5 hostkey hash
ok 22 - have SHA1 hostkey hash
The getpwuid function is unimplemented at 1 line 73, <STDIN> line 1.
# Looks like you planned 72 tests but only ran 22.
# Looks like your test died just after 22.

    [download]


    Please advice
[reply]
[d/l]
[reply]
      The getpwuid function is unimplemented at 1 line 73, <STDIN> line 1.

      You should submit a bug report to http://rt.cpan.org/Public/Dist/Display.html?Name=Net-SSH2. Test scripts should be portable- the author is probably unaware that his test script is not portable.

      As Anonymous Monk suggested, I think it is worth the effort of hacking the test script with a workaround (if possible) so that the remaining tests can be run.

      Is there anything in the test script's code that helps you with the code you're trying to write ? I've often found that test scripts provide useful examples of how to code correctly.

      Cheers,
      Rob
[reply]
[d/l]
        Dear Rob,

        I worked around the test script and applied the required input directly into the script. Now it has ran all 72 test, But 4 tests were failed.
        Could you please let me know what would be the cause. 
        1..72
ok 1 - use Net::SSH2;
ok 2 - new session isa Net::SSH2
ok 3 - error state clear
ok 4 - set banner
ok 5 - LIBSSH2_* constants
ok 6 - libSSH2 version 0.14 > 0.11
ok 7 - list version match
ok 8 - API date yyyymmddhhmm
ok 9 - banner is SSH-2.0-libssh2_0.14
ok 10 - poll indefinite
ok 11 - poll 1/4 second
ok 12 - connect to 10.12.3.9
ok 13 - kex method: diffie-hellman-group-exchange-sha1
ok 14 - hostkey method: ssh-rsa
ok 15 - crypt_cs method: aes256-cbc
ok 16 - crypt_sc method: aes256-cbc
ok 17 - mac_cs method: hmac-sha1
ok 18 - mac_sc method: hmac-sha1
ok 19 - comp_cs method: none
ok 20 - comp_sc method: none
ok 21 - have MD5 hostkey hash
ok 22 - have SHA1 hostkey hash
ok 23 - authenticate: publickey,password,keyboard-interactive
ok 24 - list matches comma-separated
ok 25 - not authenticated yet
ok 26 - authenticated via: password
ok 27 - authenticated successfully
ok 28 - new channel isa Net::SSH2::Channel
ok 29 - set blocking
ok 30 - not at EOF
ok 31 - normal extended data handling
ok 32 - merge extended data
ok 33 - empty setenv
ok 34 - set environment variables
ok 35 - verify session
ok 36 - set disconnect callback
ok 37 - SFTP session isa Net::SSH2::SFTP
ok 38 - verify session
ok 39 - create directory net_ssh2_2096
ok 40 - stat directory
ok 41 - type is directory
ok 42 - directory name matches
ok 43 - put test.pl to remote
ok 44 # skip - IO::Scalar required
ok 45 # skip - IO::Scalar required
ok 46 - unlink non-existant file fails
ok 47 - got LIBSSH2_FX_NO_SUCH_FILE error
ok 48 - rename net_ssh2_2096/test.pl -> net_ssh2_2096/test.pl.renamed
ok 49 - stat net_ssh2_2096/test.pl.renamed
ok 50 - stat filename matches
ok 51 - stat filesize matches
ok 52 - opened file isa Net::SSH2::File
ok 53 - compare stat and fstat
ok 54 - compare fstat % and %$
ok 55 - opened directory isa Net::SSH2::Dir
ok 56 - found net_ssh2_2096/test.pl.renamed
ok 57 - opened file isa Net::SSH2::File
'ot ok 58 - read '\# THIS LINE WILL BE READ BY A TEST BELOW
''  Failed test 'read '\# THIS LINE WILL BE READ BY A TEST BELOW
#   in test.pl at line 184.
'          got: '# THIS LINE WILL BE READ BY A TEST BELOW
#     expected: '# THIS LINE WILL BE READ BY A TEST BELOW'
ok 59 - unlink net_ssh2_2096/test.pl.renamed
ok 60 - remove directory net_ssh2_2096
ok 61 - close SFTP session
ok 62 - exec 'ls -d /'
not ok 63 - got poll response
#   Failed test 'got poll response'
#   in test.pl at line 196.
not ok 64 - got input event
#   Failed test 'got input event'
#   in test.pl at line 197.
not ok 65 - got result '/'
#   Failed test 'got result '/''
#   in test.pl at line 199.
#          got: undef
#     expected: '/'
ok 66 - no more lines
ok 67 # skip  - public key infrastructure not present
ok 68 # skip  - public key infrastructure not present
ok 69 # skip  - public key infrastructure not present
ok 70 # skip  - public key infrastructure not present
ok 71 - close channel
ok 72 - sent disconnect message
# Looks like you failed 4 tests of 72.

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom