#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use 5.008001;
use autodie;

use lib 'lib';

use Test::Pretty;
use Test::More;
use Scope::Guard;


my $ORIG_BUILDER = $Test::Builder::Test;
{
    package Test::Pretty::Builder;
    use parent qw/Test::Builder/;

    sub done_testing {
        # do nothing.
    }


}

ok 1;
subtest 'foo' => sub {
    is 0, 0;
    subtest 'bar' => sub {
        is 0, 1;
    };
};
ok 0;
done_testing;