#!/usr/bin/perl
eval "use XAO::TestUtils";
if($@) { die "Can't find XAO::Base - call as ``perl -Mblib $0'' ($@)\n" }
if(@ARGV) {
XAO::TestUtils::xao_test(@ARGV);
}
else {
XAO::TestUtils::xao_test_all('testcases::Web');
}
#!/usr/bin/perl
eval "use XAO::TestUtils";
if($@) { die "Can't find XAO::Base - call as ``perl -Mblib $0'' ($@)\n" }
if(@ARGV) {
XAO::TestUtils::xao_test(@ARGV);
}
else {
XAO::TestUtils::xao_test_all('testcases::Web');
}