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