/[hegemonie]/hegemonie/Testing/Network/testNetServer.scm
ViewVC logotype

Diff of /hegemonie/Testing/Network/testNetServer.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by thunder, Thu Jun 5 08:38:41 2003 UTC revision 1.3 by thunder, Fri Jun 6 09:58:10 2003 UTC
# Line 7  Line 7 
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                     ))                     ))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26