1*5759b3d2Safresh1#!/usr/bin/perl -w 2*5759b3d2Safresh1 3*5759b3d2Safresh1BEGIN { 4*5759b3d2Safresh1 if( $ENV{PERL_CORE} ) { 5*5759b3d2Safresh1 chdir 't'; 6*5759b3d2Safresh1 @INC = ( '../lib', 'lib' ); 7*5759b3d2Safresh1 } 8*5759b3d2Safresh1 else { 9*5759b3d2Safresh1 unshift @INC, 't/lib'; 10*5759b3d2Safresh1 } 11*5759b3d2Safresh1} 12*5759b3d2Safresh1 13*5759b3d2Safresh1use strict; 14*5759b3d2Safresh1use warnings; 15*5759b3d2Safresh1use Test::More tests => 3; 16*5759b3d2Safresh1 17*5759b3d2Safresh1{ 18*5759b3d2Safresh1 19*5759b3d2Safresh1 package Test::Singleton; 20*5759b3d2Safresh1 21*5759b3d2Safresh1 use Test::Builder; 22*5759b3d2Safresh1 my $TB = Test::Builder->new; 23*5759b3d2Safresh1 24*5759b3d2Safresh1 sub singleton_ok ($;$) { 25*5759b3d2Safresh1 my( $val, $name ) = @_; 26*5759b3d2Safresh1 $TB->ok( $val, $name ); 27*5759b3d2Safresh1 } 28*5759b3d2Safresh1} 29*5759b3d2Safresh1 30*5759b3d2Safresh1ok 1, 'TB top level'; 31*5759b3d2Safresh1subtest 'doing a subtest' => sub { 32*5759b3d2Safresh1 plan tests => 4; 33*5759b3d2Safresh1 ok 1, 'first test in subtest'; 34*5759b3d2Safresh1 Test::Singleton::singleton_ok(1, 'this should not fail'); 35*5759b3d2Safresh1 ok 1, 'second test in subtest'; 36*5759b3d2Safresh1 Test::Singleton::singleton_ok(1, 'this should not fail'); 37*5759b3d2Safresh1}; 38*5759b3d2Safresh1ok 1, 'left subtest'; 39