use v6-alpha;

use Test::Builder::Tester;
plan 8;

my $Test = Test::Builder.new();

test_out( 'ok 1 - Hello' );
$Test.ok( 1, 'Hello' );
test_test( 'passing test' );

test_out( 'not ok 2 - Goodbye' );
$Test.ok( 0, 'Goodbye' );
test_test( 'failing test' );

test_out( 'ok 3 - A message' );
test_diag( "some\nlines" );
$Test.ok( 1, 'A message' );
$Test.diag( 'some' );
$Test.diag( 'lines' );
test_test( 'passing test with diagnostics' );

test_out( 'not ok 4 - another message' );
$Test.ok( 0, 'another message' );
$Test.diag( "many\nmany\nlines" );
test_diag( 'many' );
test_diag( 'many' );
test_diag( 'lines' );
test_test( 'failing test with diagnostics' );

test_pass();
$Test.ok( 1 );
test_test( 'passing test with no diagnostics' );

test_pass( 'my diagnostics' );
$Test.ok( 1, 'my diagnostics' );
test_test( 'passing test with diagnostics' );

test_fail();
$Test.ok( 0 );
test_test( 'failing test with no diagnostics' );

test_fail( 'more diagnostics' );
$Test.ok( 0, 'more diagnostics' );
test_test( 'failing test with diagnostics' );