; -*- Scheme -*- ; ; $Id: testHgShip.scm,v 1.1 2003/05/26 13:34:50 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 ship ([] "HgShip" alloc)) (greg-testcase "HgMobile initialisation" #t (lambda () (define game ([] ([] "HgGame" alloc) initWithName: ($$ "meuh"))) (equal? ship ([] ship initWithGame: game position: '(1.5 2.0 6.0) velocity: '(5.75 6.5 7.0) angularVelocity: '(8.5 9.0 10.0) acceleration: 5.0 direction: 11.0)))) (greg-testcase "HgShip fuel accessors" #t (lambda () ([] ship setFuel: 21) (equal? 20 ([] ship fuel)))) (greg-testcase "HgShip fireRate accessor" #t (lambda () (equal? 29 ([] ship fireRate)))) (greg-testcase "HgShip weapons accessor" #t (lambda () (equal? ([] ship weapons)))) (greg-testcase "HgShip capacities1 accessor" #t (lambda () (equal? ([] ship capacities1)))) (greg-testcase "HgShip capacities2 accessor" #t (lambda () (equal? ([] ship capacities2)))) ;(greg-testcase "HgShip nbAmmos accessor" #t ; (lambda () ; ([] ship setPosition: '(4.0 5.0 6.5)) ; (equal? '(4.0 5.0 6.5) ([] ship position)))) ;(greg-testcase "HgShip orientation accessors" #t ; (lambda () ; ([] ship setOrientation: '(2.0 3.0 7.0)) ; (equal? '(2.0 3.0 7.0) ([] ship orientation)))) ;(greg-testcase "HgShip position after initialisation" #t ; (lambda () ; (equal? 29 ([] ship fireRate))))