nix/buildLisp/tests/argv0.nix


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

{ depot, pkgs, ... }:

depot.nix.buildLisp.program {
  name = "argv0-test";

  srcs = [
    (pkgs.writeText "argv0-test.lisp" ''
      (defpackage :argv0-test (:use :common-lisp :uiop) (:export :main))
      (in-package :argv0-test)

      (defun main ()
        (format t "~A~%" (uiop:argv0)))
    '')
  ];

  deps = [
    {
      sbcl = depot.nix.buildLisp.bundled "uiop";
      default = depot.nix.buildLisp.bundled "asdf";
    }
  ];

  passthru.meta.ci = {
    extraSteps.verify = {
      label = "verify argv[0] output";
      needsOutput = true;
      command = pkgs.writeShellScript "check-argv0" ''
        set -eux

        for invocation in "$(pwd)/result/bin/argv0-test" "./result/bin/argv0-test"; do
          test "$invocation" = "$("$invocation")"
        done
      '';
    };
  };
}