scripts/test-pointer-geometry

1#!/usr/bin/env bash

2set -Eeuo pipefail

3cd -P "$(dirname "$0")/.."

4if [[ -z ${GUIX_ENVIRONMENT:-} ]]; then

5 exec guix time-machine -C channels.scm -- shell -m draw-manifest.scm -- bash scripts/test-pointer-geometry --inside

6fi

7make -j2 all build/geometry-client

8bash scripts/run-sigil --version

9library=$PWD

10runtime=$PWD/build/runtime/sigil-linux-amd64.runnable

11out=$PWD/build/receipts/pointer-geometry

12mkdir -p "$out"

13export LD_LIBRARY_PATH=$PWD/build:$GUIX_ENVIRONMENT/lib

14export SIGIL_WM_LIBRARY=$PWD/build/libsigil-wm.so

15parent_runtime=$(mktemp -d /tmp/sigil-geometry-parent.XXXXXXXX)

16child_runtime=$(mktemp -d /tmp/sigil-geometry-child.XXXXXXXX)

17chmod 700 "$parent_runtime" "$child_runtime"

18parent_pid= child_pid= client_pid=

19cd "$library"

20request() {

  CHECK_SOCKET=$1 CHECK_EXPRESSION=$2 timeout --foreground 15 "$runtime" -L src eval -f "$library/test/pointer-geometry-request.sgl"

22}

23value() {

24 local result

25 result=$(request "$child_runtime/repl" "$1")

26 printf '%s\n' "$result"

27 [[ $result != *'(error '* ]]

28}

29cleanup() {

30 local rc=$?

  if [[ -n $child_pid ]]; then request "$child_runtime/repl" '(stop-host! host)' > "$out/cleanup-child.log" 2>&1 || true; fi

  if [[ -n $parent_pid ]]; then request "$parent_runtime/repl" '(stop-host! host)' > "$out/cleanup-parent.log" 2>&1 || true; fi

33 for pid in "$client_pid" "$child_pid" "$parent_pid"; do

34 if [[ -n $pid ]]; then kill -TERM "$pid" 2>/dev/null || true; wait "$pid" 2>/dev/null || true; fi

35 done

36 rm -rf -- "$parent_runtime" "$child_runtime"

37 exit "$rc"

38}

39trap cleanup EXIT

40wait_log() {

41 for ((attempt=0;attempt<400;attempt++)); do

42 if grep -q "$2" "$1" 2>/dev/null; then return 0; fi

43 sleep 0.025

44 done

45 cat "$1" >&2

46 return 1

47}

48wait_value() {

49 for ((attempt=0;attempt<160;attempt++)); do

50 if value "$1" | grep -q '(value #t)'; then return 0; fi

51 sleep 0.025

52 done

53 cat "$out/child.log" >&2

54 return 1

55}

56XDG_RUNTIME_DIR=$parent_runtime WLR_BACKENDS=headless WLR_RENDERER=pixman WLR_HEADLESS_OUTPUTS=1 \

57 SIGIL_WM_REPL=$parent_runtime/repl timeout --foreground 240 \

58 "$runtime" -L src -L examples eval -f examples/tiling.sgl > "$out/parent.log" 2>&1 &

59parent_pid=$!

60wait_log "$out/parent.log" '^WAYLAND_SOCKET='

61parent_display=$parent_runtime/$(sed -n 's/^WAYLAND_SOCKET=//p' "$out/parent.log" | head -n1)

62XDG_RUNTIME_DIR=$child_runtime WAYLAND_DISPLAY=$parent_display WLR_BACKENDS=wayland WLR_RENDERER=pixman \

63 SIGIL_WM_REPL=$child_runtime/repl timeout --foreground 220 \

64 "$runtime" -L src eval -f "$library/test/pointer-geometry.sgl" > "$out/child.log" 2>&1 &

65child_pid=$!

66wait_log "$out/child.log" '^WAYLAND_SOCKET='

67child_display=$(sed -n 's/^WAYLAND_SOCKET=//p' "$out/child.log" | head -n1)

68clicks() {

69 for ((index=0;index<5;index++)); do

70 value '(emulate-button! host 1 272 #t)' > "$out/press.log"

71 sleep 0.025

72 value '(emulate-button! host 1 272 #f)' > "$out/release.log"

73 sleep 0.025

74 done

75}

76for arm in ${SIGIL_WM_GEOMETRY_ARMS:-tiled:0,0 tiled:20,20 floating:20,20 tiled:32,16}; do

77 kind=${arm%%:*}

78 origin=${arm#*:}

79 name=$kind-${origin/,/-}

80 tiled=15

81 if [[ $kind == floating ]]; then tiled=0; fi

82 value "(set! initial-tiled $tiled)" > "$out/placement-$name.log"

83 log=$out/client-$name.log

84 hold=$out/hold-$name

85 popup_open=$out/popup-open-$name

86 popup_close=$out/popup-close-$name

87 XDG_RUNTIME_DIR=$child_runtime WAYLAND_DISPLAY=$child_display \

88 SIGIL_WM_CLIENT_GEOMETRY=$origin SIGIL_WM_CLIENT_HOLD=$hold \

89 SIGIL_WM_CLIENT_POPUP_OPEN=$popup_open SIGIL_WM_CLIENT_POPUP_CLOSE=$popup_close \

90 timeout --foreground 90 "$library/build/geometry-client" 00cc44 'Geometry input proof' > "$log" 2>&1 &

91 client_pid=$!

92 wait_log "$log" '^CLIENT_KEYBOARD_ENTER'

93 wait_value '(and (= (length windows) 1) (= (host-statistic host 7) 0) (equal? last-plan applied-plan))'

94 if [[ ${SIGIL_WM_GEOMETRY_EXTRA:-0} == 1 ]]; then

95 if ! grep -q '^CLIENT_TOPLEVEL tiled=15 fullscreen=0' "$log"; then

96 printf 'TILED_STATE_MISSING=FAIL expected=15\n'

97 exit 1

98 fi

99 fi

100 value '(emulate-motion! host 1 200 180)' > "$out/motion-$name.log"

101 wait_log "$log" '^CLIENT_POINTER_ENTER='

102 clicks

103 test "$(grep -c '^CLIENT_BUTTON=272,0' "$log")" == 5

104 cp "$log" "$out/live-$name.log"

105 touch "$hold"

106 value "(test-plan! 500 $tiled 10000)" > "$out/saved-plan-$name.log"

107 wait_log "$log" '^CLIENT_CONFIGURE_HELD='

108 wait_value '(= (host-statistic host 7) 1)'

109 start_line=$(wc -l < "$log")

110 clicks

111 for ((attempt=0;attempt<100;attempt++)); do

112 if [[ $(grep -c '^CLIENT_BUTTON=272,0' "$log") == 10 ]]; then break; fi

113 sleep 0.025

114 done

115 test "$(grep -c '^CLIENT_BUTTON=272,0' "$log")" == 10

116 tail -n +"$((start_line+1))" "$log" > "$out/saved-$name.log"

117 test "$(grep -c '^STATIONARY_CLICK=PASS' "$out/saved-$name.log")" == 5

118 if grep -q '^STATIONARY_CLICK=FAIL' "$out/saved-$name.log"; then exit 1; fi

119 rm "$hold"

120 wait_value '(and (= (host-statistic host 7) 0) (equal? last-plan applied-plan))'

121 if [[ ${SIGIL_WM_GEOMETRY_EXTRA:-0} == 1 ]]; then

122 for edges in 0 15; do

123 before=$(wc -l < "$log")

124 value "(test-plan! 500 $edges 200)" > "$out/tiled-transition-$edges.log"

125 for ((attempt=0;attempt<200;attempt++)); do

126 if tail -n +"$((before+1))" "$log" | grep -q "^CLIENT_TOPLEVEL tiled=$edges fullscreen=0"; then break; fi

127 sleep 0.025

128 done

129 tail -n +"$((before+1))" "$log" | grep -q "^CLIENT_TOPLEVEL tiled=$edges fullscreen=0"

130 wait_value '(and (= (host-statistic host 7) 0) (equal? last-plan applied-plan))'

131 done

132 printf 'TILED_STATES=PASS delivered-all cleared-floating restored-all\n'

133 value '(emulate-motion! host 1 200 180)' > "$out/popup-root-motion.log"

134 value '(query-pointer! host)' > "$out/popup-query.log"

135 wait_value '(pair? pointer-position)'

136 value 'pointer-position' > "$out/popup-pointer-position.log"

137 touch "$popup_open"

138 value '(emulate-button! host 1 272 #t)' > "$out/popup-open-press.log"

139 wait_log "$log" '^POPUP_MAPPED'

140 wait_value '(= (length popups) 1)'

141 value '(emulate-button! host 1 272 #f)' > "$out/popup-open-release.log"

142 wait_log "$log" '^CLIENT_POINTER_ENTER=26,24'

143 before=$(wc -l < "$log")

144 clicks

145 tail -n +"$((before+1))" "$log" > "$out/popup-clicks.log"

146 test "$(grep -c '^STATIONARY_CLICK=PASS' "$out/popup-clicks.log")" == 5

147 if grep -q '^STATIONARY_CLICK=FAIL' "$out/popup-clicks.log"; then exit 1; fi

148 touch "$popup_close"

149 wait_log "$log" '^POPUP_DESTROYED'

150 wait_value '(null? popups)'

151 value '(emulate-motion! host 1 200 180)' > "$out/restored-root-motion.log"

152 before=$(wc -l < "$log")

153 clicks

154 tail -n +"$((before+1))" "$log" > "$out/restored-root-clicks.log"

155 test "$(grep -c '^STATIONARY_CLICK=PASS' "$out/restored-root-clicks.log")" == 5

156 if grep -q '^STATIONARY_CLICK=FAIL' "$out/restored-root-clicks.log"; then exit 1; fi

157 printf 'GRABBED_POPUP=PASS admitted five-paired-clicks retired parent-five-clicks-restored\n'

158 fi

159 value '(close-window! host (car windows))' > "$out/close-$name.log"

160 wait "$client_pid"

161 client_pid=

162 wait_value '(null? windows)'

163 if [[ ${GEOMETRY_EXPECT_RED:-0} == 1 && $origin != 0,0 && $kind == tiled ]]; then

164 test "$(grep -c '^STATIONARY_CLICK=FAIL' "$out/live-$name.log")" == 5

165 grep -q "^HELD_COORDINATE_SHIFT=-${origin/,/\.000,-}.000" "$out/live-$name.log"

166 printf 'GEOMETRY_RED=PASS kind=%s origin=%s five-live-shifts five-saved-clicks-correct\n' "$kind" "$origin"

167 else

168 test "$(grep -c '^STATIONARY_CLICK=PASS' "$out/live-$name.log")" == 5

169 if grep -q '^HELD_COORDINATE_SHIFT=' "$out/live-$name.log"; then exit 1; fi

170 printf 'GEOMETRY_GREEN=PASS kind=%s origin=%s five-live-and-five-saved-stationary-clicks\n' "$kind" "$origin"

171 fi

172done

173value '(stop-host! host)' > "$out/quit.log"

174wait "$child_pid"

175child_pid=

176request "$parent_runtime/repl" '(stop-host! host)' > "$out/parent-quit.log"

177wait "$parent_pid"

178parent_pid=

179grep -q '^POINTER_GEOMETRY_HOST=PASS' "$out/child.log"

180if grep -q 'event handler failed' "$out/child.log"; then exit 1; fi

181

printf 'POINTER_GEOMETRY=PASS nested zero-origin asymmetric-origin tiled floating live saved paired-delivery clean-join\n'