use strict;
use warnings;
use Test::More tests => 2;
use Test::PPPort;

use File::Spec;

chdir File::Spec->catfile(qw/ . t sandbox no_input_file /);
do {
    no warnings 'redefine';
    local *Test::Builder::skip_all = sub {
        ok(1, 'skip_all: ' . $_[1]);
        like($_[1], qr/No such XS files/, 'message');
    };
    local *Test::Builder::plan = sub {
        ok(0, 'why called plan method?');
    };
    ppport_ok;
};