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