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>

snake-wpo/tests/alle-testen.rkt

@@ -0,0 +1,19 @@
+#lang r7rs
+
+(import (scheme base)
+        (pp1 tests)
+        (prefix (snake-wpo tests test-positie) positie:)
+        (prefix (snake-wpo tests test-appel) appel:))
+
+;; Omdat dit project onvolledig is hebben we enkel testcode voorzien
+;; voor enkele oefeningen uit het WPO. Voor je eigen project raden we
+;; je aan om voor elk ADT minstens één test te voorzien. Een apart
+;; bestand waarin je alle testen combineert, zoals dit, helpt
+;; om snel alle functionaliteit van je project (waar een test voor
+;; geschreven is) te controleren.
+    
+(define (test-alles)
+  (positie:test)
+  (appel:test))
+
+(test-alles)

snake-wpo/tests/test-appel.rkt

@@ -0,0 +1,27 @@
+#lang r7rs
+
+(define-library ()
+  (import (scheme base)
+          (scheme write)
+          (pp1 tests)
+          (snake-wpo adt-positie)
+          (snake-wpo adt-appel))
+  (export test)
+  (begin
+
+    (define (test-oefening-4)
+      ;; We maken twee aparte positie-objecten die een verschillende y-oordinaat hebben
+      (define p1 (maak-positie 5 5))
+      (define p2 (maak-positie 10 5))
+      (define appel (maak-appel p1))
+      (check-eq? (appel 'positie) p1 "Verwacht dat de positie ingesteld is")
+      ((appel 'positie!) p2)
+      (check-not-eq? (appel 'positie) p1 "Verwacht dat de positie aangepast is")
+      (check-eq? (appel 'positie) p2 "Verwacht dat de positie aangepast is"))
+
+    (define (test)
+      (run-test test-oefening-4 "Oefening 4"))))
+
+;; Voor de test uit te voeren voer je onderstaande code uit in de REPL:
+;;
+;; (test)

snake-wpo/tests/test-positie.rkt

@@ -0,0 +1,28 @@
+#lang r7rs
+
+(define-library ()
+  (import (scheme base)
+          (pp1 tests)
+          (snake-wpo adt-positie))
+  (export test)
+  (begin
+
+    (define (test-oefening-1)
+      ;; We maken twee aparte positie-objecten die een verschillende y-oordinaat hebben
+      (define p1 (maak-positie 100 200))
+      (define p2 (maak-positie 100 600))
+      ;; We controleren eerst dat beiden een apart object zijn
+      (check (not (eq? p1 p2)) "Beide positie-objecten mogen niet eq?-gelijk zijn")
+      ;; We controleren of ze verschillend zijn met de eigen 'vergelijk?-operatie...
+      (check (not ((p1 'vergelijk?) p2)) "Beide posities mogen niet gelijk zijn aan elkaar!")
+      ;; We object `p2` aan zodanig dat `p1` en `p2` dezelfde `x` en `y` hebben.
+      ((p2 'y!) 200)
+      ;; En we doen de controle met de 'vergelijk?-operatie opnieuw, maar deze keer moeten ze gelijk zijn aan elkaar
+      (check ((p1 'vergelijk?) p2) "Beide posities moeten gelijk zijn aan elkaar!"))
+
+    (define (test)
+      (run-test test-oefening-1 "Oefening 1"))))
+
+;; Voor de test uit te voeren voer je onderstaande code uit in de REPL:
+;;
+;; (test)