#!/usr/bin/env perl -w

use strict;
use warnings;

use Test::Builder2;

my $tb = Test::Builder2->default;
$tb->ok(1, "first test");
$tb->ok(1, "second test");
$tb->subtest("a subtest" => sub {
    $tb->ok(1, "first subtest");
    $tb->ok(1, "second subtest");
    $tb->done_testing;
});
$tb->ok(1, "second test");

$tb->done_testing(4);