25 lines
500 B
Perl
25 lines
500 B
Perl
#!/usr/bin/perl -w
|
|
|
|
use Test::Harness;
|
|
|
|
@tests = ( 'test1.pl', 'test2.pl');
|
|
|
|
$Test::Harness::verbose = 1;
|
|
Test::Harness::runtests(@tests);
|
|
|
|
|
|
|
|
#File: test1.pl
|
|
#!/usr/bin/perl -w
|
|
print STDERR "\n Running networking test.\n";
|
|
print "ok 1\n";
|
|
|
|
|
|
#File: test2.pl
|
|
#!/usr/bin/perl -w
|
|
print "1..5\n";
|
|
print STDERR "\n Running performance test.\n";
|
|
print "not ok 2\n";
|
|
print STDERR "\n Failed database load speed test.\n";
|
|
print "not ok 4\n";
|
|
print STDERR "\n Failed speed test.\n"; |