7 |
(define oneServ ([] "NetServer" alloc)) |
(define oneServ ([] "NetServer" alloc)) |
8 |
|
|
9 |
(greg-exceptpass "NetServer initialisation" |
(greg-exceptpass "NetServer initialisation" |
10 |
(eq? ([] oneServ init) oneServ)) |
(equal? ([] oneServ init) oneServ)) |
11 |
|
|
12 |
(greg-exceptpass "NetServer initial partyList length" |
(greg-exceptpass "NetServer initial partyList length" |
13 |
(eq? ([] ([] oneServ partyList) count) 0)) |
(equal? ([] ([] oneServ partyList) count) 0)) |
14 |
|
|
15 |
([] oneServ createParty: ($$ "oneParty")) |
([] oneServ createParty: ($$ "oneParty")) |
16 |
(greg-exceptpass "NetServer partyList length after createParty" |
(greg-exceptpass "NetServer partyList length after createParty" |
17 |
(eq? ([] ([] oneServ partyList) count) 1)) |
(equal? ([] ([] oneServ partyList) count) 1)) |
18 |
|
|
19 |
(greg-exceptpass "NetServer partyList length after removeParty" |
(greg-exceptpass "NetServer partyList length after removeParty" |
20 |
(lambda () |
(lambda () |
21 |
(define party ([] oneServ partyWithName: ($$ "oneParty"))) |
(define party ([] oneServ partyWithName: ($$ "oneParty"))) |
22 |
([] oneServ removeParty: party) |
([] oneServ removeParty: party) |
23 |
(eq? ([] ([] oneServ partyList) count) 0) |
(equal? ([] ([] oneServ partyList) count) 0) |
24 |
)) |
)) |