646b892680
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
24 lines
477 B
Nix
24 lines
477 B
Nix
{ 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
|
|
''
|