diff options
Diffstat (limited to 'tests/assets-test.scm')
| -rw-r--r-- | tests/assets-test.scm | 13 |
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) |