; -*- Scheme -*- ; ; $Id: testHgPlayerState.scm,v 1.1 2003/05/26 13:34:13 chlussea Exp $ ; ; Copyright (C) 2003 Free Software Foundation, Inc. ; ; This file is part of GNU Hégémonie. ; ; This program is free software; you can redistribute it and/or ; modify it under the terms of the GNU General Public License ; as published by the Free Software Foundation; either version 2 ; of the License, or (at your option) any later version. ; ; This program is distributed in the hope that it will be useful, ; but WITHOUT ANY WARRANTY; without even the implied warranty of ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ; GNU General Public License for more details. ; ; You should have received a copy of the GNU General Public License ; along with this program; if not, write to the Free Software ; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. (define playstat ([] "HgPlayerState" alloc)) (greg-testcase "HgPlayerState initialisation" #t (lambda () (define player ([] ([] "HgPlayer" alloc) initWithName: ($$ "yoo") user: ($$ "nul") host: ($$ "ser"))) (equal? playstat ([] playstat initWithPlayer: player)))) (greg-testcase "HgPlayerState acceleration accessors" #t (lambda () ([] playstat setAcceleration: 2.0) (equal? 2.0 ([] playstat acceleration)))) (greg-testcase "HgPlayerState direction accessors" #t (lambda () ([] playstat setDirection: 3.0) (equal? 3.0 ([] playstat direction)))) (greg-testcase "HgPlayerState canonDirection accessors" #t (lambda () ([] playstat setCanonDirection: 4.0) (equal? 4.0 ([] playstat canonDirection)))) (greg-testcase "HgPlayerState canonElevation accessors" #t (lambda () ([] playstat setCanonElevation: 5) (equal? 5 ([] playstat canonElevation))))