From 1a74c6731b9f71e9bd2c698965fc6a56d952691d Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 28 May 2023 22:56:52 -0700
Subject: tests: 7 through 8 working.

* test/simple.tl: Port tests 7 through 8 and move (exit).
---
 test/simple.tl | 29 ++++++++++++++---------------
 1 file changed, 14 insertions(+), 15 deletions(-)

diff --git a/test/simple.tl b/test/simple.tl
index 17dfd87..18dfbd4 100644
--- a/test/simple.tl
+++ b/test/simple.tl
@@ -78,27 +78,26 @@
               :br)))
          "<a href='http://zappa.com/'><b>Frank Zappa</b></a><br /><a href='http://marcusmiller.com/'><b>Marcus Miller</b></a><br /><a href='http://www.milesdavis.com/'><b>Miles Davis</b></a><br />")
 
-(exit)
-
 
 
 ;;; 7
-(eq (array-element-type
-     (with-html-output-to-string (out nil :element-type 'base-char)
-       (:br)))
-    'base-char)
+(test (typeof [(with-html-output-to-string
+                 (out nil) (:br)) 0])
+      'chr)
+
 
 ;;; 8
-(string= (let ((*attribute-quote-char* #\"))
-           (with-html-output-to-string (out)
-             (loop for (link . title) in '(("http://zappa.com/" . "Frank Zappa")
-                                           ("http://marcusmiller.com/" . "Marcus Miller")
-                                           ("http://www.milesdavis.com/" . "Miles Davis"))
-                   do (htm (:a :href link
-                            (:b (str title)))
-                           :br))))
-         "<a href=\"http://zappa.com/\"><b>Frank Zappa</b></a><br /><a href=\"http://marcusmiller.com/\"><b>Marcus Miller</b></a><br /><a href=\"http://www.milesdavis.com/\"><b>Miles Davis</b></a><br />")
+(test (expander-let ((*attribute-quote-char* #\"))
+        (with-html-output-to-string (out)
+           (keep-matches ((@link . @title) '(("http://zappa.com/" . "Frank Zappa")
+                                             ("http://marcusmiller.com/" . "Marcus Miller")
+                                             ("http://www.milesdavis.com/" . "Miles Davis")))
+             (htm (:a :href link
+                      (:b (str title)))
+                  :br))))
+      "<a href=\"http://zappa.com/\"><b>Frank Zappa</b></a><br /><a href=\"http://marcusmiller.com/\"><b>Marcus Miller</b></a><br /><a href=\"http://www.milesdavis.com/\"><b>Miles Davis</b></a><br />")
 
+(exit)
 ;;; 9
 (string= (with-html-output-to-string (out nil :prologue t)
            (loop for (link . title) in '(("http://zappa.com/" . "Frank Zappa")
-- 
cgit v1.2.3