workshopsoft/ludic
2
0
Fork 0
Code Issues Pull requests Projects Releases 26 Packages Wiki Activity Actions

wip(0.S3): the packages migrated by ludic migrate state packages - every package test green

Browse source 
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
This commit is contained in:
Orkun ÇAKILKAYA 2026-09-25 14:02:21 +03:00
parent 1e8b5b0523
commit 07505e7ef2
294 changed files with 14996 additions and 14675 deletions
Download patch file Download diff file Expand all files Collapse all files

96
packages/ludic.settings/tests/settings_test.ludic
View file

@ -6,70 +6,70 @@ program SettingsTest {
numbers float
registry Toy of SettingDef as TOY from "packages/ludic.settings/tests/toy.lres"
function declare() -> void {
settings_clear()
for i in 0 .. TOY_COUNT { settings_add(Toy[i]) }
function declare(base_st: mut BaseState, settings_st: mut SettingsState) -> void {
settings_clear(base_st, settings_st)
for i in 0 .. TOY_COUNT { settings_add(settings_st, Toy[i]) }
}
function facts() -> []SettingChanged { return q_drain(settings_changes()) }
function facts(base_st: mut BaseState, settings_st: mut SettingsState) -> []SettingChanged { return q_drain(base_st, settings_changes(base_st, settings_st)) }
test "a registry declares the store, each at its default" {
declare()
expect_eq(settings_count(), 5)
expect(settings_get_bool(TOY_BLOOM))
expect_eq(settings_get_int(TOY_SHADOW_Q), 2)
expect(settings_get_float(TOY_RSCALE) > 0.77)
expect(settings_get_text(TOY_LANG) == "en")
expect_eq(settings_id_of("rscale"), TOY_RSCALE)
expect_eq(settings_id_of("nothing"), -1)
test "a registry declares the store, each at its default" (base_st: mut BaseState, settings_st: mut SettingsState) {
declare(base_st, settings_st)
expect_eq(settings_count(settings_st), 5)
expect(settings_get_bool(settings_st, TOY_BLOOM))
expect_eq(settings_get_int(settings_st, TOY_SHADOW_Q), 2)
expect(settings_get_float(settings_st, TOY_RSCALE) > 0.77)
expect(settings_get_text(settings_st, TOY_LANG) == "en")
expect_eq(settings_id_of(settings_st, "rscale"), TOY_RSCALE)
expect_eq(settings_id_of(settings_st, "nothing"), -1)
}
test "a change is a fact, and setting what is there is none" {
declare()
settings_set_int(TOY_SHADOW_Q, 3)
settings_set_int(TOY_SHADOW_Q, 3)
settings_set_text(TOY_LANG, "tr")
let fs = facts()
test "a change is a fact, and setting what is there is none" (base_st: mut BaseState, settings_st: mut SettingsState) {
declare(base_st, settings_st)
settings_set_int(base_st, settings_st, TOY_SHADOW_Q, 3)
settings_set_int(base_st, settings_st, TOY_SHADOW_Q, 3)
settings_set_text(base_st, settings_st, TOY_LANG, "tr")
let fs = facts(base_st, settings_st)
expect_eq(len(fs), 2)
expect(fs[0].key == "shadow_q")
expect_eq(fs[1].id, TOY_LANG)
}
test "a value out of range is the default" {
declare()
settings_set_int(TOY_SHADOW_Q, 9)
expect_eq(settings_get_int(TOY_SHADOW_Q), 2)
settings_set_float(TOY_RSCALE, 0.2)
expect(settings_get_float(TOY_RSCALE) > 0.77)
test "a value out of range is the default" (base_st: mut BaseState, settings_st: mut SettingsState) {
declare(base_st, settings_st)
settings_set_int(base_st, settings_st, TOY_SHADOW_Q, 9)
expect_eq(settings_get_int(settings_st, TOY_SHADOW_Q), 2)
settings_set_float(base_st, settings_st, TOY_RSCALE, 0.2)
expect(settings_get_float(settings_st, TOY_RSCALE) > 0.77)
}
test "a rescue puts back only what it lists" {
declare()
settings_set_int(TOY_SHADOW_Q, 0)
settings_set_bool(TOY_BLOOM, false)
expect(not settings_is_safe(TOY_SHADOW_Q))
settings_rescue()
expect_eq(settings_get_int(TOY_SHADOW_Q), 2)
expect(not settings_get_bool(TOY_BLOOM))
test "a rescue puts back only what it lists" (base_st: mut BaseState, settings_st: mut SettingsState) {
declare(base_st, settings_st)
settings_set_int(base_st, settings_st, TOY_SHADOW_Q, 0)
settings_set_bool(base_st, settings_st, TOY_BLOOM, false)
expect(not settings_is_safe(settings_st, TOY_SHADOW_Q))
settings_rescue(settings_st)
expect_eq(settings_get_int(settings_st, TOY_SHADOW_Q), 2)
expect(not settings_get_bool(settings_st, TOY_BLOOM))
}
test "the file is by key, and what it lacks or cannot hold keeps the store's" {
declare()
settings_set_float(TOY_RSCALE, 0.9)
settings_set_text(TOY_LANG, "tr")
settings_set_bool(TOY_HELD, true)
let text = Json.encode(settings_to_json())
declare()
settings_set_bool(TOY_BLOOM, false)
test "the file is by key, and what it lacks or cannot hold keeps the store's" (base_st: mut BaseState, settings_st: mut SettingsState) {
declare(base_st, settings_st)
settings_set_float(base_st, settings_st, TOY_RSCALE, 0.9)
settings_set_text(base_st, settings_st, TOY_LANG, "tr")
settings_set_bool(base_st, settings_st, TOY_HELD, true)
let text = Json.encode(settings_to_json(settings_st))
declare(base_st, settings_st)
settings_set_bool(base_st, settings_st, TOY_BLOOM, false)
let v = Json.parse(text)
Value.put(v, "shadow_q", Value.int(7))
Value.put(v, "stranger", Value.int(1))
settings_from_json(v)
expect(settings_get_float(TOY_RSCALE) > 0.89)
expect(settings_get_text(TOY_LANG) == "tr")
expect_eq(settings_get_int(TOY_SHADOW_Q), 2)
expect(settings_get_bool(TOY_BLOOM))
expect(not settings_get_bool(TOY_HELD))
expect(Value.has(settings_to_json(), "held") == 0)
settings_from_json(settings_st, v)
expect(settings_get_float(settings_st, TOY_RSCALE) > 0.89)
expect(settings_get_text(settings_st, TOY_LANG) == "tr")
expect_eq(settings_get_int(settings_st, TOY_SHADOW_Q), 2)
expect(settings_get_bool(settings_st, TOY_BLOOM))
expect(not settings_get_bool(settings_st, TOY_HELD))
expect(Value.has(settings_to_json(settings_st), "held") == 0)
}
}