| … | … | @@ -37,11 +37,11 @@ |
| 37 | 37 | |
| 38 | 38 | (test-equal "lower-node-size" 2 (length (cog-get-atoms 'Node #t))) |
| 39 | 39 | (test-equal "lower-link-size" 0 (length (cog-get-atoms 'Link #t))) |
| 40 | | (test-assert "extract-fail" (not (cog-extract! a))) |
| 40 | (Delete a) |
| 41 | 41 | (test-equal "ex-lower-node-size" 2 (length (cog-get-atoms 'Node #t))) |
| 42 | 42 | (test-equal "ex-lower-link-size" 0 (length (cog-get-atoms 'Link #t))) |
| 43 | 43 | |
| 44 | | (test-assert "extract-works" (cog-extract-recursive! a)) |
| 44 | (DeleteRecursive a) |
| 45 | 45 | (test-equal "post-ex-lower-node-size" 1 (length (cog-get-atoms 'Node #t))) |
| 46 | 46 | (test-equal "post-ex-lower-link-size" 0 (length (cog-get-atoms 'Link #t))) |
| 47 | 47 | |
| … | … | @@ -88,10 +88,10 @@ |
| 88 | 88 | (cog-set-atomspace! upper-space) |
| 89 | 89 | (test-equal "upper-size" 3 (length (cog-get-atoms 'Atom #t))) |
| 90 | 90 | |
| 91 | | (test-assert "extract-fail" (not (cog-extract! a))) |
| 91 | (Delete a) |
| 92 | 92 | (test-equal "ex-upper-size" 3 (length (cog-get-atoms 'Atom #t))) |
| 93 | 93 | |
| 94 | | (test-assert "extract-works" (cog-extract-recursive! a)) |
| 94 | (DeleteRecursive a) |
| 95 | 95 | (test-equal "post-ex-upper-size" 1 (length (cog-get-atoms 'Atom #t))) |
| 96 | 96 | (test-equal "empty-income" 0 (length (cog-incoming-set b))) |
| 97 | 97 | |
| … | … | @@ -126,7 +126,7 @@ |
| 126 | 126 | (cog-set-atomspace! lower-space) |
| 127 | 127 | |
| 128 | 128 | (test-equal "lower-size" 2 (length (cog-get-atoms 'Atom #t))) |
| 129 | | (test-assert "extract-works" (cog-extract! a)) |
| 129 | (Delete a) |
| 130 | 130 | (test-equal "ex-lower-size" 1 (length (cog-get-atoms 'Atom #t))) |
| 131 | 131 | (test-equal "lower-b-only" (list b) (cog-get-atoms 'Atom #t)) |
| 132 | 132 | (test-equal "empty-income" 0 (length (cog-incoming-set b))) |