racket-minimal: add tests

pkgs/development/interpreters/racket/minimal.nix

@@ -9,6 +9,8 @@
   ncurses,
 
   disableDocs ? false,
+
+  callPackage,
 }:
 
 let
@@ -81,6 +83,13 @@ stdenv.mkDerivation (finalAttrs: {
 
   dontStrip = isDarwin;
 
+  passthru = {
+    tests = builtins.mapAttrs (name: path: callPackage path { racket = finalAttrs.finalPackage; }) {
+      write-greeting = ./tests/write-greeting.nix;
+      get-current-launcher-variant = ./tests/get-current-launcher-variant.nix;
+    };
+  };
+
   meta = {
     description = "Programmable programming language";
     longDescription = ''

pkgs/development/interpreters/racket/tests/get-current-launcher-variant.nix

@@ -0,0 +1,18 @@
+{ runCommandLocal, racket }:
+
+runCommandLocal "racket-test-get-current-launcher-variant"
+  {
+    nativeBuildInputs = [ racket ];
+  }
+  ''
+    expectation="cs"
+
+    output="$(racket -e '(require launcher/launcher) (write (current-launcher-variant))')"
+
+    if test "$output" != "$expectation"; then
+        echo "output mismatch: expected ''${expectation}, but got ''${output}"
+        exit 1
+    fi
+
+    touch $out
+  ''

pkgs/development/interpreters/racket/tests/write-greeting.nix

@@ -0,0 +1,23 @@
+{ runCommandLocal, racket }:
+
+runCommandLocal "racket-test-write-greeting"
+  {
+    nativeBuildInputs = [ racket ];
+  }
+  ''
+    expectation="Hello, world!"
+
+    racket -f - <<EOF
+    (with-output-to-file (getenv "out")
+      (lambda ()
+        (display "Hello, world!")
+        (newline)))
+    EOF
+
+    output="$(cat $out)"
+
+    if test "$output" != "$expectation"; then
+        echo "output mismatch: expected ''${expectation}, but got ''${output}"
+        exit 1
+    fi
+  ''