1###################################################################### 2# Test suite for Net::SSH::AuthorizedKeysFile 3# by Mike Schilli <m@perlmeister.com> 4###################################################################### 5 6use warnings; 7use strict; 8 9use Log::Log4perl qw(:easy); 10#Log::Log4perl->easy_init($DEBUG); 11 12use Test::More tests => 3; 13BEGIN { use_ok('Net::SSH::AuthorizedKeysFile') }; 14 15my $tdir = "t"; 16$tdir = "../t" unless -d $tdir; 17my $cdir = "$tdir/canned"; 18 19use Net::SSH::AuthorizedKeysFile; 20 21my $ak = Net::SSH::AuthorizedKeysFile->new(file => "$cdir/pk-ssh2.txt"); 22$ak->read(); 23 24my @keys = $ak->keys(); 25is((scalar @keys), 0, "no keys found"); 26 27$ak = Net::SSH::AuthorizedKeysFile->new(file => "$cdir/pk-empty.txt"); 28$ak->read(); 29@keys = $ak->keys(); 30is((scalar @keys), 0, "no keys found"); 31