| … | … | @@ -235,6 +235,44 @@ |
| 235 | 235 | (send-recv tri-3-web "GET /stats HTTP/1.1\r\nHost: localhost\r\n\r\n") |
| 236 | 236 | "200 OK")) |
| 237 | 237 | |
| 238 | ;; Test shared AtomSpace: create atom in server 1, find it in servers 2 and 3 |
| 239 | (test-assert "tri-shared-create" |
| 240 | (string-contains |
| 241 | (send-recv tri-1-telnet "scm\n(Concept \"foobar\")\n.\n") |
| 242 | "(Concept \"foobar\")")) |
| 243 | |
| 244 | (test-assert "tri-shared-find-2" |
| 245 | (string-contains |
| 246 | (send-recv tri-2-telnet "scm\n(cog-node 'Concept \"foobar\")\n.\n") |
| 247 | "(Concept \"foobar\")")) |
| 248 | |
| 249 | (test-assert "tri-shared-find-3" |
| 250 | (string-contains |
| 251 | (send-recv tri-3-telnet "scm\n(cog-node 'Concept \"foobar\")\n.\n") |
| 252 | "(Concept \"foobar\")")) |
| 253 | |
| 254 | ;; Verify "foobar" is also visible here in the main scheme |
| 255 | (test-assert "tri-shared-find-home" |
| 256 | (cog-atom? (cog-node 'Concept "foobar"))) |
| 257 | |
| 258 | ;; Create atom here at home, verify all three servers can find it |
| 259 | (Concept "wham bam") |
| 260 | |
| 261 | (test-assert "tri-home-find-1" |
| 262 | (string-contains |
| 263 | (send-recv tri-1-telnet "scm\n(cog-node 'Concept \"wham bam\")\n.\n") |
| 264 | "(Concept \"wham bam\")")) |
| 265 | |
| 266 | (test-assert "tri-home-find-2" |
| 267 | (string-contains |
| 268 | (send-recv tri-2-telnet "scm\n(cog-node 'Concept \"wham bam\")\n.\n") |
| 269 | "(Concept \"wham bam\")")) |
| 270 | |
| 271 | (test-assert "tri-home-find-3" |
| 272 | (string-contains |
| 273 | (send-recv tri-3-telnet "scm\n(cog-node 'Concept \"wham bam\")\n.\n") |
| 274 | "(Concept \"wham bam\")")) |
| 275 | |
| 238 | 276 | ;; Stop all three using stop-cogserver with explicit argument |
| 239 | 277 | (stop-cogserver tri-csn-1) |
| 240 | 278 | (stop-cogserver tri-csn-2) |