#!/usr/bin/perl

use strict;
use warnings;

BEGIN { require 't/test.pl' }

BEGIN {
    *CORE::GLOBAL::exit = sub {
        exit $_[0];
    };
}

use lib 't/lib';
use Test::Builder::NoOutput;

note "Can call skip_all() to set the plan"; {
    my $tb = Test::Builder::NoOutput->create;

    my @exits;
    no warnings 'redefine';
    local *CORE::GLOBAL::exit = sub {
        push @exits, $_[0] || 0;
    };

    ok $tb->skip_all;
    is $tb->read('out'), <<OUT, "outputs TAP version";
TAP version 13
1..0 # SKIP
OUT
    is_deeply \@exits, [0];

}

done_testing;