| … | … | @@ -110,9 +110,6 @@ |
| 110 | 110 | ;; Start the cogserver |
| 111 | 111 | (cog-set-value! single-csn (Predicate "*-start-*") (VoidValue)) |
| 112 | 112 | |
| 113 | | (test-assert "single-start" |
| 114 | | (cog-atom? single-csn)) |
| 115 | | |
| 116 | 113 | ;; Test *-is-running?-* after start |
| 117 | 114 | (test-assert "single-running-after-start" |
| 118 | 115 | (cogserver-running? single-csn)) |
| … | … | @@ -143,24 +140,13 @@ |
| 143 | 140 | (define s1-telnet 17201) (define s1-web 18281) |
| 144 | 141 | (define s2-telnet 17202) (define s2-web 18282) |
| 145 | 142 | (define s3-telnet 17203) (define s3-web 18283) |
| 146 | | (define csn1 #f) |
| 147 | | (define csn2 #f) |
| 148 | | (define csn3 #f) |
| 149 | | |
| 150 | | (test-assert "three-start-A" |
| 151 | | (begin |
| 152 | | (set! csn1 (start-named-cogserver "cogserver-A" s1-telnet s1-web)) |
| 153 | | (cog-atom? csn1))) |
| 154 | | |
| 155 | | (test-assert "three-start-B" |
| 156 | | (begin |
| 157 | | (set! csn2 (start-named-cogserver "cogserver-B" s2-telnet s2-web)) |
| 158 | | (cog-atom? csn2))) |
| 143 | (define csn1 (start-named-cogserver "cogserver-A" s1-telnet s1-web)) |
| 144 | (define csn2 (start-named-cogserver "cogserver-B" s2-telnet s2-web)) |
| 145 | (define csn3 (start-named-cogserver "cogserver-C" s3-telnet s3-web)) |
| 159 | 146 | |
| 160 | | (test-assert "three-start-C" |
| 161 | | (begin |
| 162 | | (set! csn3 (start-named-cogserver "cogserver-C" s3-telnet s3-web)) |
| 163 | | (cog-atom? csn3))) |
| 147 | (test-assert "three-start-A" (cog-atom? csn1)) |
| 148 | (test-assert "three-start-B" (cog-atom? csn2)) |
| 149 | (test-assert "three-start-C" (cog-atom? csn3)) |
| 164 | 150 | |
| 165 | 151 | ;; Test connectivity to all six ports |
| 166 | 152 | (test-assert "three-A-telnet-reachable" |
| … | … | @@ -182,12 +168,9 @@ |
| 182 | 168 | (can-connect-to-port? s3-web)) |
| 183 | 169 | |
| 184 | 170 | ;; Stop all cogservers |
| 185 | | (test-assert "three-stop-all" |
| 186 | | (begin |
| 187 | | (stop-named-cogserver csn1) |
| 188 | | (stop-named-cogserver csn2) |
| 189 | | (stop-named-cogserver csn3) |
| 190 | | #t)) |
| 171 | (stop-named-cogserver csn1) |
| 172 | (stop-named-cogserver csn2) |
| 173 | (stop-named-cogserver csn3) |
| 191 | 174 | |
| 192 | 175 | ;; Verify all ports are closed |
| 193 | 176 | (test-assert "three-A-telnet-closed" |