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
42 lines
927 B
Nix
42 lines
927 B
Nix
{
|
|
lib,
|
|
xvfb-run,
|
|
tvbrowser,
|
|
runCommand,
|
|
writeShellApplication,
|
|
xorg,
|
|
}:
|
|
|
|
let
|
|
testScript = writeShellApplication {
|
|
name = "tvbrowser-test-script";
|
|
runtimeInputs = [
|
|
xorg.xwininfo
|
|
tvbrowser
|
|
];
|
|
text = ''
|
|
function find_tvbrowser_windows {
|
|
for window_name in java tvbrowser-TVBrowser 'Setup assistant' ; do
|
|
grep -q "$window_name" "$1" || return 1
|
|
done
|
|
}
|
|
tvbrowser &
|
|
for _ in {0..900} ; do
|
|
xwininfo -root -tree \
|
|
| sed 's/.*0x[0-9a-f]* \"\([^\"]*\)\".*/\1/; t; d' \
|
|
| tee window-names
|
|
echo
|
|
if find_tvbrowser_windows window-names ; then
|
|
break
|
|
fi
|
|
sleep 1
|
|
done
|
|
find_tvbrowser_windows window-names
|
|
'';
|
|
};
|
|
in
|
|
runCommand "tvbrowser-test" { buildInputs = [ xvfb-run ]; } ''
|
|
HOME=$PWD xvfb-run ${lib.getExe testScript}
|
|
touch ${placeholder "out"}
|
|
''
|