(define myConn ([] ([] "NSConnection" alloc) init)) (define oneServ ([] ([] "NetServer" alloc) init)) (define newParty ([] "NetParty" alloc) initWithName: ($$ "part1") inServer: oneServ) (define client ([] "NetInfosClient" alloc)) (greg-testcase "NetInfosClient initialisation" #t (lambda () (equal? ([] client initWithParty: newParty inConnection: myConn playerName: ($$ "toto")) client) ))