Add comment function for tests

This commit is contained in:
madmaurice 2021-04-05 00:25:53 +02:00
parent 7f1283eecc
commit f1e7da781b

View file

@ -23,7 +23,11 @@ my $ctx = {
print "not " unless $success;
print "ok - $desc\n";
$plan++;
}
},
comment => sub {
my ($v) = @_;
print "# " . Minilisp::lisp_format($v) . "\n";
},
};
print "TAP Version 13\n";