Orkuncakilkaya
71735b10a2
ludic.base's Queue<T> carries a QueueTag (its name and pending count): queue_new(name), q_push(q, v), q_drain(q), q_clear(q) take no BaseState, and core_undrained(tags) names the given queues still holding facts. A reducer on a package's state can now call that package's verbs (wallet_earn(wallet_st, n)). ludic migrate state --prune (ludicc --migrate-prune) takes out each state parameter a function no longer uses, nor anything it calls, and the argument that fills it - including an argument for a parameter the callee has dropped, which is taken out before the call is checked, so a generic's T is told by the argument that says it. A reducer keeps its state. --dry-run now counts the edits it would make. Every package was moved with it: 608 base_st parameters and their arguments, 1889 edits. Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
66 lines
2.9 KiB
Text
66 lines
2.9 KiB
Text
# route_test.ludic - a game made of two mechanics that do not know each other: the route turns
|
|
# fishing's facts into the pack's verbs, and the game binds fishing's port and orders them
|
|
import "toys/fishing"
|
|
import "toys/pack"
|
|
import "ludic.base"
|
|
program RouteTest {
|
|
numbers float
|
|
|
|
function water_everywhere_but_land(x: float, z: float) -> bool { return x < 100.0 }
|
|
bind FishingWorld { is_water: fn water_everywhere_but_land }
|
|
|
|
# the route: a landed fish goes into the pack
|
|
function route_fishing_pack(toy_fishing_st: ToyFishingState, toy_pack_st: mut ToyPackState, t: Tick) -> void {
|
|
let fish = q_drain(toy_fishing_st.caught)
|
|
for i in 0 .. len(fish) { pack_add(toy_pack_st, fish[i].species, 1) }
|
|
}
|
|
|
|
function game_start(base_st: mut BaseState) -> void {
|
|
core_clear(base_st)
|
|
core_add(base_st, fishing_system())
|
|
let r = system_new("route.fishing_pack", PH_RESOLVE)
|
|
r.tick = fn route_fishing_pack
|
|
core_add(base_st, r)
|
|
core_add(base_st, pack_system())
|
|
core_reset_all(base_st)
|
|
}
|
|
|
|
function pack_total(toy_pack_st: ToyPackState) -> int { return pack_count(toy_pack_st, 0) + pack_count(toy_pack_st, 1) + pack_count(toy_pack_st, 2) }
|
|
|
|
test "three casts on water land three fish in the pack, one on land lands nothing" (base_st: mut BaseState, toy_fishing_st: mut ToyFishingState, toy_pack_st: ToyPackState) {
|
|
game_start(base_st)
|
|
expect(fishing_cast(toy_fishing_st, 1.0, 2.0))
|
|
expect(fishing_cast(toy_fishing_st, 3.0, 2.0))
|
|
expect(fishing_cast(toy_fishing_st, 5.0, 2.0))
|
|
expect(not fishing_cast(toy_fishing_st, 500.0, 2.0))
|
|
core_tick_all(base_st, tick_new(1.0 / 60.0, 0, 0.0))
|
|
expect_eq(pack_total(toy_pack_st), 3)
|
|
expect_eq(len(core_undrained([q_tag(toy_fishing_st.caught)])), 0)
|
|
}
|
|
|
|
test "the pack saves its own section and the fishing, which saves nothing, is reset" (base_st: mut BaseState, toy_fishing_st: mut ToyFishingState, toy_pack_st: ToyPackState) {
|
|
game_start(base_st)
|
|
fishing_cast(toy_fishing_st, 1.0, 1.0)
|
|
core_tick_all(base_st, tick_new(1.0 / 60.0, 0, 0.0))
|
|
let text = save_encode(core_save_all(base_st))
|
|
let tree = save_decode(text)
|
|
expect_eq(Value.count(tree), 1)
|
|
expect_eq(load_section(tree, "pack").version, 1)
|
|
expect(not load_section(tree, "fishing").found)
|
|
core_reset_all(base_st)
|
|
expect_eq(pack_total(toy_pack_st), 0)
|
|
core_load_all(base_st, save_decode(text))
|
|
expect_eq(pack_total(toy_pack_st), 1)
|
|
}
|
|
|
|
test "the same seed lands the same fish" (base_st: mut BaseState, toy_fishing_st: mut ToyFishingState) {
|
|
game_start(base_st)
|
|
fishing_cast(toy_fishing_st, 1.0, 1.0)
|
|
core_tick_all(base_st, tick_new(1.0 / 60.0, 0, 0.0))
|
|
let first = save_encode(core_save_all(base_st))
|
|
game_start(base_st)
|
|
fishing_cast(toy_fishing_st, 1.0, 1.0)
|
|
core_tick_all(base_st, tick_new(1.0 / 60.0, 0, 0.0))
|
|
expect(save_encode(core_save_all(base_st)) == first)
|
|
}
|
|
}
|