2022-01-30 17:06:58 +01:00
|
|
|
{ stdenv
|
|
|
|
, pkgs
|
|
|
|
, runExecline
|
|
|
|
, runExeclineLocal
|
|
|
|
, getBins
|
|
|
|
, writeScript
|
|
|
|
# https://www.mail-archive.com/skaware@list.skarnet.org/msg01256.html
|
|
|
|
, coreutils
|
|
|
|
}:
|
2020-06-28 03:14:11 +02:00
|
|
|
|
|
|
|
let
|
|
|
|
|
|
|
|
bins = getBins coreutils [ "mv" ]
|
2022-01-30 17:06:58 +01:00
|
|
|
// getBins pkgs.execline [
|
|
|
|
"execlineb"
|
|
|
|
{ use = "if"; as = "execlineIf"; }
|
|
|
|
"redirfd"
|
|
|
|
"importas"
|
|
|
|
]
|
|
|
|
// getBins pkgs.s6-portable-utils [
|
|
|
|
"s6-chmod"
|
|
|
|
"s6-grep"
|
|
|
|
"s6-touch"
|
|
|
|
"s6-cat"
|
|
|
|
"s6-test"
|
|
|
|
];
|
2020-06-28 03:14:11 +02:00
|
|
|
|
|
|
|
# execline block of depth 1
|
|
|
|
block = args: builtins.map (arg: " ${arg}") args ++ [ "" ];
|
|
|
|
|
|
|
|
# derivation that tests whether a given line exists
|
|
|
|
# in the given file. Does not use runExecline, because
|
|
|
|
# that should be tested after all.
|
|
|
|
fileHasLine = line: file: derivation {
|
|
|
|
name = "run-execline-test-file-${file.name}-has-line";
|
|
|
|
inherit (stdenv) system;
|
|
|
|
builder = bins.execlineIf;
|
|
|
|
args =
|
|
|
|
(block [
|
2022-01-30 17:06:58 +01:00
|
|
|
bins.redirfd
|
|
|
|
"-r"
|
|
|
|
"0"
|
|
|
|
file # read file to stdin
|
|
|
|
bins.s6-grep
|
|
|
|
"-F"
|
|
|
|
"-q"
|
|
|
|
line # and grep for the line
|
2020-06-28 03:14:11 +02:00
|
|
|
])
|
|
|
|
++ [
|
|
|
|
# if the block succeeded, touch $out
|
2022-01-30 17:06:58 +01:00
|
|
|
bins.importas
|
|
|
|
"-ui"
|
|
|
|
"out"
|
|
|
|
"out"
|
|
|
|
bins.s6-touch
|
|
|
|
"$out"
|
2020-06-28 03:14:11 +02:00
|
|
|
];
|
|
|
|
preferLocalBuild = true;
|
|
|
|
allowSubstitutes = false;
|
|
|
|
};
|
|
|
|
|
|
|
|
# basic test that touches out
|
2022-01-30 17:06:58 +01:00
|
|
|
basic = runExeclineLocal "run-execline-test-basic"
|
|
|
|
{ } [
|
|
|
|
"importas"
|
|
|
|
"-ui"
|
|
|
|
"out"
|
|
|
|
"out"
|
|
|
|
"${bins.s6-touch}"
|
|
|
|
"$out"
|
2020-06-28 03:14:11 +02:00
|
|
|
];
|
|
|
|
|
|
|
|
# whether the stdin argument works as intended
|
2022-01-30 17:06:58 +01:00
|
|
|
stdin = fileHasLine "foo" (runExeclineLocal "run-execline-test-stdin"
|
|
|
|
{
|
|
|
|
stdin = "foo\nbar\nfoo";
|
|
|
|
} [
|
|
|
|
"importas"
|
|
|
|
"-ui"
|
|
|
|
"out"
|
|
|
|
"out"
|
|
|
|
# this pipes stdout of s6-cat to $out
|
|
|
|
# and s6-cat redirects from stdin to stdout
|
|
|
|
"redirfd"
|
|
|
|
"-w"
|
|
|
|
"1"
|
|
|
|
"$out"
|
|
|
|
bins.s6-cat
|
2020-06-28 03:14:11 +02:00
|
|
|
]);
|
|
|
|
|
2021-01-01 18:43:42 +01:00
|
|
|
|
2022-01-30 17:06:58 +01:00
|
|
|
wrapWithVar = runExeclineLocal "run-execline-test-wrap-with-var"
|
|
|
|
{
|
|
|
|
builderWrapper = writeScript "var-wrapper" ''
|
|
|
|
#!${bins.execlineb} -S0
|
|
|
|
export myvar myvalue $@
|
|
|
|
'';
|
|
|
|
} [
|
|
|
|
"importas"
|
|
|
|
"-ui"
|
|
|
|
"v"
|
|
|
|
"myvar"
|
|
|
|
"if"
|
|
|
|
[ bins.s6-test "myvalue" "=" "$v" ]
|
|
|
|
"importas"
|
|
|
|
"out"
|
|
|
|
"out"
|
|
|
|
bins.s6-touch
|
|
|
|
"$out"
|
2020-06-28 03:14:11 +02:00
|
|
|
];
|
|
|
|
|
2022-01-30 17:06:58 +01:00
|
|
|
in
|
|
|
|
[
|
2020-06-28 03:14:11 +02:00
|
|
|
basic
|
|
|
|
stdin
|
|
|
|
wrapWithVar
|
|
|
|
]
|