cd70055bc7
Renamed files: constanten→constants, adt-positie→adt-position, adt-doolhof→adt-maze, adt-sleutel→adt-key, adt-tijdslimiet→adt-timer, adt-teken→adt-draw, adt-spel→adt-game. All message names, variables, comments, and tests converted to English. Also fixed counter location bug (time-label x/y were swapped). Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
59 lines
2.1 KiB
Racket
59 lines
2.1 KiB
Racket
#lang r7rs
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Tests: Maze ADT ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(define-library (pacman-project tests test-maze)
|
|
(import (scheme base)
|
|
(pp1 tests)
|
|
(pacman-project constants)
|
|
(pacman-project adt-maze))
|
|
(export test)
|
|
|
|
(begin
|
|
|
|
;; Test dimensions
|
|
(define (test-dimensions)
|
|
(define m (make-maze))
|
|
(check-eq? (m 'rows) 31 "Maze should have 31 rows")
|
|
(check-eq? (m 'cols) 28 "Maze should have 28 cols"))
|
|
|
|
;; Test wall detection (row 0 is all walls)
|
|
(define (test-wall)
|
|
(define m (make-maze))
|
|
(check ((m 'wall?) 0 0) "Cell (0,0) should be a wall")
|
|
(check ((m 'wall?) 0 14) "Cell (0,14) should be a wall"))
|
|
|
|
;; Test coin detection
|
|
(define (test-coin)
|
|
(define m (make-maze))
|
|
(check ((m 'coin?) 1 1) "Cell (1,1) should be a coin")
|
|
(check (not ((m 'coin?) 0 0)) "Cell (0,0) should not be a coin"))
|
|
|
|
;; Test door detection
|
|
(define (test-door)
|
|
(define m (make-maze))
|
|
(check ((m 'door?) 4 3) "Cell (4,3) should be a door")
|
|
(check (not ((m 'door?) 1 1)) "Cell (1,1) should not be a door"))
|
|
|
|
;; Test cell-set! and remove-door!
|
|
(define (test-mutation)
|
|
(define m (make-maze))
|
|
((m 'remove-door!) 4 3)
|
|
(check ((m 'empty?) 4 3) "Cell (4,3) should be empty after remove-door!")
|
|
(check (not ((m 'door?) 4 3)) "Cell (4,3) should no longer be a door"))
|
|
|
|
;; Test that wall blocks movement
|
|
(define (test-wall-blocks)
|
|
(define m (make-maze))
|
|
(check ((m 'wall?) 1 0) "Cell (1,0) is a wall, Pac-Man cannot pass"))
|
|
|
|
(define (test)
|
|
(run-test test-dimensions "Maze: dimensions")
|
|
(run-test test-wall "Maze: wall detection")
|
|
(run-test test-coin "Maze: coin detection")
|
|
(run-test test-door "Maze: door detection")
|
|
(run-test test-mutation "Maze: cell mutation")
|
|
(run-test test-wall-blocks "Maze: wall blocks movement"))))
|