Change behavior. (require racket-makefile) and use (make <target>) instead of racket Makefile.rkt <target>

2026-08-08 22:38:13 +02:00
parent f32503f3e7
commit 57707e5fc0
11 changed files with 276 additions and 32 deletions
@@ -0,0 +1,55 @@
+#lang racket
+
+(require rackunit
+         racket/file
+         racket/runtime-path
+         racket/system)
+
+(define-runtime-path package-root "..")
+
+(define racket-executable
+  (find-system-path 'exec-file))
+
+(define tmp (make-temporary-file "racket-makefile-make~a" 'directory))
+
+(define (run-racket . args)
+  (parameterize ([current-directory tmp])
+    (apply system* racket-executable args)))
+
+(dynamic-wind
+  void
+  (lambda ()
+    (call-with-output-file (build-path tmp "Makefile.rkt")
+      (lambda (out)
+        (displayln "#lang racket-makefile" out)
+        (displayln "(default-target all)" out)
+        (displayln "(phony all clean 'compile)" out)
+        (displayln "(target all (call-with-output-file \"all.out\" (lambda (o) (display \"all\" o)) #:exists 'replace))" out)
+        (displayln "(target clean (rm-f \"all.out\" \"compile.out\"))" out)
+        ;; `compile` is deliberately chosen because Racket already binds that
+        ;; identifier. `(make compile)` must still mean the target named compile.
+        (displayln "(target 'compile (call-with-output-file \"compile.out\" (lambda (o) (display \"compile\" o)) #:exists 'replace))" out)))
+
+    ;; Loading the makefile alone must not run any target.
+    (check-true (run-racket "-t" "Makefile.rkt"))
+    (check-false (file-exists? (build-path tmp "all.out")))
+
+    ;; Explicit make invocation from the command line.
+    (check-true (run-racket "-t" "Makefile.rkt" "-e" "(make all)"))
+    (check-true (file-exists? (build-path tmp "all.out")))
+
+    ;; A bare target identifier is literal, even when Racket binds the same name.
+    (check-true (run-racket "-t" "Makefile.rkt" "-e" "(make compile)"))
+    (check-true (file-exists? (build-path tmp "compile.out")))
+
+    ;; Multiple targets are executed in the requested order.
+    (check-true (run-racket "-t" "Makefile.rkt" "-e" "(make clean all)"))
+    (check-true (file-exists? (build-path tmp "all.out")))
+    (check-false (file-exists? (build-path tmp "compile.out")))
+
+    ;; (make) uses the configured default target.
+    (delete-file (build-path tmp "all.out"))
+    (check-true (run-racket "-t" "Makefile.rkt" "-e" "(make)"))
+    (check-true (file-exists? (build-path tmp "all.out"))))
+  (lambda ()
+    (delete-directory/files tmp #:must-exist? #f)))