From 3fbe17312a7b1474b290c129ebeca9ee7c773c6e Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Sun, 30 Jan 2022 14:34:53 +0200
Subject: Add string interpolation sugar

---
 samples/testing.sample | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'samples/testing.sample')

diff --git a/samples/testing.sample b/samples/testing.sample
index d57a7a7..f9352cd 100644
--- a/samples/testing.sample
+++ b/samples/testing.sample
@@ -11,7 +11,9 @@ define init-tests
 
 -- print ok, fail counter values
 define end-tests
-    '[ $ok-count @ reprup " ok, " up $fail-count @ reprup " failed" up '] p s.
+    $ok-count @ repr
+    $fail-count @ repr
+    "%% ok, %% failed" s.
     $ok-count forget $fail-count forget
     ;
 
@@ -29,9 +31,14 @@ define assert-eq
     $actualp !
     $actualp @ up $actualv !
     $expected @ $actualv @ eq?
-        [ '[ $actualp @ reprup " == " up $expected @ reprup " 👍" up '] p s.
+        [ $actualp @ repr
+          $expected @ repr
+          "%% == %% 👍" s.
           $ok-count increment ]
-        [ '[ $actualp @ reprup " == " up $expected @ reprup " ❌" up ", actual: " up $actualv @ reprup '] p s.
+        [ $actualp @ repr
+          $expected @ repr
+          $actualv @ repr
+          "%% == %% ❌, actual: %%" s.
           $fail-count increment ]
         cond
     $expected forget $actualp forget $actualv forget
-- 
cgit v1.3