OverviewFilesCommitsIssuesDocsReleasesPeers

opencog-atomspace-rocks commits / 5c461d0

Check return values appropriately
5c461d069d164b7de73b4b3dbe14506b7b8af269
by Linas Vepstas <linasvepstas@gmail.com> · 2025-12-08T20:03:55.000Z

Changed files (6) +26 -26

tests/persist/rocks/frame-delete-test.scm +6 -6
……@@ -121,14 +121,14 @@
121121
122122 ; Should be absent in the next level.
123123 (cog-set-atomspace! mid1-space)
124 (test-assert "mid1-absent" (nil? (cog-node 'Concept "foo")))
124 (test-assert "mid1-absent" (not (cog-node 'Concept "foo")))
125125
126126 (cog-set-atomspace! mid2-space)
127127 (test-assert "mid2-space" (cog-atom? (cog-node 'Concept "foo")))
128128 (test-equal "mid2-tv" 5 (get-cnt (cog-node 'Concept "foo")))
129129
130130 (cog-set-atomspace! mid3-space)
131 (test-assert "mid3-absent" (nil? (cog-node 'Concept "foo")))
131 (test-assert "mid3-absent" (not (cog-node 'Concept "foo")))
132132
133133 (cog-set-atomspace! surface-space)
134134 (test-assert "surface-space" (cog-atom? (cog-node 'Concept "foo")))
……@@ -228,7 +228,7 @@
228228
229229 ; Should be absent in the next level.
230230 (cog-set-atomspace! mid1-space)
231 (test-assert "mid1-space" (nil? (cog-node 'Concept "foo")))
231 (test-assert "mid1-space" (not (cog-node 'Concept "foo")))
232232
233233 ; Test remaining levels.
234234 (cog-set-atomspace! mid2-space)
……@@ -236,7 +236,7 @@
236236 (test-equal "mid2-tv" 4 (get-cnt (cog-node 'Concept "foo")))
237237
238238 (cog-set-atomspace! mid3-space)
239 (test-assert "mid3-space" (nil? (cog-node 'Concept "foo")))
239 (test-assert "mid3-space" (not (cog-node 'Concept "foo")))
240240
241241 (cog-set-atomspace! surface-space)
242242 (test-assert "surface-space" (cog-atom? (cog-node 'Concept "foo")))
……@@ -343,7 +343,7 @@
343343
344344 ; Should be absent in the next level.
345345 (cog-set-atomspace! mid1-space)
346 (test-assert "mid1-space" (nil? (cog-node 'Concept "foo")))
346 (test-assert "mid1-space" (not (cog-node 'Concept "foo")))
347347
348348 (cog-set-atomspace! mid2-space)
349349 (test-assert "mid2-space" (cog-atom? (cog-node 'Concept "foo")))
……@@ -352,7 +352,7 @@
352352 (ListLink (Concept "foo") (Concept "bar"))))
353353
354354 (cog-set-atomspace! mid3-space)
355 (test-assert "mid3-space" (nil? (cog-node 'Concept "foo")))
355 (test-assert "mid3-space" (not (cog-node 'Concept "foo")))
356356
357357 (cog-set-atomspace! surface-space)
358358 (test-assert "surface-space" (cog-atom? (cog-node 'Concept "foo")))
tests/persist/rocks/space-delete-test.scm +1 -1
……@@ -136,7 +136,7 @@
136136 (define mid1-space top-space)
137137 (define base-space (cog-outgoing-atom mid1-space 0))
138138
139 (test-assert "lily-gone" (nil? (cog-link 'ListLink
139 (test-assert "lily-gone" (not (cog-link 'ListLink
140140 (Concept "foo") (Concept "bar"))))
141141
142142 ; Verify appropriate atomspace membership
tests/persist/rocks/value-readd-test.scm +3 -3
……@@ -104,10 +104,10 @@
104104
105105 ; ----------------------------------
106106 (cog-set-atomspace! mid2-space)
107 (test-assert "no-link-2" (nil?
107 (test-assert "no-link-2" (not
108108 (cog-link 'List (Concept "foo") (Concept "bar"))))
109 (test-assert "link-2fa" (not (nil?
110 (cog-link 'List (Concept "foo") (Concept "faa")))))
109 (test-assert "link-2fa" (cog-atom?
110 (cog-link 'List (Concept "foo") (Concept "faa"))))
111111 (test-equal "foo2-space" base-space (cog-atomspace (cog-node 'Concept "foo")))
112112 (test-equal "bar2-space" base-space (cog-atomspace (cog-node 'Concept "bar")))
113113
tests/persist/rocks/value-resave-test.scm +1 -1
……@@ -104,7 +104,7 @@
104104
105105 ; ----------------------------------
106106 (cog-set-atomspace! mid2-space)
107 (test-assert "no-link-2" (nil?
107 (test-assert "no-link-2" (not
108108 (cog-link 'List (Concept "foo") (Concept "bar"))))
109109 (test-equal "foo2-space" mid2-space (cog-atomspace (cog-node 'Concept "foo")))
110110 (test-equal "bar2-space" base-space (cog-atomspace (cog-node 'Concept "bar")))
tests/persist/rocks/value-reval-test.scm +1 -1
……@@ -106,7 +106,7 @@
106106
107107 ; ----------------------------------
108108 (cog-set-atomspace! mid2-space)
109 (test-assert "no-link-2" (nil?
109 (test-assert "no-link-2" (not
110110 (cog-link 'List (Concept "foo") (Concept "bar"))))
111111 (test-equal "foo2-space" mid2-space (cog-atomspace (cog-node 'Concept "foo")))
112112 (test-equal "bar2-space" base-space (cog-atomspace (cog-node 'Concept "bar")))
tests/persist/rocks/valueless-test.scm +14 -14
……@@ -93,39 +93,39 @@
9393
9494 ; Verify that atoms appear and disappear properly.
9595 (cog-set-atomspace! base-space)
96 (test-assert "yes-even-0" (not (nil? (cog-node 'Concept "even"))))
97 (test-assert "no-odd-0" (nil? (cog-node 'Concept "odd")))
96 (test-assert "yes-even-0" (cog-atom? (cog-node 'Concept "even")))
97 (test-assert "no-odd-0" (not (cog-node 'Concept "odd")))
9898 (test-equal "even-0 as" base-space (cog-atomspace (cog-node 'Concept "even")))
9999
100100 (cog-set-atomspace! mid1-space)
101 (test-assert "yes-even-1" (not (nil? (cog-node 'Concept "even"))))
102 (test-assert "yes-odd-1" (not (nil? (cog-node 'Concept "odd"))))
101 (test-assert "yes-even-1" (cog-atom? (cog-node 'Concept "even")))
102 (test-assert "yes-odd-1" (cog-atom? (cog-node 'Concept "odd")))
103103 (test-equal "even-1 as" base-space (cog-atomspace (cog-node 'Concept "even")))
104104 (test-equal "odd-1 as" mid1-space (cog-atomspace (cog-node 'Concept "odd")))
105105
106106 (cog-set-atomspace! mid2-space)
107 (test-assert "no-even-2" (nil? (cog-node 'Concept "even")))
108 (test-assert "yes-odd-2" (not (nil? (cog-node 'Concept "odd"))))
107 (test-assert "no-even-2" (not (cog-node 'Concept "even")))
108 (test-assert "yes-odd-2" (cog-atom? (cog-node 'Concept "odd")))
109109 (test-equal "odd-2 as" mid1-space (cog-atomspace (cog-node 'Concept "odd")))
110110
111111 (cog-set-atomspace! mid3-space)
112 (test-assert "no-even-3" (nil? (cog-node 'Concept "even")))
113 (test-assert "no-odd-3" (nil? (cog-node 'Concept "odd")))
112 (test-assert "no-even-3" (not (cog-node 'Concept "even")))
113 (test-assert "no-odd-3" (not (cog-node 'Concept "odd")))
114114
115115 (cog-set-atomspace! mid4-space)
116 (test-assert "yes-even-4" (not (nil? (cog-node 'Concept "even"))))
117 (test-assert "no-odd-4" (nil? (cog-node 'Concept "odd")))
116 (test-assert "yes-even-4" (cog-atom? (cog-node 'Concept "even")))
117 (test-assert "no-odd-4" (not (cog-node 'Concept "odd")))
118118 (test-equal "even-4 as" mid4-space (cog-atomspace (cog-node 'Concept "even")))
119119
120120 (cog-set-atomspace! mid5-space)
121 (test-assert "yes-even-5" (not (nil? (cog-node 'Concept "even"))))
122 (test-assert "yes-odd-5" (not (nil? (cog-node 'Concept "odd"))))
121 (test-assert "yes-even-5" (cog-atom? (cog-node 'Concept "even")))
122 (test-assert "yes-odd-5" (cog-atom? (cog-node 'Concept "odd")))
123123 (test-equal "even-5 as" mid4-space (cog-atomspace (cog-node 'Concept "even")))
124124 (test-equal "odd-5 as" mid5-space (cog-atomspace (cog-node 'Concept "odd")))
125125
126126 (cog-set-atomspace! top-space)
127 (test-assert "yes-even-6" (not (nil? (cog-node 'Concept "even"))))
128 (test-assert "yes-odd-6" (not (nil? (cog-node 'Concept "odd"))))
127 (test-assert "yes-even-6" (cog-atom? (cog-node 'Concept "even")))
128 (test-assert "yes-odd-6" (cog-atom? (cog-node 'Concept "odd")))
129129 (test-equal "even-6 as" mid4-space (cog-atomspace (cog-node 'Concept "even")))
130130 (test-equal "odd-6 as" mid5-space (cog-atomspace (cog-node 'Concept "odd")))
131131)