1#!/usr/bin/perl -w
2
3BEGIN {
4    if( $ENV{PERL_CORE} ) {
5        chdir 't';
6        @INC = ('../lib', 'lib');
7    }
8    else {
9        unshift @INC, 't/lib';
10    }
11}   
12
13use strict;
14
15use Test::More;
16
17my $Test = Test::Builder->create;
18$Test->plan(tests => 2);
19
20my $out = '';
21my $err = '';
22{
23    my $tb = Test::More->builder;
24    $tb->output(\$out);
25    $tb->failure_output(\$err);
26
27    plan 'skip_all';
28}
29
30END {
31    $Test->is_eq($out, "1..0 # SKIP\n");
32    $Test->is_eq($err, "");
33}
34