xref: /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/Legacy/plan.t (revision 5759b3d249badf144a6240f7eec4dcf9df003e6b)
1*5759b3d2Safresh1#!/usr/bin/perl -w
2*5759b3d2Safresh1
3*5759b3d2Safresh1BEGIN {
4*5759b3d2Safresh1    if( $ENV{PERL_CORE} ) {
5*5759b3d2Safresh1        chdir 't';
6*5759b3d2Safresh1        @INC = '../lib';
7*5759b3d2Safresh1    }
8*5759b3d2Safresh1}
9*5759b3d2Safresh1
10*5759b3d2Safresh1use Test::More;
11*5759b3d2Safresh1
12*5759b3d2Safresh1plan tests => 4;
13*5759b3d2Safresh1eval { plan tests => 4 };
14*5759b3d2Safresh1is( $@, sprintf("You tried to plan twice at %s line %d.\n", $0, __LINE__ - 1),
15*5759b3d2Safresh1    'disallow double plan' );
16*5759b3d2Safresh1eval { plan 'no_plan'  };
17*5759b3d2Safresh1is( $@, sprintf("You tried to plan twice at %s line %d.\n", $0, __LINE__ -1),
18*5759b3d2Safresh1    'disallow changing plan' );
19*5759b3d2Safresh1
20*5759b3d2Safresh1pass('Just testing plan()');
21*5759b3d2Safresh1pass('Testing it some more');
22