Migrate tests to the test egg

1 files changed, 7 insertions, 6 deletions

diff --git a/tests/assets-test.scm b/tests/assets-test.scm
index c7b26f0..348cea0 100644
--- a/tests/assets-test.scm
+++ b/tests/assets-test.scm
@@ -1,4 +1,4 @@
-(import srfi-64)
+(import test)
 
 (include "assets.scm")
 (import downstroke-assets)
@@ -11,26 +11,27 @@
 
 (test-group "asset-set! and asset-ref"
   (let ((reg (make-asset-registry)))
-    (test-equal "missing key returns #f"
+    (test "missing key returns #f"
       #f
       (asset-ref reg 'missing))
 
     (asset-set! reg 'my-tilemap "data")
-    (test-equal "stored value is retrievable"
+    (test "stored value is retrievable"
       "data"
       (asset-ref reg 'my-tilemap))
 
     (asset-set! reg 'my-tilemap "updated")
-    (test-equal "overwrite replaces value"
+    (test "overwrite replaces value"
       "updated"
       (asset-ref reg 'my-tilemap))
 
     (asset-set! reg 'other 42)
-    (test-equal "multiple keys coexist"
+    (test "multiple keys coexist"
       "updated"
       (asset-ref reg 'my-tilemap))
-    (test-equal "second key retrievable"
+    (test "second key retrievable"
       42
       (asset-ref reg 'other))))
 
 (test-end "assets")
+(test-exit)