instrumented to abort tests if the macro does not load

This commit is contained in:
Colin Kuskie 2006-07-29 23:43:13 +00:00
parent 5e7c0faf68
commit d756069c43

View file

@ -65,9 +65,16 @@ foreach my $testSet (@testSets) {
$numTests += 1 + (ref $testSet->{output} eq 'CODE');
}
plan tests => $numTests + 1;
$numTests += 1; #For the use_ok
use_ok('WebGUI::Macro::a_account');
plan tests => $numTests;
my $macro = 'WebGUI::Macro::a_account';
my $loaded = use_ok($macro);
SKIP: {
skip "Unable to load $macro", $numTests-1 unless $loaded;
foreach my $testSet (@testSets) {
my $output = WebGUI::Macro::a_account::process( $session,
@ -83,6 +90,8 @@ foreach my $testSet (@testSets) {
}
}
}
sub addTemplate {
$session->user({userId=>3});
my $importNode = WebGUI::Asset->getImportNode($session);