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