From f1e7da781bc3fae74a55e6b2bc173a16a0491ef9 Mon Sep 17 00:00:00 2001
From: MadMaurice <madmaurice@zom.bi>
Date: Mon, 5 Apr 2021 00:25:53 +0200
Subject: [PATCH] Add comment function for tests

---
 tool/test-runner.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/tool/test-runner.pl b/tool/test-runner.pl
index 0facdc2..7ccd801 100755
--- 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";