xref: /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/Legacy/skipall.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', 'lib');
7*5759b3d2Safresh1    }
8*5759b3d2Safresh1    else {
9*5759b3d2Safresh1        unshift @INC, 't/lib';
10*5759b3d2Safresh1    }
11*5759b3d2Safresh1}
12*5759b3d2Safresh1
13*5759b3d2Safresh1use strict;
14*5759b3d2Safresh1
15*5759b3d2Safresh1use Test::More;
16*5759b3d2Safresh1
17*5759b3d2Safresh1my $Test = Test::Builder->create;
18*5759b3d2Safresh1$Test->plan(tests => 2);
19*5759b3d2Safresh1
20*5759b3d2Safresh1my $out = '';
21*5759b3d2Safresh1my $err = '';
22*5759b3d2Safresh1{
23*5759b3d2Safresh1    my $tb = Test::More->builder;
24*5759b3d2Safresh1    $tb->output(\$out);
25*5759b3d2Safresh1    $tb->failure_output(\$err);
26*5759b3d2Safresh1
27*5759b3d2Safresh1    plan 'skip_all';
28*5759b3d2Safresh1}
29*5759b3d2Safresh1
30*5759b3d2Safresh1END {
31*5759b3d2Safresh1    $Test->is_eq($out, "1..0 # SKIP\n");
32*5759b3d2Safresh1    $Test->is_eq($err, "");
33*5759b3d2Safresh1}
34