diff --git a/t/tests/Test/WebGUI/Asset.pm b/t/tests/Test/WebGUI/Asset.pm index b7c1b6af4c..812e909fa5 100644 --- a/t/tests/Test/WebGUI/Asset.pm +++ b/t/tests/Test/WebGUI/Asset.pm @@ -21,6 +21,22 @@ use WebGUI::Test; use WebGUI::Utility; use Data::Dumper; +=head1 NAME + +t/test/tests/WebGUI/Asset.pm + +=head2 USAGE + +Run all tests: + + perl /data/WebGUI/t/run_asset.t + +Run one test: + + perl /data/WebGUI/t/tests/Test/WebGUI/run_some_assets.pl Test::WebGUI::Asset::Template + +=cut + # XXXX fix the Test(n) numbers to match reality sub constructorExtras { diff --git a/t/tests/Test/WebGUI/run_some_assets.pl b/t/tests/Test/WebGUI/run_some_assets.pl new file mode 100644 index 0000000000..ed69b44757 --- /dev/null +++ b/t/tests/Test/WebGUI/run_some_assets.pl @@ -0,0 +1,17 @@ +#!/usr/bin/perl + +use strict; +use warnings; + +if($ARGV[0] eq '-h' or $ARGV[0] eq '--help') { + die "$0: eg, $0 Test::WebGUI::Asset::Template"; +} + +my $package = shift @ARGV or die "specify Test:: package"; + +use lib '/data/WebGUI/t/lib'; +use Test::Class::Load '/data/WebGUI/t/tests/'; + +$package->new->runtests(); + +