This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
3909cfe5b75b803f251361e08d8a048a0393d54a
[perl5.git] / lib / Test / Simple / t / Builder / no_plan_at_all.t
1 #!/usr/bin/perl -w
2
3 # Test what happens when no plan is delcared and done_testing() is not seen
4
5 use strict;
6 use lib 't/lib';
7
8 use Test::Builder;
9 use Test::Builder::NoOutput;
10
11 my $Test = Test::Builder->new;
12 $Test->level(0);
13 $Test->plan( tests => 1 );
14
15 my $tb = Test::Builder::NoOutput->create;
16
17 {
18     $tb->level(0);
19     $tb->ok(1, "just a test");
20     $tb->ok(1, "  and another");
21     $tb->_ending;
22 }
23
24 $Test->is_eq($tb->read, <<'END', "proper behavior when no plan is seen");
25 ok 1 - just a test
26 ok 2 -   and another
27 # Tests were run but no plan was declared and done_testing() was not seen.
28 END