Commit | Line | Data |
f92f3fcb |
1 | #!./perl -w |
2 | |
3 | BEGIN { |
4 | package Foo; |
5 | |
6 | use IO::File; |
7 | use Net::Cmd; |
8 | @ISA = qw(Net::Cmd IO::File); |
9 | |
10 | sub timeout { 0 } |
11 | |
12 | sub new { |
13 | my $fh = shift->new_tmpfile; |
14 | binmode($fh); |
15 | $fh; |
16 | } |
17 | |
18 | sub output { |
19 | my $self = shift; |
20 | seek($self,0,0); |
21 | local $/ = undef; |
22 | scalar(<$self>); |
23 | } |
24 | |
25 | sub response { |
26 | return Net::Cmd::CMD_OK; |
27 | } |
28 | } |
29 | |
30 | (my $libnet_t = __FILE__) =~ s/datasend.t/libnet_t.pl/; |
31 | require $libnet_t or die; |
32 | |
9714c667 |
33 | print "1..51\n"; |
f92f3fcb |
34 | |
35 | sub check { |
36 | my $expect = pop; |
37 | my $cmd = Foo->new; |
9714c667 |
38 | ok($cmd->datasend, 'datasend') unless @_; |
f92f3fcb |
39 | foreach my $line (@_) { |
9714c667 |
40 | ok($cmd->datasend($line), 'datasend'); |
f92f3fcb |
41 | } |
9714c667 |
42 | ok($cmd->dataend, 'dataend'); |
43 | is( |
44 | unpack("H*",$cmd->output), |
45 | unpack("H*",$expect) |
46 | ); |
f92f3fcb |
47 | } |
48 | |
49 | my $cmd; |
50 | |
51 | check( |
52 | # nothing |
53 | |
54 | ".\015\012" |
55 | ); |
56 | |
57 | check( |
58 | "a", |
59 | |
60 | "a\015\012.\015\012", |
61 | ); |
62 | |
63 | check( |
64 | "a\r", |
65 | |
66 | "a\015\015\012.\015\012", |
67 | ); |
68 | |
69 | check( |
70 | "a\rb", |
71 | |
72 | "a\015b\015\012.\015\012", |
73 | ); |
74 | |
75 | check( |
76 | "a\rb\n", |
77 | |
78 | "a\015b\015\012.\015\012", |
79 | ); |
80 | |
81 | check( |
82 | "a\rb\n\n", |
83 | |
84 | "a\015b\015\012\015\012.\015\012", |
85 | ); |
86 | |
87 | check( |
88 | "a\r", |
89 | "\nb", |
90 | |
91 | "a\015\012b\015\012.\015\012", |
92 | ); |
93 | |
94 | check( |
95 | "a\r", |
96 | "\nb\n", |
97 | |
98 | "a\015\012b\015\012.\015\012", |
99 | ); |
100 | |
101 | check( |
102 | "a\r", |
103 | "\nb\r\n", |
104 | |
105 | "a\015\012b\015\012.\015\012", |
106 | ); |
107 | |
108 | check( |
109 | "a\r", |
110 | "\nb\r\n\n", |
111 | |
112 | "a\015\012b\015\012\015\012.\015\012", |
113 | ); |
114 | |
115 | check( |
116 | "a\n.b\n", |
117 | |
118 | "a\015\012..b\015\012.\015\012", |
119 | ); |
120 | |
121 | check( |
122 | ".a\n.b\n", |
123 | |
124 | "..a\015\012..b\015\012.\015\012", |
125 | ); |
126 | |
127 | check( |
128 | ".a\n", |
129 | ".b\n", |
130 | |
131 | "..a\015\012..b\015\012.\015\012", |
132 | ); |
133 | |
134 | check( |
135 | ".a", |
136 | ".b\n", |
137 | |
138 | "..a.b\015\012.\015\012", |
139 | ); |
140 | |
141 | check( |
142 | "a\n.", |
143 | |
144 | "a\015\012..\015\012.\015\012", |
145 | ); |
146 | |