Refactor(Structure): Move ADTs into adt/ folder, rename spel.rkt to main.rkt

New structure groups all ADT modules under adt/ directory, removing
redundant adt- prefix from filenames. Library names now read as
(pacman-project adt position) etc. All imports updated accordingly.

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>

pacman-project/tests/test-maze.rkt

@@ -8,7 +8,7 @@
   (import (scheme base)
           (pp1 tests)
           (pacman-project constants)
-          (pacman-project adt-maze))
+          (pacman-project adt maze))
   (export test)
 
   (begin

pacman-project/tests/test-pacman.rkt

@@ -7,8 +7,8 @@
 (define-library (pacman-project tests test-pacman)
   (import (scheme base)
           (pp1 tests)
-          (pacman-project adt-position)
-          (pacman-project adt-pacman))
+          (pacman-project adt position)
+          (pacman-project adt pacman))
   (export test)
 
   (begin

pacman-project/tests/test-position.rkt

@@ -7,7 +7,7 @@
 (define-library (pacman-project tests test-position)
   (import (scheme base)
           (pp1 tests)
-          (pacman-project adt-position))
+          (pacman-project adt position))
   (export test)
 
   (begin

pacman-project/tests/test-score.rkt

@@ -0,0 +1,30 @@
+#lang r7rs
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;                            Tests: Score ADT                               ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-library (pacman-project tests test-score)
+  (import (scheme base)
+          (pp1 tests)
+          (pacman-project adt score))
+  (export test)
+
+  (begin
+
+    ;; Test initial score
+    (define (test-initial)
+      (define s (make-score))
+      (check-eq? (s 'points) 0 "Initial score should be 0"))
+
+    ;; Test score increase
+    (define (test-increase)
+      (define s (make-score))
+      ((s 'increase!))
+      (check-eq? (s 'points) 10 "Score should be 10 after 1 coin")
+      ((s 'increase!))
+      (check-eq? (s 'points) 20 "Score should be 20 after 2 coins"))
+
+    (define (test)
+      (run-test test-initial "Score: initial score")
+      (run-test test-increase "Score: increase"))))

pacman-project/tests/test-timer.rkt

@@ -7,7 +7,7 @@
 (define-library (pacman-project tests test-timer)
   (import (scheme base)
           (pp1 tests)
-          (pacman-project adt-timer))
+          (pacman-project adt timer))
   (export test)
 
   (begin