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/interpolation.sample |  2 ++
 samples/testing.sample       | 13 ++++++++++---
 2 files changed, 12 insertions(+), 3 deletions(-)
 create mode 100644 samples/interpolation.sample

(limited to 'samples')

diff --git a/samples/interpolation.sample b/samples/interpolation.sample
new file mode 100644
index 0000000..5a0d6eb
--- /dev/null
+++ b/samples/interpolation.sample
@@ -0,0 +1,2 @@
+"Hello world!" s.
+"What's up" "Jan" "%% %%!" s.
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