Refactor(English): Rename all files and identifiers from Dutch to English

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>

pacman-project/tests/test-pacman.rkt

@@ -1,51 +1,51 @@
 #lang r7rs
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;                           Tests: Pac-Man ADT                              ;;
+;;                          Tests: Pac-Man ADT                               ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (define-library (pacman-project tests test-pacman)
   (import (scheme base)
           (pp1 tests)
-          (pacman-project adt-positie)
+          (pacman-project adt-position)
           (pacman-project adt-pacman))
   (export test)
 
   (begin
 
-    ;; Test aanmaak en startpositie
-    (define (test-aanmaak)
-      (define pac (maak-pacman 5 2))
-      (define pos (pac 'positie))
-      (check-eq? (pos 'rij) 5 "Start rij moet 5 zijn")
-      (check-eq? (pos 'kolom) 2 "Start kolom moet 2 zijn"))
+    ;; Test creation and start position
+    (define (test-creation)
+      (define pac (make-pacman 5 2))
+      (define pos (pac 'position))
+      (check-eq? (pos 'row) 5 "Start row should be 5")
+      (check-eq? (pos 'col) 2 "Start col should be 2"))
 
-    ;; Test richting
-    (define (test-richting)
-      (define pac (maak-pacman 5 2))
-      (check-eq? (pac 'richting) 'rechts "Startrichting moet rechts zijn")
-      ((pac 'richting!) 'links)
-      (check-eq? (pac 'richting) 'links "Richting moet links zijn na richting!"))
+    ;; Test direction
+    (define (test-direction)
+      (define pac (make-pacman 5 2))
+      (check-eq? (pac 'direction) 'right "Start direction should be right")
+      ((pac 'direction!) 'left)
+      (check-eq? (pac 'direction) 'left "Direction should be left after direction!"))
 
-    ;; Test beweeg!
-    (define (test-beweeg)
-      (define pac (maak-pacman 5 2))
-      ((pac 'beweeg!) 0 1)
-      (define pos (pac 'positie))
-      (check-eq? (pos 'kolom) 3 "Kolom moet 3 zijn na 1 stap rechts")
-      (check-eq? (pos 'rij) 5 "Rij ongewijzigd na horizontale beweging"))
+    ;; Test move!
+    (define (test-move)
+      (define pac (make-pacman 5 2))
+      ((pac 'move!) 0 1)
+      (define pos (pac 'position))
+      (check-eq? (pos 'col) 3 "Col should be 3 after 1 step right")
+      (check-eq? (pos 'row) 5 "Row unchanged after horizontal move"))
 
-    ;; Test meerdere bewegingen
-    (define (test-meerdere-bewegingen)
-      (define pac (maak-pacman 5 5))
-      ((pac 'beweeg!) -1 0)
-      ((pac 'beweeg!) 0 1)
-      (define pos (pac 'positie))
-      (check-eq? (pos 'rij) 4 "Rij moet 4 zijn na omhoog")
-      (check-eq? (pos 'kolom) 6 "Kolom moet 6 zijn na rechts"))
+    ;; Test multiple moves
+    (define (test-multiple-moves)
+      (define pac (make-pacman 5 5))
+      ((pac 'move!) -1 0)
+      ((pac 'move!) 0 1)
+      (define pos (pac 'position))
+      (check-eq? (pos 'row) 4 "Row should be 4 after up")
+      (check-eq? (pos 'col) 6 "Col should be 6 after right"))
 
     (define (test)
-      (run-test test-aanmaak "Pac-Man: aanmaak en startpositie")
-      (run-test test-richting "Pac-Man: richting")
-      (run-test test-beweeg "Pac-Man: beweeg!")
-      (run-test test-meerdere-bewegingen "Pac-Man: meerdere bewegingen"))))
+      (run-test test-creation "Pac-Man: creation and start position")
+      (run-test test-direction "Pac-Man: direction")
+      (run-test test-move "Pac-Man: move!")
+      (run-test test-multiple-moves "Pac-Man: multiple moves"))))