Add comment function for tests

2021-04-05 00:25:53 +02:00 · 2021-04-05 00:25:53 +02:00 · f1e7da781b
parent 7f1283eecc
commit f1e7da781b
1 changed files with 5 additions and 1 deletions
--- a/tool/test-runner.pl
+++ b/tool/test-runner.pl
@ -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";