Mercurial > games > semicongine

annotate tests/test_storage.nim @ 1499:1f58458b7ef7 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
did: fix a few issues with tests
author sam <sam@basx.dev>
date Tue, 14 Oct 2025 00:27:28 +0700
parents 63364723d460
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1286
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
1 import std/strformat
1499
1f58458b7ef7 did: fix a few issues with tests
sam <sam@basx.dev>
parents: 1470
diff changeset
2 import std/sequtils
1286
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
3
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
4 import ../semicongine
1427
676fc13685a9 did: restructure files and imports
sam <sam@basx.dev>
parents: 1423
diff changeset
5 import ../semicongine/storage
1286
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
6
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
7 proc testSimple(storage: StorageType) =
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
8 const TEST_VALUE = 42
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
9 const KEY = "test"
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
10
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
11 # get default
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
12 assert storage.load(KEY, 0) == default(type(TEST_VALUE))
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
13
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
14 # save and load custom
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
15 store(storage, KEY, TEST_VALUE)
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
16 assert storage.load(KEY, 0) == TEST_VALUE
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
17
1470
63364723d460 fix: make de-/serialization work with all kinds of weird object configurtions
sam <sam@basx.dev>
parents: 1468
diff changeset
18 type ID = distinct int
63364723d460 fix: make de-/serialization work with all kinds of weird object configurtions
sam <sam@basx.dev>
parents: 1468
diff changeset
19 proc `==`(a, b: ID): bool =
63364723d460 fix: make de-/serialization work with all kinds of weird object configurtions
sam <sam@basx.dev>
parents: 1468
diff changeset
20 `==`(int(a), int(b))
63364723d460 fix: make de-/serialization work with all kinds of weird object configurtions
sam <sam@basx.dev>
parents: 1468
diff changeset
21
1464
3e3192241ea7 add: API for world/level storage
sam <sam@basx.dev>
parents: 1427
diff changeset
22 proc testWorldAPI() =
1465
7b2ec9f3d0f6 add: external serialization library
sam <sam@basx.dev>
parents: 1464
diff changeset
23 type Obj1 = object
7b2ec9f3d0f6 add: external serialization library
sam <sam@basx.dev>
parents: 1464
diff changeset
24 value: int
1470
63364723d460 fix: make de-/serialization work with all kinds of weird object configurtions
sam <sam@basx.dev>
parents: 1468
diff changeset
25 id: ID
1465
7b2ec9f3d0f6 add: external serialization library
sam <sam@basx.dev>
parents: 1464
diff changeset
26
7b2ec9f3d0f6 add: external serialization library
sam <sam@basx.dev>
parents: 1464
diff changeset
27 type Obj2 = object
1468
cbca94a95736 add: custom serialization
sam <sam@basx.dev>
parents: 1465
diff changeset
28 a: string
cbca94a95736 add: custom serialization
sam <sam@basx.dev>
parents: 1465
diff changeset
29 b: Obj1
cbca94a95736 add: custom serialization
sam <sam@basx.dev>
parents: 1465
diff changeset
30 c: seq[int]
cbca94a95736 add: custom serialization
sam <sam@basx.dev>
parents: 1465
diff changeset
31 d: array[3, Obj1]
cbca94a95736 add: custom serialization
sam <sam@basx.dev>
parents: 1465
diff changeset
32 e: bool
1465
7b2ec9f3d0f6 add: external serialization library
sam <sam@basx.dev>
parents: 1464
diff changeset
33
1464
3e3192241ea7 add: API for world/level storage
sam <sam@basx.dev>
parents: 1427
diff changeset
34 assert listWorlds().len == 0
3e3192241ea7 add: API for world/level storage
sam <sam@basx.dev>
parents: 1427
diff changeset
35
1470
63364723d460 fix: make de-/serialization work with all kinds of weird object configurtions
sam <sam@basx.dev>
parents: 1468
diff changeset
36 const obj1 = Obj1(value: 42, id: ID(1))
1465
7b2ec9f3d0f6 add: external serialization library
sam <sam@basx.dev>
parents: 1464
diff changeset
37 "testWorld".storeWorld(obj1)
1499
1f58458b7ef7 did: fix a few issues with tests
sam <sam@basx.dev>
parents: 1470
diff changeset
38 assert listWorlds()[0][1] == "testWorld"
1f58458b7ef7 did: fix a few issues with tests
sam <sam@basx.dev>
parents: 1470
diff changeset
39 var myWorld: Obj1
1f58458b7ef7 did: fix a few issues with tests
sam <sam@basx.dev>
parents: 1470
diff changeset
40 loadWorld[Obj1]("testWorld", myWorld)
1f58458b7ef7 did: fix a few issues with tests
sam <sam@basx.dev>
parents: 1470
diff changeset
41 assert myWorld == obj1
1464
3e3192241ea7 add: API for world/level storage
sam <sam@basx.dev>
parents: 1427
diff changeset
42
1468
cbca94a95736 add: custom serialization
sam <sam@basx.dev>
parents: 1465
diff changeset
43 const obj2 = Obj2(
cbca94a95736 add: custom serialization
sam <sam@basx.dev>
parents: 1465
diff changeset
44 a: "Hello world",
1470
63364723d460 fix: make de-/serialization work with all kinds of weird object configurtions
sam <sam@basx.dev>
parents: 1468
diff changeset
45 b: Obj1(value: 20, id: ID(20)),
1468
cbca94a95736 add: custom serialization
sam <sam@basx.dev>
parents: 1465
diff changeset
46 c: @[1, 2, 3, 4],
1470
63364723d460 fix: make de-/serialization work with all kinds of weird object configurtions
sam <sam@basx.dev>
parents: 1468
diff changeset
47 d: [
63364723d460 fix: make de-/serialization work with all kinds of weird object configurtions
sam <sam@basx.dev>
parents: 1468
diff changeset
48 Obj1(value: 1, id: ID(11)), Obj1(value: 2, id: ID(22)), Obj1(value: 3, id: ID(33))
63364723d460 fix: make de-/serialization work with all kinds of weird object configurtions
sam <sam@basx.dev>
parents: 1468
diff changeset
49 ],
1468
cbca94a95736 add: custom serialization
sam <sam@basx.dev>
parents: 1465
diff changeset
50 e: true,
cbca94a95736 add: custom serialization
sam <sam@basx.dev>
parents: 1465
diff changeset
51 )
1465
7b2ec9f3d0f6 add: external serialization library
sam <sam@basx.dev>
parents: 1464
diff changeset
52 "testWorld".storeWorld(obj2)
1499
1f58458b7ef7 did: fix a few issues with tests
sam <sam@basx.dev>
parents: 1470
diff changeset
53 assert listWorlds()[0][1] == "testWorld"
1f58458b7ef7 did: fix a few issues with tests
sam <sam@basx.dev>
parents: 1470
diff changeset
54 var otherWorld: Obj2
1f58458b7ef7 did: fix a few issues with tests
sam <sam@basx.dev>
parents: 1470
diff changeset
55 loadWorld[Obj2]("testWorld", otherWorld)
1f58458b7ef7 did: fix a few issues with tests
sam <sam@basx.dev>
parents: 1470
diff changeset
56 assert otherWorld == obj2
1464
3e3192241ea7 add: API for world/level storage
sam <sam@basx.dev>
parents: 1427
diff changeset
57
1465
7b2ec9f3d0f6 add: external serialization library
sam <sam@basx.dev>
parents: 1464
diff changeset
58 "earth".storeWorld(obj2)
1499
1f58458b7ef7 did: fix a few issues with tests
sam <sam@basx.dev>
parents: 1470
diff changeset
59 assert "earth" in listWorlds().mapIt(it[1])
1f58458b7ef7 did: fix a few issues with tests
sam <sam@basx.dev>
parents: 1470
diff changeset
60 assert "testWorld" in listWorlds().mapIt(it[1])
1f58458b7ef7 did: fix a few issues with tests
sam <sam@basx.dev>
parents: 1470
diff changeset
61 var moreWorld: Obj2
1f58458b7ef7 did: fix a few issues with tests
sam <sam@basx.dev>
parents: 1470
diff changeset
62 loadWorld[Obj2]("earth", moreWorld)
1f58458b7ef7 did: fix a few issues with tests
sam <sam@basx.dev>
parents: 1470
diff changeset
63 assert moreWorld == obj2
1464
3e3192241ea7 add: API for world/level storage
sam <sam@basx.dev>
parents: 1427
diff changeset
64
3e3192241ea7 add: API for world/level storage
sam <sam@basx.dev>
parents: 1427
diff changeset
65 "earth".purgeWorld()
1499
1f58458b7ef7 did: fix a few issues with tests
sam <sam@basx.dev>
parents: 1470
diff changeset
66 assert listWorlds()[0][1] == "testWorld"
1464
3e3192241ea7 add: API for world/level storage
sam <sam@basx.dev>
parents: 1427
diff changeset
67
3e3192241ea7 add: API for world/level storage
sam <sam@basx.dev>
parents: 1427
diff changeset
68 "testWorld".purgeWorld()
3e3192241ea7 add: API for world/level storage
sam <sam@basx.dev>
parents: 1427
diff changeset
69 assert listWorlds().len == 0
3e3192241ea7 add: API for world/level storage
sam <sam@basx.dev>
parents: 1427
diff changeset
70
1286
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
71 proc stressTest(storage: StorageType) =
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
72 for i in 1 .. 10000:
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
73 let key = &"key-{i}"
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
74 store(storage, key, i)
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
75 assert storage.load(key, 0) == i
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
76
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
77 proc main() =
1423
3b8a736c45a7 did: put almost all global state into a single struct
sam <sam@basx.dev>
parents: 1332
diff changeset
78 initEngine("Test storage")
1286
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
79 SystemStorage.purge()
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
80 echo "SystemStorage: Testing simple store/load"
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
81 SystemStorage.testSimple()
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
82
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
83 UserStorage.purge()
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
84 echo "UserStorage: Testing simple store/load"
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
85 UserStorage.testSimple()
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
86
1464
3e3192241ea7 add: API for world/level storage
sam <sam@basx.dev>
parents: 1427
diff changeset
87 echo "Testing world-storage API"
3e3192241ea7 add: API for world/level storage
sam <sam@basx.dev>
parents: 1427
diff changeset
88 testWorldAPI()
3e3192241ea7 add: API for world/level storage
sam <sam@basx.dev>
parents: 1427
diff changeset
89
1286
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
90 echo "Stress test with 10'000 saves/loads"
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
91 SystemStorage.stressTest()
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
92
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
93 SystemStorage.purge()
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
94 UserStorage.purge()
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
95
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
96 when isMainModule:
ad9091fde244 add: storage tests, fix something not worth mentioning
sam <sam@basx.dev>
parents:
diff changeset
97 main()