#!/usr/bin/perl
use warnings;
use strict;

use Test::Builder;
my $o = 'Test::Builder'->new;
for (1 .. 3) {
    $o->ok(1);
    $o->note($o->{Curr_Test});
}
$o->done_testing();