8 @ISA = qw(Net::Cmd IO::File);
13 my $fh = shift->new_tmpfile;
26 return Net::Cmd::CMD_OK;
30 (my $libnet_t = __FILE__) =~ s/datasend.t/libnet_t.pl/;
31 require $libnet_t or die;
38 $cmd->datasend unless @_;
39 foreach my $line (@_) {
40 $cmd->datasend($line);
43 is($cmd->output, $expect);
63 "a\015\015\012.\015\012",
69 "a\015b\015\012.\015\012",
75 "a\015b\015\012.\015\012",
81 "a\015b\015\012\015\012.\015\012",
88 "a\015\012b\015\012.\015\012",
95 "a\015\012b\015\012.\015\012",
102 "a\015\012b\015\012.\015\012",
109 "a\015\012b\015\012\015\012.\015\012",
115 "a\015\012..b\015\012.\015\012",
121 "..a\015\012..b\015\012.\015\012",
128 "..a\015\012..b\015\012.\015\012",
135 "..a.b\015\012.\015\012",
141 "a\015\012..\015\012.\015\012",