1N/A#!/usr/bin/perl -w
1N/A
1N/ABEGIN {
1N/A if( $ENV{PERL_CORE} ) {
1N/A chdir 't';
1N/A @INC = '../lib';
1N/A }
1N/A}
1N/A
1N/Amy $test_num = 1;
1N/A# Utility testing functions.
1N/Asub ok ($;$) {
1N/A my($test, $name) = @_;
1N/A my $ok = '';
1N/A $ok .= "not " unless $test;
1N/A $ok .= "ok $test_num";
1N/A $ok .= " - $name" if defined $name;
1N/A $ok .= "\n";
1N/A print $ok;
1N/A $test_num++;
1N/A
1N/A return $test;
1N/A}
1N/A
1N/A
1N/Ause Test::Builder;
1N/Amy $Test = Test::Builder->new;
1N/A
1N/Aprint "1..2\n";
1N/A
1N/Aeval { $Test->plan(7); };
1N/Aok( $@ =~ /^plan\(\) doesn't understand 7/, 'bad plan()' ) ||
1N/A print STDERR "# $@";
1N/A
1N/Aeval { $Test->plan(wibble => 7); };
1N/Aok( $@ =~ /^plan\(\) doesn't understand wibble 7/, 'bad plan()' ) ||
1N/A print STDERR "# $@";
1N/A