From 0b41611b0a05622c806f9c7c2e27eff47f369b77 Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Sun, 5 Apr 2026 16:53:53 +0100 Subject: feat: add assets.scm — minimal key/value asset registry MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- tests/assets-test.scm | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 tests/assets-test.scm (limited to 'tests') diff --git a/tests/assets-test.scm b/tests/assets-test.scm new file mode 100644 index 0000000..0f6931b --- /dev/null +++ b/tests/assets-test.scm @@ -0,0 +1,36 @@ +(import srfi-64) + +(include "assets.scm") +(import downstroke/assets) + +(test-begin "assets") + +(test-group "make-asset-registry" + (test-assert "returns a value" + (make-asset-registry))) + +(test-group "asset-set! and asset-ref" + (let ((reg (make-asset-registry))) + (test-equal "missing key returns #f" + #f + (asset-ref reg 'missing)) + + (asset-set! reg 'my-tilemap "data") + (test-equal "stored value is retrievable" + "data" + (asset-ref reg 'my-tilemap)) + + (asset-set! reg 'my-tilemap "updated") + (test-equal "overwrite replaces value" + "updated" + (asset-ref reg 'my-tilemap)) + + (asset-set! reg 'other 42) + (test-equal "multiple keys coexist" + "updated" + (asset-ref reg 'my-tilemap)) + (test-equal "second key retrievable" + 42 + (asset-ref reg 'other)))) + +(test-end "assets") -- cgit v1.2.3