1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
#!/usr/bin/perl -w
# Test Test::Builder->reset;
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
@INC = ('../lib', 'lib');
}
else {
unshift @INC, 't/lib';
}
}
chdir 't';
use Test::Builder;
my $tb = Test::Builder->new;
$tb->plan(tests => 14);
$tb->level(0);
# Alter the state of Test::Builder as much as possible.
$tb->ok(1, "Running a test to alter TB's state");
my $tmpfile = 'foo.tmp';
$tb->output($tmpfile);
$tb->failure_output($tmpfile);
$tb->todo_output($tmpfile);
END { 1 while unlink $tmpfile }
# This won't print since we just sent output off to oblivion.
$tb->ok(0, "And a failure for fun");
$Test::Builder::Level = 3;
$tb->exported_to('Foofer');
$tb->use_numbers(0);
$tb->no_header(1);
$tb->no_ending(1);
# Now reset it.
$tb->reset;
my $test_num = 2; # since we already printed 1
# Utility testing functions.
sub ok ($;$) {
my($test, $name) = @_;
my $ok = '';
$ok .= "not " unless $test;
$ok .= "ok $test_num";
$ok .= " - $name" if defined $name;
$ok .= "\n";
print $ok;
$test_num++;
return $test;
}
ok( !defined $tb->exported_to, 'exported_to' );
ok( $tb->expected_tests == 0, 'expected_tests' );
ok( $tb->level == 1, 'level' );
ok( $tb->use_numbers == 1, 'use_numbers' );
ok( $tb->no_header == 0, 'no_header' );
ok( $tb->no_ending == 0, 'no_ending' );
ok( fileno $tb->output == fileno *Test::Builder::TESTOUT,
'output' );
ok( fileno $tb->failure_output == fileno *Test::Builder::TESTERR,
'failure_output' );
ok( fileno $tb->todo_output == fileno *Test::Builder::TESTOUT,
'todo_output' );
ok( $tb->current_test == 0, 'current_test' );
ok( $tb->summary == 0, 'summary' );
ok( $tb->details == 0, 'details' );
$tb->no_ending(1);
$tb->no_header(1);
$tb->plan(tests => 14);
$tb->current_test(13);
$tb->level(0);
$tb->ok(1, 'final test to make sure output was reset');
|
