xref: /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/regression/642_persistent_end.t (revision 5759b3d249badf144a6240f7eec4dcf9df003e6b)
1*5759b3d2Safresh1use Test::More;
2*5759b3d2Safresh1use strict;
3*5759b3d2Safresh1use warnings;
4*5759b3d2Safresh1
5*5759b3d2Safresh1use Test2::API qw{
6*5759b3d2Safresh1    test2_set_is_end
7*5759b3d2Safresh1    test2_get_is_end
8*5759b3d2Safresh1    intercept
9*5759b3d2Safresh1};
10*5759b3d2Safresh1
11*5759b3d2Safresh1my %res;
12*5759b3d2Safresh1intercept {
13*5759b3d2Safresh1    my $tb = Test::Builder->new;
14*5759b3d2Safresh1    $res{before} = test2_get_is_end();
15*5759b3d2Safresh1    test2_set_is_end();
16*5759b3d2Safresh1    $res{isset} = test2_get_is_end();
17*5759b3d2Safresh1    $tb->reset;
18*5759b3d2Safresh1    $res{reset} = test2_get_is_end();
19*5759b3d2Safresh1};
20*5759b3d2Safresh1
21*5759b3d2Safresh1ok(!$res{before}, "Not the end");
22*5759b3d2Safresh1ok($res{isset}, "the end");
23*5759b3d2Safresh1ok(!$res{reset}, "Not the end");
24*5759b3d2Safresh1
25*5759b3d2Safresh1done_testing;
26