xref: /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/Legacy/capture.t (revision 5759b3d249badf144a6240f7eec4dcf9df003e6b)
1*5759b3d2Safresh1use strict;
2*5759b3d2Safresh1
3*5759b3d2Safresh1use Test::Tester;
4*5759b3d2Safresh1
5*5759b3d2Safresh1my $Test = Test::Builder->new;
6*5759b3d2Safresh1$Test->plan(tests => 3);
7*5759b3d2Safresh1
8*5759b3d2Safresh1my $cap;
9*5759b3d2Safresh1
10*5759b3d2Safresh1$cap = Test::Tester->capture;
11*5759b3d2Safresh1
12*5759b3d2Safresh1{
13*5759b3d2Safresh1	no warnings 'redefine';
14*5759b3d2Safresh1	sub Test::Tester::find_run_tests { return 0};
15*5759b3d2Safresh1}
16*5759b3d2Safresh1
17*5759b3d2Safresh1local $Test::Builder::Level = 0;
18*5759b3d2Safresh1{
19*5759b3d2Safresh1	my $cur = $cap->current_test;
20*5759b3d2Safresh1	$Test->is_num($cur, 0, "current test");
21*5759b3d2Safresh1
22*5759b3d2Safresh1	eval {$cap->current_test(2)};
23*5759b3d2Safresh1	$Test->ok($@, "can't set test_num");
24*5759b3d2Safresh1}
25*5759b3d2Safresh1
26*5759b3d2Safresh1{
27*5759b3d2Safresh1	$cap->ok(1, "a test");
28*5759b3d2Safresh1
29*5759b3d2Safresh1	my @res = $cap->details;
30*5759b3d2Safresh1
31*5759b3d2Safresh1	$Test->is_num(scalar @res, 1, "res count");
32*5759b3d2Safresh1}
33