[p5sagit/p5-mst-13.2.git] / lib / Test / Simple / t / Builder.t

#!/usr/bin/perl -w

BEGIN {
    if( $ENV{PERL_CORE} ) {
        chdir 't';
        @INC = '../lib';
    }
}

use Test::Builder;
my $Test = Test::Builder->new;

$Test->plan( tests => 4 );

my $default_lvl = $Test->level;
$Test->level(0);

$Test->ok( 1,  'compiled and new()' );
$Test->ok( $default_lvl == 1,      'level()' );

$Test->is_eq('foo', 'foo',      'is_eq');
$Test->is_num('23.0', '23',     'is_num');
Commit	Line	Data
33459055	1	#!/usr/bin/perl -w
	2
	3	BEGIN {
a9153838	4	if( $ENV{PERL_CORE} ) {
	5	chdir 't';
	6	@INC = '../lib';
	7	}
33459055	8	}
	9
	10	use Test::Builder;
	11	my $Test = Test::Builder->new;
	12
	13	$Test->plan( tests => 4 );
	14
	15	my $default_lvl = $Test->level;
	16	$Test->level(0);
	17
	18	$Test->ok( 1, 'compiled and new()' );
	19	$Test->ok( $default_lvl == 1, 'level()' );
	20
	21	$Test->is_eq('foo', 'foo', 'is_eq');
	22	$Test->is_num('23.0', '23', 'is_num');
	23