use strict;
my $name = '0030_test_Module.t';
my ($TCntr, $TProg) = @{$XML::Reader::Testcases::TestProg{$name}};
unless (defined $TCntr) {
die "Test-Abort-0010: Can't find TCntr{'$name'}";
}
unless ($TCntr =~ m{\A \d+ \z}xms) {
die "Test-Abort-0020: TCntr{'$name'} = '$TCntr' is not numeric";
}
plan tests => $TCntr;
unless (defined $TProg) {
die "Test-Abort-0030: Can't find TProg{'$name'}";
}
unless (ref($TProg) eq 'CODE') {
die "Test-Abort-0040: ref(TProg{'$name'}) is '".ref($TProg)."', but should be 'CODE'";
}
$TProg->('XML::Reader::RS');