diff options
-rw-r--r-- | t/datasend.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/datasend.t b/t/datasend.t index 5c785ba..0786709 100644 --- a/t/datasend.t +++ b/t/datasend.t @@ -30,16 +30,16 @@ BEGIN { (my $libnet_t = __FILE__) =~ s/datasend.t/libnet_t.pl/; require $libnet_t or die; -print "1..15\n"; +print "1..51\n"; sub check { my $expect = pop; my $cmd = Foo->new; - $cmd->datasend unless @_; + ok($cmd->datasend, 'datasend') unless @_; foreach my $line (@_) { - $cmd->datasend($line); + ok($cmd->datasend($line), 'datasend'); } - $cmd->dataend; + ok($cmd->dataend, 'dataend'); is( unpack("H*",$cmd->output), unpack("H*",$expect) |