From e53c03c0e155743b07b05da45204c439c2ccd861 Mon Sep 17 00:00:00 2001
From: rczb <rc-zb@outlook.com>
Date: Tue, 24 Dec 2024 15:54:47 +0800
Subject: [PATCH] racket: add tests

---
 .../interpreters/racket/default.nix           | 18 +++++++++++++
 .../racket/tests/draw-crossing.nix            | 18 +++++++++++++
 .../racket/tests/get-version-and-variant.nix  | 27 +++++++++++++++++++
 .../racket/tests/load-openssl.nix             | 15 +++++++++++
 .../racket/tests/nix-write-script.nix         | 26 ++++++++++++++++++
 .../racket/tests/write-greeting.nix           | 23 ++++++++++++++++
 6 files changed, 127 insertions(+)
 create mode 100644 pkgs/development/interpreters/racket/tests/draw-crossing.nix
 create mode 100644 pkgs/development/interpreters/racket/tests/get-version-and-variant.nix
 create mode 100644 pkgs/development/interpreters/racket/tests/load-openssl.nix
 create mode 100644 pkgs/development/interpreters/racket/tests/nix-write-script.nix
 create mode 100644 pkgs/development/interpreters/racket/tests/write-greeting.nix

diff --git a/pkgs/development/interpreters/racket/default.nix b/pkgs/development/interpreters/racket/default.nix
index 0b6d722e8c8d..b6ee981c0077 100644
--- a/pkgs/development/interpreters/racket/default.nix
+++ b/pkgs/development/interpreters/racket/default.nix
@@ -28,6 +28,7 @@
 
   disableDocs ? false,
 
+  callPackage,
   writers,
 }:
 
@@ -193,6 +194,23 @@ stdenv.mkDerivation (finalAttrs: {
         }
       ) nameOrPath;
     writeScriptBin = name: finalAttrs.passthru.writeScript "/bin/${name}";
+
+    # Tests #
+    tests = builtins.mapAttrs (name: path: callPackage path { racket = finalAttrs.finalPackage; }) (
+      {
+        ## Basic ##
+        write-greeting = ./tests/write-greeting.nix;
+        get-version-and-variant = ./tests/get-version-and-variant.nix;
+        load-openssl = ./tests/load-openssl.nix;
+
+        ## Nixpkgs supports ##
+        nix-write-script = ./tests/nix-write-script.nix;
+      }
+      // lib.optionalAttrs (!isMinimal) {
+        ## `main-distribution` ##
+        draw-crossing = ./tests/draw-crossing.nix;
+      }
+    );
   };
 
   meta = {
diff --git a/pkgs/development/interpreters/racket/tests/draw-crossing.nix b/pkgs/development/interpreters/racket/tests/draw-crossing.nix
new file mode 100644
index 000000000000..a4f0fabfe685
--- /dev/null
+++ b/pkgs/development/interpreters/racket/tests/draw-crossing.nix
@@ -0,0 +1,18 @@
+{ runCommandLocal, racket }:
+
+runCommandLocal "racket-test-draw-crossing"
+  {
+    nativeBuildInputs = [ racket ];
+  }
+  ''
+    racket -f - <<EOF
+    (require racket/draw)
+
+    (define target (make-bitmap 64 64))
+    (define dc (new bitmap-dc% [bitmap target]))
+    (send dc draw-line 0 0 64 64)
+    (send dc draw-line 0 64 64 0)
+
+    (send target save-file (getenv "out") 'png)
+    EOF
+  ''
diff --git a/pkgs/development/interpreters/racket/tests/get-version-and-variant.nix b/pkgs/development/interpreters/racket/tests/get-version-and-variant.nix
new file mode 100644
index 000000000000..c81cb7719380
--- /dev/null
+++ b/pkgs/development/interpreters/racket/tests/get-version-and-variant.nix
@@ -0,0 +1,27 @@
+{ runCommandLocal, racket }:
+
+runCommandLocal "racket-test-get-version-and-variant"
+  {
+    nativeBuildInputs = [ racket ];
+  }
+  ''
+    expectation="${racket.version}"
+
+    output="$(racket -e '(display (version))')"
+
+    if test "$output" != "$expectation"; then
+        echo "output mismatch: expected ''${expectation}, but got ''${output}"
+        exit 1
+    fi
+
+    expectation="cs"
+
+    output="$(racket -e '(require launcher/launcher) (display (current-launcher-variant))')"
+
+    if test "$output" != "$expectation"; then
+        echo "output mismatch: expected ''${expectation}, but got ''${output}"
+        exit 1
+    fi
+
+    touch $out
+  ''
diff --git a/pkgs/development/interpreters/racket/tests/load-openssl.nix b/pkgs/development/interpreters/racket/tests/load-openssl.nix
new file mode 100644
index 000000000000..1306f2179586
--- /dev/null
+++ b/pkgs/development/interpreters/racket/tests/load-openssl.nix
@@ -0,0 +1,15 @@
+{ runCommandLocal, racket }:
+
+runCommandLocal "racket-test-load-openssl"
+  {
+    nativeBuildInputs = [ racket ];
+  }
+  ''
+    racket -f - <<EOF
+    (require openssl)
+    (unless ssl-available?
+      (raise ssl-load-fail-reason))
+    EOF
+
+    touch $out
+  ''
diff --git a/pkgs/development/interpreters/racket/tests/nix-write-script.nix b/pkgs/development/interpreters/racket/tests/nix-write-script.nix
new file mode 100644
index 000000000000..5fa50ea19587
--- /dev/null
+++ b/pkgs/development/interpreters/racket/tests/nix-write-script.nix
@@ -0,0 +1,26 @@
+{ runCommandLocal, racket }:
+
+let
+  script = racket.writeScript "racket-test-nix-write-script-the-script" { } ''
+    #lang racket/base
+    (display "success")
+    (newline)
+  '';
+in
+
+runCommandLocal "racket-test-nix-write-script"
+  {
+    nativeBuildInputs = [ racket ];
+  }
+  ''
+    expectation="success"
+
+    output="$(${script})"
+
+    if test "$output" != "$expectation"; then
+        echo "output mismatch: expected ''${expectation}, but got ''${output}"
+        exit 1
+    fi
+
+    touch $out
+  ''
diff --git a/pkgs/development/interpreters/racket/tests/write-greeting.nix b/pkgs/development/interpreters/racket/tests/write-greeting.nix
new file mode 100644
index 000000000000..33ccdc924d6b
--- /dev/null
+++ b/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
+  ''