| … | … | @@ -65,7 +65,8 @@ |
| 65 | 65 | (count-all (cog-value (ConceptNode "foo") (Predicate "repressed mem")))) |
| 66 | 66 | |
| 67 | 67 | ; Verify contents |
| 68 | | (test-assert "base-count" (equal? 11 (count-all))) |
| 68 | ; 11 atoms + 1 for Predicate "*-IsKeyFlag-*" |
| 69 | (test-assert "base-count" (equal? 12 (count-all))) |
| 69 | 70 | (test-assert "space1-count" (equal? 8 |
| 70 | 71 | (count-all (cog-value (ConceptNode "foo") (Predicate "real life"))))) |
| 71 | 72 | (test-assert "space2-count" (equal? 6 |
| … | … | @@ -126,10 +127,10 @@ |
| 126 | 127 | (count-all (cog-value (ConceptNode "foo") (Predicate "real life"))) |
| 127 | 128 | (count-all (cog-value (ConceptNode "foo") (Predicate "repressed mem")))) |
| 128 | 129 | |
| 129 | | ; 11 loaded plus three FileStorageNodes |
| 130 | ; 11 loaded + 1 for *-IsKeyFlag-* + three FileStorageNodes |
| 130 | 131 | ; Plus four more: (Predicate "*-store-atomspace-*") |
| 131 | 132 | ; and (Predicate "*-load-atomspace-*") and *-open-* and *-close-* |
| 132 | | (test-assert "base-count" (equal? 18 (count-all))) |
| 133 | (test-assert "base-count" (equal? 19 (count-all))) |
| 133 | 134 | (test-assert "space1-count" (equal? 0 |
| 134 | 135 | (count-all (cog-value (ConceptNode "foo") (Predicate "real life"))))) |
| 135 | 136 | (test-assert "space2-count" (equal? 0 |
| … | … | @@ -155,7 +156,8 @@ |
| 155 | 156 | (count-all (cog-value (ConceptNode "foo") (Predicate "real life"))) |
| 156 | 157 | (count-all (cog-value (ConceptNode "foo") (Predicate "repressed mem")))) |
| 157 | 158 | |
| 158 | | (test-assert "base-count" (equal? 18 (count-all))) |
| 159 | ; Same count as before: 19 (with *-IsKeyFlag-* marker) |
| 160 | (test-assert "base-count" (equal? 19 (count-all))) |
| 159 | 161 | (test-assert "space1-count" (equal? 11 |
| 160 | 162 | (count-all (cog-value (ConceptNode "foo") (Predicate "real life"))))) |
| 161 | 163 | (test-assert "space2-count" (equal? 9 |