Add SLOT-VALUE unit test.

SvenMichaelKlose · Jan 20, 2025 · 561c932 · 561c932
1 parent 29d9769
commit 561c932
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 4 deletions.
diff --git a/tests/toplevel.lisp b/tests/toplevel.lisp
@@ -4,7 +4,9 @@
           (. 'tests (make-environment-tests))
           (. 'toplevel '((environment-tests))))
     :transpiler  (copy-transpiler tr)
-    :emitter     [put-file (format nil "compiled/test.~A" (transpiler-file-postfix tr)) _]))
+    :emitter     [put-file (format nil "compiled/test.~A"
+                                   (transpiler-file-postfix tr))
+                           _]))
 
 (fn compile-unit-tests (tr lst)
   (do ((n 1 (++ n))
@@ -14,7 +16,9 @@
       (make-project (format nil "Unit ~A: ~A" n .!.)
         (format nil "tests/unit-~A-~A.lisp" n !.)
         :transpiler  (copy-transpiler tr)
-        :emitter     [put-file (format nil "compiled/unit-~A-~A.~A" n !. (transpiler-file-postfix tr)) _]))))
+        :emitter     [put-file (format nil "compiled/unit-~A-~A.~A"
+                                       n !. (transpiler-file-postfix tr))
+                               _]))))
 
 (fn compile-tests (tr)
   (unix-sh-mkdir "compiled" :parents t)
@@ -23,5 +27,4 @@
     '(("smoke-test"  "Smoke test")
       ("getter"      "Something with getters")
       ("base64"      "BASE64-ENCODE, BASE64-DECODE")
-      )))
-;      ("slot-value"  "SLOT-VALUE as function"))))
+      ("slot-value"  "SLOT-VALUE as function"))))
diff --git a/tests/unit-4-slot-value.lisp b/tests/unit-4-slot-value.lisp
@@ -0,0 +1,3 @@
+(merge-props nil nil)
+
+(quit)