1# Before `make install' is performed this script should be runnable with 2# `make test'. After `make install' it should work as `perl test.pl' 3 4######################### We start with some black magic to print on failure. 5 6# Change 1..1 below to 1..last_test_to_print . 7# (It may become useful if the test is moved to ./t subdirectory.) 8 9BEGIN { $| = 1; print "1..1\n"; } 10END {print "not ok 1\n" unless $loaded;} 11use Cflow; 12$loaded = 1; 13print "ok 1\n"; 14 15######################### End of black magic. 16 17# Insert your test code below (better if it prints "ok 13" 18# (correspondingly "not ok 13") depending on the success of chunk 13 19# of the test code): 20 21my $file = 'flows.current'; 22if (-r $file) { 23 use Socket; 24 sub printit { 25 print("$Cflow::srcip -> $Cflow::dstip\n"); 26 1 27 } 28 sub perfile { 29 print "working on \"$_[0]\"...\n" 30 } 31 $n = Cflow::find(\&printit, \&perfile, $file, $file); 32 print "$n\n" 33} 34