1# 2# Test cases for ssh1 keys 3# 4use Net::SSH::AuthorizedKey; 5use Net::SSH::AuthorizedKey::SSH1; 6use Test::More; 7use Log::Log4perl qw(:easy); 8 9# Log::Log4perl->easy_init($DEBUG); 10 11plan tests => 12; 12 13my $t1key = " 1042 17 123123123"; 14 15 # direct 16my $pk = Net::SSH::AuthorizedKey::SSH1->parse($t1key); 17 18is($pk->keylen(), "1042", "keylen"); 19is($pk->key(), "123123123", "key"); 20is($pk->exponent(), "17", "exponent"); 21is($pk->email(), "", "email"); 22is($pk->type(), "ssh-1", "type"); 23ok($pk->sanity_check(), "sanity check"); 24 25 # generic 26$pk = Net::SSH::AuthorizedKey->parse($t1key); 27 28is($pk->keylen(), "1042", "keylen"); 29is($pk->key(), "123123123", "key"); 30is($pk->exponent(), "17", "exponent"); 31is($pk->email(), "", "email"); 32is($pk->type(), "ssh-1", "type"); 33ok($pk->sanity_check(), "sanity check"); 34