coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Tests: align reactive/marshes/reactive-runtime island names with live site

Browse Source 
Update test-examples.sx to reference the real path-derived names
(~geography/<domain>/<stem>) instead of short aliases, drop the
alias chains in run_tests.ml, and add marshes/_islands loading so
the migrated one-per-file islands resolve. Fix the try-rerender-page
stub in boot-helpers.sx to accept the 3 args its callers pass.

Co-Authored-By: Claude Opus 4.7 (1M context) <noreply@anthropic.com>
This commit is contained in:
giles
2026-04-22 10:48:21 +00:00
parent 0a5066a75c
commit ebcb5348ba
3 changed files with 34 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
web/lib/boot-helpers.sx
View File

@@ -806,7 +806,7 @@
(define
try-async-eval-content
(fn (content-src env callback) (try-eval-content content-src env)))
(define try-rerender-page (fn () nil))
(define try-rerender-page (fn (page-name params result) nil))
(define execute-action (fn () nil))
(define bind-preload (fn () nil))
(define persist-offline-data (fn () nil))

44
web/tests/test-examples.sx
View File

@@ -313,55 +313,63 @@
(defsuite
"reactive:islands"
(deftest "counter" (assert-true (island? ~reactive-islands/counter)))
(deftest
"counter"
(assert-true (island? ~geography/reactive/demo-counter)))
(deftest
"temperature"
(assert-true (island? ~reactive-islands/temperature)))
(deftest "stopwatch" (assert-true (island? ~reactive-islands/stopwatch)))
(assert-true (island? ~geography/reactive/demo-temperature)))
(deftest
"stopwatch"
(assert-true (island? ~geography/reactive/demo-stopwatch)))
(deftest
"reactive-list"
(assert-true (island? ~reactive-islands/reactive-list)))
(assert-true (island? ~geography/reactive/demo-reactive-list)))
(deftest
"input-binding"
(assert-true (island? ~reactive-islands/input-binding)))
(assert-true (island? ~geography/reactive/demo-input-binding)))
(deftest
"error-boundary"
(assert-true (island? ~reactive-islands/error-boundary)))
(assert-true (island? ~geography/reactive/demo-error-boundary)))
(deftest
"dynamic-class"
(assert-true (island? ~reactive-islands/dynamic-class)))
(assert-true (island? ~geography/reactive/demo-dynamic-class)))
(deftest
"store-writer"
(assert-true (island? ~reactive-islands/store-writer)))
(assert-true (island? ~geography/reactive/demo-store-writer)))
(deftest
"store-reader"
(assert-true (island? ~reactive-islands/store-reader))))
(assert-true (island? ~geography/reactive/demo-store-reader))))
(defsuite
"marshes:islands"
(deftest
"demo-marsh-product"
(assert-true (island? ~marshes/demo-marsh-product)))
(assert-true (island? ~geography/marshes/demo-marsh-product)))
(deftest
"demo-marsh-settle"
(assert-true (island? ~marshes/demo-marsh-settle))))
(assert-true (island? ~geography/marshes/demo-marsh-settle))))
(defsuite
"reactive-runtime:islands"
(deftest "demo-ref" (assert-true (island? ~reactive-runtime/demo-ref)))
(deftest
"demo-ref"
(assert-true (island? ~geography/reactive-runtime/demo-ref)))
(deftest
"demo-foreign"
(assert-true (island? ~reactive-runtime/demo-foreign)))
(assert-true (island? ~geography/reactive-runtime/demo-foreign)))
(deftest
"demo-machine"
(assert-true (island? ~reactive-runtime/demo-machine)))
(assert-true (island? ~geography/reactive-runtime/demo-machine)))
(deftest
"demo-commands"
(assert-true (island? ~reactive-runtime/demo-commands)))
(deftest "demo-loop" (assert-true (island? ~reactive-runtime/demo-loop)))
(assert-true (island? ~geography/reactive-runtime/demo-commands)))
(deftest
"demo-loop"
(assert-true (island? ~geography/reactive-runtime/demo-loop)))
(deftest
"demo-keyed-lists"
(assert-true (island? ~reactive-runtime/demo-keyed-lists)))
(assert-true (island? ~geography/reactive-runtime/demo-keyed-lists)))
(deftest
"demo-app-shell"
(assert-true (island? ~reactive-runtime/demo-app-shell))))
(assert-true (island? ~geography/reactive-runtime/demo-app-shell))))