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
30 lines
738 B
Nix
30 lines
738 B
Nix
with builtins;
|
|
let
|
|
withIndexes = list: genList (idx: (elemAt list idx) // { index = idx; }) (length list);
|
|
|
|
testLine =
|
|
report:
|
|
"${okStr report} ${toString (report.index + 1)} ${report.description}"
|
|
+ testDirective report
|
|
+ testYaml report;
|
|
|
|
# These are part of the TAP spec, not yet implemented.
|
|
#c.f. https://github.com/NixOS/nixpkgs/issues/27071
|
|
testDirective = report: "";
|
|
testYaml = report: "";
|
|
|
|
okStr = { result, ... }: if result == "pass" then "ok" else "not ok";
|
|
in
|
|
{
|
|
output =
|
|
reports:
|
|
''
|
|
TAP version 13
|
|
1..${toString (length reports)}''
|
|
+ (foldl' (l: r: l + "\n" + r) "" (map testLine (withIndexes reports)))
|
|
+ ''
|
|
|
|
# Finished at ${toString currentTime}
|
|
'';
|
|
}
|