diff options
author | Chad Granum <chad.granum@dreamhost.com> | 2014-10-23 12:03:23 -0700 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2014-10-26 11:59:40 -0400 |
commit | 07308ed1589cc2f7837b5d3a1303d200a49b9338 (patch) | |
tree | d3fd48fe8ab2e8f8432c5b7a429a41d715301bff /cpan/Test-Simple/t/Legacy/plan_is_noplan.t | |
parent | b17645516d4569fdfc26a2ed61c6e8704ced92cf (diff) | |
download | perl-07308ed1589cc2f7837b5d3a1303d200a49b9338.tar.gz |
Import Test-More 1.301001 alpha 63
Diffstat (limited to 'cpan/Test-Simple/t/Legacy/plan_is_noplan.t')
-rw-r--r-- | cpan/Test-Simple/t/Legacy/plan_is_noplan.t | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/cpan/Test-Simple/t/Legacy/plan_is_noplan.t b/cpan/Test-Simple/t/Legacy/plan_is_noplan.t new file mode 100644 index 0000000000..1e696042ef --- /dev/null +++ b/cpan/Test-Simple/t/Legacy/plan_is_noplan.t @@ -0,0 +1,32 @@ +#!/usr/bin/perl -w + +BEGIN { + if( $ENV{PERL_CORE} ) { + chdir 't'; + @INC = ('../lib', 'lib'); + } + else { + unshift @INC, 't/lib'; + } +} + +use strict; + +use Test::More tests => 1; + +use Test::Builder::NoOutput; + +{ + my $tb = Test::Builder::NoOutput->create; + + $tb->plan('no_plan'); + + $tb->ok(1, 'foo'); + $tb->_ending; + + is($tb->read, <<OUT); +ok 1 - foo +1..1 +OUT +} + |