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