(use-modules (languages gstep-guile)) (define oneServ ([] "NetServer" alloc)) (greg-exceptpass "NetServer initialisation" (eq? ([] oneServ init) oneServ)) (greg-exceptpass "NetServer initial partyList length" (eq? ([] ([] oneServ partyList) count) 0)) ([] oneServ createParty: ($$ "oneParty")) (greg-exceptpass "NetServer partyList length after createParty" (eq? ([] ([] oneServ partyList) count) 1)) (greg-exceptpass "NetServer partyList length after removeParty" (lambda () (define party ([] oneServ partyWithName: ($$ "oneParty"))) ([] oneServ removeParty: party) (eq? ([] ([] oneServ partyList) count) 0) ))