#!/usr/bin/perl

use strict;
use warnings;

use lib 't/lib';

BEGIN { require 't/test.pl' }

use Test::Builder::NoOutput;

my $tb = Test::Builder::NoOutput->create;

# Turn off use_numbers
{
    $tb->use_numbers(0);
    $tb->plan( tests => 2 );
    $tb->ok(1);
    $tb->ok(0, "a name");
}


is($tb->read("out"), <<"END");
TAP version 13
1..2
ok
not ok - a name
END

done_testing;