1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
######################################################################
# Test suite for Net::SSH::AuthorizedKeysFile
# by Mike Schilli <m@perlmeister.com>
######################################################################
use warnings;
use strict;
use File::Temp qw(tempfile);
use File::Copy;
#use Log::Log4perl qw(:easy);
#Log::Log4perl->easy_init($DEBUG);
use Test::More tests => 17;
BEGIN { use_ok('Net::SSH::AuthorizedKeysFile') };
my $tdir = "t";
$tdir = "../t" unless -d $tdir;
my $cdir = "$tdir/canned";
use Net::SSH::AuthorizedKeysFile;
my $ak = Net::SSH::AuthorizedKeysFile->new(file => "$cdir/ak-manpage.txt");
$ak->read();
my @keys = $ak->keys();
is($keys[0]->email(), 'user@example.net', "email");
is($keys[1]->option('from'),
'*.sales.example.net,!pc.sales.example.net', "from with comma");
is($keys[1]->option('From'),
'*.sales.example.net,!pc.sales.example.net', "from case insensitive");
is($keys[1]->email(), 'john@example.net', "comment");
#command="dump /home",no-pty,no-port-forwarding ssh-dss AAAAC3...51R== example.net
is($keys[2]->option('command'), 'dump /home', "options including blank");
is($keys[2]->option('no-pty'), 1, "no-pty option set");
is($keys[2]->option('no-port-forwarding'), 1, "no-pty option set");
is($keys[2]->encryption(), "ssh-dss", "encryption");
is($keys[2]->email(), 'example.net', "email");
#permitopen="192.0.2.1:80",permitopen="192.0.2.2:25" ssh-dss AAAAB5...21S==
is($keys[3]->option('permitopen')->[0], "192.0.2.1:80", "option array");
is($keys[3]->option('permitopen')->[1], "192.0.2.2:25", "option array");
#tunnel="0",command="sh /etc/netstart tun0" ssh-rsa AAAA...== jane@example.net
is($keys[4]->option('command'), "sh /etc/netstart tun0", "command with blanks");
is($keys[4]->email(), 'jane@example.net', "comment");
# Modifications
my($fh, $filename) = tempfile();
# Modify a authkey file
copy "$cdir/ak-manpage.txt", $filename;
my $ak2 = Net::SSH::AuthorizedKeysFile->new(file => $filename);
$ak2->read();
@keys = $ak2->keys();
# Write option containing blank
$keys[4]->option('command', "waah waah waah");
$ak2->save();
# Read in modifications
my $ak3 = Net::SSH::AuthorizedKeysFile->new(file => $filename);
$ak3->read();
@keys = $ak3->keys();
is($keys[4]->option("command"), 'waah waah waah',
"read back option with blanks");
# Comments with blanks
$ak = Net::SSH::AuthorizedKeysFile->new(file => "$cdir/ak-comments.txt");
$ak->read();
@keys = $ak->keys();
# Write option containing blank
is($keys[1]->comment(),
'Quack Schmack quack@schmack.com', "comments with blanks");
is($keys[2]->comment(),
'Quack Schmack, quack@schmack.com', "comments with commas");
|
