diff options
author | Ricardo Signes <rjbs@cpan.org> | 2015-03-08 18:20:22 -0400 |
---|---|---|
committer | Ricardo Signes <rjbs@cpan.org> | 2015-03-11 08:22:07 -0400 |
commit | afad11a2ce2b95ce853f2a09df2cbf068be080c3 (patch) | |
tree | e8b977e2afe9262eb6216534cf16935da97eb736 /cpan/Test-Simple/t/subtest/singleton.t | |
parent | 9d58dbc453a86c9cbb3a131adcd1559fe0445a08 (diff) | |
download | perl-afad11a2ce2b95ce853f2a09df2cbf068be080c3.tar.gz |
move back to a stable Test-Simple, v1.001014
Diffstat (limited to 'cpan/Test-Simple/t/subtest/singleton.t')
-rw-r--r-- | cpan/Test-Simple/t/subtest/singleton.t | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/cpan/Test-Simple/t/subtest/singleton.t b/cpan/Test-Simple/t/subtest/singleton.t new file mode 100644 index 0000000000..0c25261f5b --- /dev/null +++ b/cpan/Test-Simple/t/subtest/singleton.t @@ -0,0 +1,38 @@ +#!/usr/bin/perl -w + +BEGIN { + if( $ENV{PERL_CORE} ) { + chdir 't'; + @INC = ( '../lib', 'lib' ); + } + else { + unshift @INC, 't/lib'; + } +} + +use strict; +use warnings; +use Test::More tests => 3; + +{ + + package Test::Singleton; + + use Test::Builder; + my $TB = Test::Builder->new; + + sub singleton_ok ($;$) { + my( $val, $name ) = @_; + $TB->ok( $val, $name ); + } +} + +ok 1, 'TB top level'; +subtest 'doing a subtest' => sub { + plan tests => 4; + ok 1, 'first test in subtest'; + Test::Singleton::singleton_ok(1, 'this should not fail'); + ok 1, 'second test in subtest'; + Test::Singleton::singleton_ok(1, 'this should not fail'); +}; +ok 1, 'left subtest'; |