From a02b892e2ad1e1605ff942c63afdd618daa48be4 Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Fri, 17 Apr 2026 16:52:41 +0100 Subject: Migrate tests to the test egg --- tests/assets-test.scm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'tests/assets-test.scm') 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) -- cgit v1.2.3