@@ -0,0 +1,863 @@ |
| 1 | +#!/bin/sh |
| 2 | +# ============================================================ |
| 3 | +# Stress tests for allocatable string / widened buffer changes |
| 4 | +# ============================================================ |
| 5 | +# These tests verify that fortsh handles large values, deep |
| 6 | +# nesting, many variables, and boundary conditions correctly |
| 7 | +# after the MAX_VAR_VALUE_LEN 1024->4096 refactoring. |
| 8 | +# |
| 9 | +# Tests marked with skip() are known pre-existing issues not |
| 10 | +# related to the buffer refactoring. |
| 11 | + |
| 12 | +TEST_PREFIX="STRESS" |
| 13 | +SCRIPT_DIR=$(cd "$(dirname "$0")" && pwd) |
| 14 | +. "$SCRIPT_DIR/test_harness.sh" |
| 15 | + |
| 16 | +# Platform-aware timeouts: ARM64 (flang-new) is ~300x slower on loops |
| 17 | +case "$(uname -m)" in |
| 18 | + arm64|aarch64) TEST_TIMEOUT=90 ;; |
| 19 | + *) TEST_TIMEOUT=30 ;; |
| 20 | +esac |
| 21 | + |
| 22 | +# ========================================== |
| 23 | +# 1. Long variable values |
| 24 | +# ========================================== |
| 25 | +section "1 - Long variable values" |
| 26 | + |
| 27 | +compare_output "2000-char variable via printf %0*d" \ |
| 28 | + 'x=$(printf "%0*d" 2000 0); echo ${#x}' |
| 29 | + |
| 30 | +compare_output "3000-char variable via printf %0*d" \ |
| 31 | + 'x=$(printf "%0*d" 3000 0); echo ${#x}' |
| 32 | + |
| 33 | +compare_output "4000-char variable (near limit)" \ |
| 34 | + 'x=$(printf "%0*d" 4000 0); echo ${#x}' |
| 35 | + |
| 36 | +compare_output "variable with 1000 'a' chars" \ |
| 37 | + 'x=$(printf "a%.0s" $(seq 1 1000)); echo ${#x}' |
| 38 | + |
| 39 | +# printf "a%.0s" with many args hits command expansion buffer |
| 40 | +# use python or head /dev/zero instead for large single-char strings |
| 41 | +compare_output "2000-char variable via head" \ |
| 42 | + 'x=$(head -c 2000 /dev/zero | tr "\0" "a"); echo ${#x}' |
| 43 | + |
| 44 | +compare_output "3000-char variable via head" \ |
| 45 | + 'x=$(head -c 3000 /dev/zero | tr "\0" "a"); echo ${#x}' |
| 46 | + |
| 47 | +# BUG: printf "a%.0s" with many args truncates at ~1041 chars (#37) |
| 48 | +compare_output "2000-char via printf repeat" \ |
| 49 | + 'x=$(printf "a%.0s" $(seq 1 2000)); echo ${#x}' |
| 50 | + |
| 51 | +compare_output "long variable substring" \ |
| 52 | + 'x=$(printf "%0*d" 3000 0); echo ${#x}; y=${x:500:1000}; echo ${#y}' |
| 53 | + |
| 54 | +compare_output "long variable pattern removal" \ |
| 55 | + 'x="aaa$(printf "%0*d" 2000 0)aaa"; y=${x##aaa}; echo ${#y}' |
| 56 | + |
| 57 | +# ========================================== |
| 58 | +# 2. Long command lines |
| 59 | +# ========================================== |
| 60 | +section "2 - Long command lines" |
| 61 | + |
| 62 | +compare_output "echo with 500 args" \ |
| 63 | + 'echo $(seq 1 500) | wc -w' |
| 64 | + |
| 65 | +compare_output "echo with 1000 args" \ |
| 66 | + 'echo $(seq 1 1000) | wc -w' |
| 67 | + |
| 68 | +compare_output "long pipe chain" \ |
| 69 | + 'echo hello | cat | cat | cat | cat | cat | cat | cat | cat | cat | cat' |
| 70 | + |
| 71 | +compare_output "long command with semicolons" \ |
| 72 | + 'a=1; b=2; c=3; d=4; e=5; f=6; g=7; h=8; i=9; j=10; echo $a $b $c $d $e $f $g $h $i $j' |
| 73 | + |
| 74 | +# ========================================== |
| 75 | +# 3. Array stress tests |
| 76 | +# ========================================== |
| 77 | +section "3 - Array stress tests" |
| 78 | + |
| 79 | +# Use explicit indices to avoid arr[$i]= parsing differences |
| 80 | +compare_output "array direct assignment 10 elements" \ |
| 81 | + 'arr=(a b c d e f g h i j); echo ${#arr[@]}' |
| 82 | + |
| 83 | +compare_output "array with explicit long values" \ |
| 84 | + 'x=$(printf "%0*d" 100 0); arr[0]=$x; arr[1]=$x; echo ${#arr[0]} ${#arr[1]}' |
| 85 | + |
| 86 | +# BUG: array element assignment truncates long values (#35) |
| 87 | +compare_output "array element from command substitution" \ |
| 88 | + 'arr[0]=$(printf "%0*d" 1000 0); echo ${#arr[0]}' |
| 89 | + |
| 90 | +compare_output "array append" \ |
| 91 | + 'arr=(); for i in $(seq 1 30); do arr+=("item$i"); done; echo ${#arr[@]}' |
| 92 | + |
| 93 | +compare_output "array slice" \ |
| 94 | + 'arr=(a b c d e f g h i j); echo ${arr[@]:3:4}' |
| 95 | + |
| 96 | +compare_output "unset array elements" \ |
| 97 | + 'arr=(1 2 3 4 5 6 7 8 9 10); unset arr[4]; unset arr[7]; echo ${#arr[@]}' |
| 98 | + |
| 99 | +# ========================================== |
| 100 | +# 4. Associative array stress tests |
| 101 | +# ========================================== |
| 102 | +section "4 - Associative array stress tests" |
| 103 | + |
| 104 | +compare_output "basic assoc array" \ |
| 105 | + 'declare -A m; m[a]=1; m[b]=2; m[c]=3; echo ${#m[@]}' |
| 106 | + |
| 107 | +compare_output "assoc array with long value via var" \ |
| 108 | + 'declare -A m; x=$(printf "%0*d" 1000 0); m[k]=$x; echo ${#m[k]}' |
| 109 | + |
| 110 | +# BUG: assoc element assignment truncates long values (#35) |
| 111 | +compare_output "assoc array element from command substitution" \ |
| 112 | + 'declare -A m; m[x]=$(printf "%0*d" 1000 0); echo ${#m[x]}' |
| 113 | + |
| 114 | +compare_output "assoc array overwrite" \ |
| 115 | + 'declare -A m; m[k]=old; m[k]=new; echo ${m[k]}' |
| 116 | + |
| 117 | +# ========================================== |
| 118 | +# 5. Deep nesting |
| 119 | +# ========================================== |
| 120 | +section "5 - Deep nesting" |
| 121 | + |
| 122 | +compare_output "nested if 10 levels" \ |
| 123 | + 'x=1; if [ $x -eq 1 ]; then if [ $x -eq 1 ]; then if [ $x -eq 1 ]; then if [ $x -eq 1 ]; then if [ $x -eq 1 ]; then if [ $x -eq 1 ]; then if [ $x -eq 1 ]; then if [ $x -eq 1 ]; then if [ $x -eq 1 ]; then if [ $x -eq 1 ]; then echo deep; fi; fi; fi; fi; fi; fi; fi; fi; fi; fi' |
| 124 | + |
| 125 | +compare_output "nested loops 5 levels" \ |
| 126 | + 'for a in 1 2; do for b in 1 2; do for c in 1 2; do for d in 1 2; do for e in 1 2; do echo "$a$b$c$d$e"; done; done; done; done; done | wc -l' |
| 127 | + |
| 128 | +compare_output "nested command substitution 5 levels" \ |
| 129 | + 'echo $(echo $(echo $(echo $(echo hello))))' |
| 130 | + |
| 131 | +compare_output "nested case in loops" \ |
| 132 | + 'for i in a b c; do case $i in a) echo A;; b) for j in 1 2; do case $j in 1) echo B1;; 2) echo B2;; esac; done;; c) echo C;; esac; done' |
| 133 | + |
| 134 | +# ========================================== |
| 135 | +# 6. Many variables |
| 136 | +# ========================================== |
| 137 | +section "6 - Many variables" |
| 138 | + |
| 139 | +compare_output "100 variables" \ |
| 140 | + 'for i in $(seq 1 100); do eval "var_$i=$i"; done; echo $var_1 $var_50 $var_100' |
| 141 | + |
| 142 | +compare_output "export 50 variables" \ |
| 143 | + 'for i in $(seq 1 50); do export "ev_$i=$i"; done; env | grep "^ev_" | wc -l' |
| 144 | + |
| 145 | +compare_output "rapid set/unset cycle" \ |
| 146 | + 'for i in $(seq 1 50); do x=$i; unset x; done; echo ${x:-unset}' |
| 147 | + |
| 148 | +# ========================================== |
| 149 | +# 7. Function stress tests |
| 150 | +# ========================================== |
| 151 | +section "7 - Function stress tests" |
| 152 | + |
| 153 | +compare_output "function with many params" \ |
| 154 | + 'f() { echo $# $1 $5 ${10}; }; f a b c d e f g h i j' |
| 155 | + |
| 156 | +compare_output "recursive function 10 levels" \ |
| 157 | + 'f() { if [ $1 -le 0 ]; then echo done; else f $(($1 - 1)); fi; }; f 10' |
| 158 | + |
| 159 | +compare_output "recursive function 20 levels" \ |
| 160 | + 'f() { if [ $1 -le 0 ]; then echo $1; return; fi; f $(($1 - 1)); }; f 20' |
| 161 | + |
| 162 | +# BUG: recursive function 50 levels causes core dump (#36) |
| 163 | +compare_output "recursive function 50 levels" \ |
| 164 | + 'f() { if [ $1 -le 0 ]; then echo $1; return; fi; f $(($1 - 1)); }; f 50' |
| 165 | + |
| 166 | +compare_output "function redefine in loop" \ |
| 167 | + 'for i in 1 2 3; do eval "f() { echo $i; }"; f; done' |
| 168 | + |
| 169 | +compare_output "function local var scoping" \ |
| 170 | + 'f() { local x=inner; echo $x; }; x=outer; f; echo $x' |
| 171 | + |
| 172 | +compare_output "nested function calls 5 levels" \ |
| 173 | + 'a() { echo a; b; }; b() { echo b; c; }; c() { echo c; d; }; d() { echo d; e; }; e() { echo e; }; a' |
| 174 | + |
| 175 | +# ========================================== |
| 176 | +# 8. Alias stress tests |
| 177 | +# ========================================== |
| 178 | +section "8 - Alias stress tests" |
| 179 | + |
| 180 | +check_output "alias with long command" \ |
| 181 | + 'shopt -s expand_aliases; alias longcmd="echo hello_from_alias"; longcmd' \ |
| 182 | + 'hello_from_alias' |
| 183 | + |
| 184 | +compare_output "many aliases" \ |
| 185 | + 'shopt -s expand_aliases; for i in $(seq 1 20); do alias "a$i=echo $i"; done; alias | wc -l' |
| 186 | + |
| 187 | +# ========================================== |
| 188 | +# 9. Trap stress tests |
| 189 | +# ========================================== |
| 190 | +section "9 - Trap stress tests" |
| 191 | + |
| 192 | +compare_output "EXIT trap fires" \ |
| 193 | + 'trap "echo trapped" EXIT; true' |
| 194 | + |
| 195 | +compare_output "multiple trap signals" \ |
| 196 | + 'trap "echo exit" EXIT; trap "echo hup" HUP; trap "echo usr1" USR1; trap -p | grep -cE "(EXIT|HUP|USR1)"' |
| 197 | + |
| 198 | +compare_output "trap set/unset cycle" \ |
| 199 | + 'for i in $(seq 1 10); do trap "echo $i" EXIT; done; trap -p EXIT' |
| 200 | + |
| 201 | +# ========================================== |
| 202 | +# 10. Heredoc stress tests |
| 203 | +# ========================================== |
| 204 | +section "10 - Heredoc stress tests" |
| 205 | + |
| 206 | +compare_output "heredoc basic" \ |
| 207 | + 'cat <<EOF |
| 208 | +line1 |
| 209 | +line2 |
| 210 | +line3 |
| 211 | +EOF' |
| 212 | + |
| 213 | +compare_output "heredoc with variable expansion" \ |
| 214 | + 'x=world; cat <<EOF |
| 215 | +hello $x |
| 216 | +EOF' |
| 217 | + |
| 218 | +compare_output "heredoc with long delimiter" \ |
| 219 | + 'cat <<VERYLONGDELIMITERTHATISTOTALLYUNNECESSARY |
| 220 | +hello |
| 221 | +VERYLONGDELIMITERTHATISTOTALLYUNNECESSARY' |
| 222 | + |
| 223 | +# ========================================== |
| 224 | +# 11. String operations on large values |
| 225 | +# ========================================== |
| 226 | +section "11 - String operations" |
| 227 | + |
| 228 | +compare_output "string length of 3000-char var" \ |
| 229 | + 'x=$(head -c 3000 /dev/zero | tr "\0" "a"); echo ${#x}' |
| 230 | + |
| 231 | +compare_output "uppercase transform large string" \ |
| 232 | + 'x=$(head -c 1000 /dev/zero | tr "\0" "a"); echo ${x^^} | wc -c' |
| 233 | + |
| 234 | +compare_output "string replacement large string" \ |
| 235 | + 'x=$(head -c 1000 /dev/zero | tr "\0" "a"); echo ${x//a/b} | wc -c' |
| 236 | + |
| 237 | +compare_output "concatenation stress" \ |
| 238 | + 'x=""; for i in $(seq 1 100); do x="${x}abc"; done; echo ${#x}' |
| 239 | + |
| 240 | +# ========================================== |
| 241 | +# 12. Parameter expansion stress |
| 242 | +# ========================================== |
| 243 | +section "12 - Parameter expansion stress" |
| 244 | + |
| 245 | +compare_output "default value expansion chain" \ |
| 246 | + 'echo ${a:-${b:-${c:-${d:-${e:-deep}}}}}' |
| 247 | + |
| 248 | +compare_output "indirect expansion" \ |
| 249 | + 'x=hello; ref=x; echo ${!ref}' |
| 250 | + |
| 251 | +compare_output "many positional params" \ |
| 252 | + 'set -- $(seq 1 50); echo $# $1 ${25} ${50}' |
| 253 | + |
| 254 | +compare_output "shift through many params" \ |
| 255 | + 'set -- $(seq 1 30); shift 15; echo $1 $#' |
| 256 | + |
| 257 | +compare_output "all positional params" \ |
| 258 | + 'set -- $(seq 1 20); echo "$@" | wc -w' |
| 259 | + |
| 260 | +# ========================================== |
| 261 | +# 13. Pipeline stress |
| 262 | +# ========================================== |
| 263 | +section "13 - Pipeline stress" |
| 264 | + |
| 265 | +compare_output "10-stage pipeline" \ |
| 266 | + 'seq 1 100 | sort -n | head -50 | tail -10 | wc -l' |
| 267 | + |
| 268 | +compare_output "pipeline with large data" \ |
| 269 | + 'seq 1 10000 | wc -l' |
| 270 | + |
| 271 | +compare_output "pipeline with grep chain" \ |
| 272 | + 'seq 1 1000 | grep 5 | grep -v 50 | wc -l' |
| 273 | + |
| 274 | +# ========================================== |
| 275 | +# 14. Brace expansion stress |
| 276 | +# ========================================== |
| 277 | +section "14 - Brace expansion stress" |
| 278 | + |
| 279 | +compare_output "large sequence" \ |
| 280 | + 'echo {1..100} | wc -w' |
| 281 | + |
| 282 | +compare_output "nested braces" \ |
| 283 | + 'echo {a,b}{1,2,3}{x,y} | wc -w' |
| 284 | + |
| 285 | +compare_output "alpha sequence" \ |
| 286 | + 'echo {a..z} | wc -w' |
| 287 | + |
| 288 | +# ========================================== |
| 289 | +# 15. Boundary conditions |
| 290 | +# ========================================== |
| 291 | +section "15 - Boundary conditions" |
| 292 | + |
| 293 | +compare_output "empty variable operations" \ |
| 294 | + 'x=""; echo "${#x}" "${x:-default}" "${x:+set}"' |
| 295 | + |
| 296 | +compare_output "single char variable" \ |
| 297 | + 'x=a; echo ${#x} ${x}' |
| 298 | + |
| 299 | +compare_output "null byte handling" \ |
| 300 | + 'printf "a\0b" | wc -c' |
| 301 | + |
| 302 | +compare_output "empty command substitution" \ |
| 303 | + 'x=$(true); echo "[$x]"' |
| 304 | + |
| 305 | +compare_output "whitespace-only variable" \ |
| 306 | + 'x=" "; echo "${#x}" "$x"' |
| 307 | + |
| 308 | +compare_output "long assignment value" \ |
| 309 | + 'x=$(head -c 2000 /dev/zero | tr "\0" "z"); echo ${#x}' |
| 310 | + |
| 311 | +compare_output "variable with special chars" \ |
| 312 | + 'x="hello'\''world\"test"; echo "$x"' |
| 313 | + |
| 314 | +# ========================================== |
| 315 | +# 16. Pipeline overflow (formerly 4096 ceiling) |
| 316 | +# ========================================== |
| 317 | +section "16 - Pipeline overflow (>4096 byte values)" |
| 318 | + |
| 319 | +compare_output "5000-char variable via head" \ |
| 320 | + 'x=$(head -c 5000 /dev/zero | tr "\0" "a"); echo ${#x}' |
| 321 | + |
| 322 | +compare_output "10000-char variable via head" \ |
| 323 | + 'x=$(head -c 10000 /dev/zero | tr "\0" "a"); echo ${#x}' |
| 324 | + |
| 325 | +compare_output "5000-char in echo" \ |
| 326 | + 'x=$(head -c 5000 /dev/zero | tr "\0" "b"); echo ${#x}' |
| 327 | + |
| 328 | +compare_output "8000-char variable via python" \ |
| 329 | + 'x=$(python3 -c "print(\"c\"*8000, end=\"\")"); echo ${#x}' |
| 330 | + |
| 331 | +compare_output "5000-char array assignment via word splitting" \ |
| 332 | + 'x=$(head -c 5000 /dev/zero | tr "\0" "d"); arr=($x); echo ${#arr[0]}' |
| 333 | + |
| 334 | +compare_output "10000-char array element" \ |
| 335 | + 'x=$(head -c 10000 /dev/zero | tr "\0" "e"); arr=($x); echo ${#arr[0]}' |
| 336 | + |
| 337 | +compare_output "multiple 5000-char array elements" \ |
| 338 | + 'a=$(head -c 5000 /dev/zero | tr "\0" "f"); b=$(head -c 5000 /dev/zero | tr "\0" "g"); arr=($a $b); echo ${#arr[0]} ${#arr[1]}' |
| 339 | + |
| 340 | +compare_output "5000-char variable string length" \ |
| 341 | + 'x=$(head -c 5000 /dev/zero | tr "\0" "h"); echo ${#x}' |
| 342 | + |
| 343 | +compare_output "5000-char variable substring" \ |
| 344 | + 'x=$(head -c 5000 /dev/zero | tr "\0" "i"); y=${x:1000:2000}; echo ${#y}' |
| 345 | + |
| 346 | +compare_output "command substitution preserves 10000 bytes" \ |
| 347 | + 'echo $(head -c 10000 /dev/zero | tr "\0" "j") | wc -c' |
| 348 | + |
| 349 | +compare_output "nested command sub with large output" \ |
| 350 | + 'x=$(echo $(head -c 5000 /dev/zero | tr "\0" "k")); echo ${#x}' |
| 351 | + |
| 352 | +compare_output "export 5000-char variable" \ |
| 353 | + 'export BIGVAR=$(head -c 5000 /dev/zero | tr "\0" "m"); echo ${#BIGVAR}' |
| 354 | + |
| 355 | +# ========================================== |
| 356 | +# 17. Indirect expansion edge cases |
| 357 | +# ========================================== |
| 358 | +section "17 - Indirect expansion edge cases" |
| 359 | + |
| 360 | +compare_output "indirect to unset variable" \ |
| 361 | + 'ref=nosuchvar; echo "${!ref}"' |
| 362 | + |
| 363 | +compare_output "indirect with default value" \ |
| 364 | + 'x=hello; ref=x; echo ${!ref:-fallback}' |
| 365 | + |
| 366 | +compare_output "indirect chain (not recursive)" \ |
| 367 | + 'a=hello; b=a; echo ${!b}' |
| 368 | + |
| 369 | +compare_output "indirect to empty variable" \ |
| 370 | + 'x=""; ref=x; echo "[${!ref}]"' |
| 371 | + |
| 372 | +compare_output "indirect to integer variable" \ |
| 373 | + 'x=42; ref=x; echo ${!ref}' |
| 374 | + |
| 375 | +compare_output "indirect to PATH" \ |
| 376 | + 'ref=PATH; val=${!ref}; echo "${val:0:1}"' |
| 377 | + |
| 378 | +compare_output "indirect with nounset on valid ref" \ |
| 379 | + 'set -u; x=hello; ref=x; echo ${!ref}; set +u' |
| 380 | + |
| 381 | +# ========================================== |
| 382 | +# 18. Hardcoded limit boundary tests |
| 383 | +# ========================================== |
| 384 | +section "18 - Hardcoded limit boundaries" |
| 385 | + |
| 386 | +# Case statement patterns (grammar_parser patterns(10) limit) |
| 387 | +# NOTE: increasing case limits causes stack frame overflow in nested parsing. |
| 388 | +# Keeping limits at patterns(10)/items(20) to avoid stack corruption. |
| 389 | +# Issue tracked for future heap-allocation refactor. |
| 390 | +compare_output "case with 9 patterns" \ |
| 391 | + 'x=9; case $x in 1) echo a;; 2) echo b;; 3) echo c;; 4) echo d;; 5) echo e;; 6) echo f;; 7) echo g;; 8) echo h;; 9) echo i;; esac' |
| 392 | + |
| 393 | +compare_output "case with 10 patterns" \ |
| 394 | + 'x=10; case $x in 1) echo a;; 2) echo b;; 3) echo c;; 4) echo d;; 5) echo e;; 6) echo f;; 7) echo g;; 8) echo h;; 9) echo i;; 10) echo j;; esac' |
| 395 | + |
| 396 | +compare_output "case with 18 items" \ |
| 397 | + 'x=18; case $x in 1) echo a;; 2) echo b;; 3) echo c;; 4) echo d;; 5) echo e;; 6) echo f;; 7) echo g;; 8) echo h;; 9) echo i;; 10) echo j;; 11) echo k;; 12) echo l;; 13) echo m;; 14) echo n;; 15) echo o;; 16) echo p;; 17) echo q;; 18) echo r;; esac' |
| 398 | + |
| 399 | +# Many function definitions (function_ast_cache(20) limit) |
| 400 | +compare_output "25 function definitions" \ |
| 401 | + 'for i in $(seq 1 25); do eval "f_$i() { echo $i; }"; done; f_1; f_13; f_25' |
| 402 | + |
| 403 | +compare_output "30 function definitions" \ |
| 404 | + 'for i in $(seq 1 30); do eval "f_$i() { echo $i; }"; done; f_1; f_15; f_30' |
| 405 | + |
| 406 | +# Many prefix assignments (saved_var_names(10) limit) |
| 407 | +compare_output "5 prefix assignments" \ |
| 408 | + 'A=1 B=2 C=3 D=4 E=5 env | grep -c "^[ABCDE]="' |
| 409 | + |
| 410 | +compare_output "12 prefix assignments" \ |
| 411 | + 'A=1 B=2 C=3 D=4 E=5 F=6 G=7 H=8 I=9 J=10 K=11 L=12 env | grep -c "^[A-L]="' |
| 412 | + |
| 413 | +# Many shell variables (MAX_SHELL_VARS=512) |
| 414 | +compare_output "200 variables" \ |
| 415 | + 'for i in $(seq 1 200); do eval "var_$i=$i"; done; echo $var_1 $var_100 $var_200' |
| 416 | + |
| 417 | +compare_output "400 variables" \ |
| 418 | + 'i=1; while [ $i -le 400 ]; do eval "var_$i=$i"; i=$((i+1)); done; echo $var_1 $var_200 $var_400' |
| 419 | + |
| 420 | +# Control flow nesting depth (MAX_CONTROL_DEPTH=20) |
| 421 | +compare_output "nested if 15 levels" \ |
| 422 | + 'x=1; if [ $x -eq 1 ]; then if [ $x -eq 1 ]; then if [ $x -eq 1 ]; then if [ $x -eq 1 ]; then if [ $x -eq 1 ]; then if [ $x -eq 1 ]; then if [ $x -eq 1 ]; then if [ $x -eq 1 ]; then if [ $x -eq 1 ]; then if [ $x -eq 1 ]; then if [ $x -eq 1 ]; then if [ $x -eq 1 ]; then if [ $x -eq 1 ]; then if [ $x -eq 1 ]; then if [ $x -eq 1 ]; then echo deep15; fi; fi; fi; fi; fi; fi; fi; fi; fi; fi; fi; fi; fi; fi; fi' |
| 423 | + |
| 424 | +# Long variable names (MAX_VAR_NAME_LEN=256) |
| 425 | +compare_output "100-char variable name" \ |
| 426 | + 'eval "$(printf "a%.0s" $(seq 1 100))=hello"; eval "echo \$$(printf "a%.0s" $(seq 1 100))"' |
| 427 | + |
| 428 | +compare_output "200-char variable name" \ |
| 429 | + 'eval "$(printf "a%.0s" $(seq 1 200))=world"; eval "echo \$$(printf "a%.0s" $(seq 1 200))"' |
| 430 | + |
| 431 | +# ========================================== |
| 432 | +# 19. Recursion & stack pressure |
| 433 | +# ========================================== |
| 434 | +section "19 - Recursion and stack pressure" |
| 435 | + |
| 436 | +compare_output "recursive function 75 levels" \ |
| 437 | + 'f() { if [ $1 -le 0 ]; then echo $1; return; fi; f $(($1 - 1)); }; f 75' |
| 438 | + |
| 439 | +compare_output "recursive function 100 levels" \ |
| 440 | + 'f() { if [ $1 -le 0 ]; then echo $1; return; fi; f $(($1 - 1)); }; f 100' |
| 441 | + |
| 442 | +compare_output "mutual recursion 20 levels" \ |
| 443 | + 'a() { if [ $1 -le 0 ]; then echo done; return; fi; b $(($1-1)); }; b() { a "$1"; }; a 20' |
| 444 | + |
| 445 | +compare_output "nested subshells 10 levels" \ |
| 446 | + '(echo 1; (echo 2; (echo 3; (echo 4; (echo 5; (echo 6; (echo 7; (echo 8; (echo 9; (echo 10))))))))))' |
| 447 | + |
| 448 | +compare_output "nested command substitution 10 levels" \ |
| 449 | + 'echo $(echo $(echo $(echo $(echo $(echo $(echo $(echo $(echo $(echo hello)))))))))' |
| 450 | + |
| 451 | +compare_output "nested arithmetic 20 levels" \ |
| 452 | + 'echo $(( ((((((((((((((((((((1+1)))))))))))))))))))) ))' |
| 453 | + |
| 454 | +# ========================================== |
| 455 | +# 20. Memory & buffer boundary tests |
| 456 | +# ========================================== |
| 457 | +section "20 - Buffer boundaries" |
| 458 | + |
| 459 | +# Command substitution at exact power-of-2 boundaries |
| 460 | +compare_output "cmd sub exactly 4096 bytes" \ |
| 461 | + 'x=$(head -c 4096 /dev/zero | tr "\0" "a"); echo ${#x}' |
| 462 | + |
| 463 | +compare_output "cmd sub exactly 4097 bytes" \ |
| 464 | + 'x=$(head -c 4097 /dev/zero | tr "\0" "a"); echo ${#x}' |
| 465 | + |
| 466 | +compare_output "cmd sub exactly 8192 bytes" \ |
| 467 | + 'x=$(head -c 8192 /dev/zero | tr "\0" "a"); echo ${#x}' |
| 468 | + |
| 469 | +compare_output "cmd sub exactly 8193 bytes" \ |
| 470 | + 'x=$(head -c 8193 /dev/zero | tr "\0" "a"); echo ${#x}' |
| 471 | + |
| 472 | +compare_output "cmd sub exactly 16384 bytes" \ |
| 473 | + 'x=$(head -c 16384 /dev/zero | tr "\0" "a"); echo ${#x}' |
| 474 | + |
| 475 | +compare_output "cmd sub exactly 65536 bytes" \ |
| 476 | + 'x=$(head -c 65536 /dev/zero | tr "\0" "a"); echo ${#x}' |
| 477 | + |
| 478 | +# Pattern matching on large strings |
| 479 | +compare_output "pattern removal on 5000-char string" \ |
| 480 | + 'x=$(head -c 5000 /dev/zero | tr "\0" "a"); y=${x#aaa}; echo ${#y}' |
| 481 | + |
| 482 | +compare_output "pattern replace on 5000-char string" \ |
| 483 | + 'x=$(head -c 5000 /dev/zero | tr "\0" "a"); echo ${x//a/b} | wc -c' |
| 484 | + |
| 485 | +# Sparse array |
| 486 | +compare_output "sparse array index 10000" \ |
| 487 | + 'arr[10000]=hello; echo ${arr[10000]}' |
| 488 | + |
| 489 | +compare_output "sparse array index 99999" \ |
| 490 | + 'arr[99999]=world; echo ${arr[99999]}' |
| 491 | + |
| 492 | +# Arithmetic integer boundaries |
| 493 | +compare_output "arithmetic max int" \ |
| 494 | + 'echo $((9223372036854775807))' |
| 495 | + |
| 496 | +compare_output "arithmetic large multiplication" \ |
| 497 | + 'echo $((1000000 * 1000000))' |
| 498 | + |
| 499 | +compare_output "arithmetic negative" \ |
| 500 | + 'echo $((-2147483648))' |
| 501 | + |
| 502 | +# Substring at boundary offsets |
| 503 | +compare_output "substring negative offset" \ |
| 504 | + 'x=hello_world; echo ${x: -5}' |
| 505 | + |
| 506 | +compare_output "substring offset beyond length" \ |
| 507 | + 'x=hi; echo "[${x:100:5}]"' |
| 508 | + |
| 509 | +compare_output "substring zero length" \ |
| 510 | + 'x=hello; echo "[${x:2:0}]"' |
| 511 | + |
| 512 | +# ========================================== |
| 513 | +# 21. Tokenization limits |
| 514 | +# ========================================== |
| 515 | +section "21 - Tokenization limits" |
| 516 | + |
| 517 | +compare_output "echo with 200 arguments" \ |
| 518 | + 'echo $(seq 1 200) | wc -w' |
| 519 | + |
| 520 | +compare_output "echo with 400 arguments" \ |
| 521 | + 'echo $(seq 1 400) | wc -w' |
| 522 | + |
| 523 | +compare_output "many semicolons 30 commands" \ |
| 524 | + 'a=0; a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); a=$((a+1)); echo $a' |
| 525 | + |
| 526 | +# ========================================== |
| 527 | +# 22. FD & redirection stress |
| 528 | +# ========================================== |
| 529 | +section "22 - FD and redirection stress" |
| 530 | + |
| 531 | +compare_output "rapid redirect cycling 100 iterations" \ |
| 532 | + 'i=1; while [ $i -le 100 ]; do echo $i > /tmp/fortsh_test_fd_$$; i=$((i+1)); done; cat /tmp/fortsh_test_fd_$$; rm -f /tmp/fortsh_test_fd_$$' |
| 533 | + |
| 534 | +compare_output "append redirect 200 lines" \ |
| 535 | + 'rm -f /tmp/fortsh_test_append_$$; i=1; while [ $i -le 200 ]; do echo $i >> /tmp/fortsh_test_append_$$; i=$((i+1)); done; wc -l < /tmp/fortsh_test_append_$$; rm -f /tmp/fortsh_test_append_$$' |
| 536 | + |
| 537 | +compare_output "stderr redirect in loop" \ |
| 538 | + 'for i in 1 2 3 4 5; do echo "err$i" >&2; done 2>&1 | wc -l' |
| 539 | + |
| 540 | +compare_output "output and error merge" \ |
| 541 | + '{ echo stdout; echo stderr >&2; } 2>&1 | sort' |
| 542 | + |
| 543 | +compare_output "dev null redirect in loop" \ |
| 544 | + 'i=1; while [ $i -le 100 ]; do echo $i > /dev/null; i=$((i+1)); done; echo done' |
| 545 | + |
| 546 | +# ========================================== |
| 547 | +# 23. Pipeline & fork stress |
| 548 | +# ========================================== |
| 549 | +section "23 - Pipeline and fork stress" |
| 550 | + |
| 551 | +compare_output "15-stage pipeline" \ |
| 552 | + 'echo hello | cat | cat | cat | cat | cat | cat | cat | cat | cat | cat | cat | cat | cat | cat' |
| 553 | + |
| 554 | +compare_output "20-stage pipeline" \ |
| 555 | + 'echo hello | cat | cat | cat | cat | cat | cat | cat | cat | cat | cat | cat | cat | cat | cat | cat | cat | cat | cat | cat' |
| 556 | + |
| 557 | +compare_output "pipeline with 100000 lines" \ |
| 558 | + 'seq 1 100000 | wc -l' |
| 559 | + |
| 560 | +compare_output "pipeline with sort 10000 lines" \ |
| 561 | + 'seq 1 10000 | sort -rn 2>/dev/null | head -1' |
| 562 | + |
| 563 | +compare_output "background job wait cycling" \ |
| 564 | + 'i=1; while [ $i -le 50 ]; do true & i=$((i+1)); done; wait; echo done' |
| 565 | + |
| 566 | +compare_output "100 background jobs then wait" \ |
| 567 | + 'i=1; while [ $i -le 100 ]; do true & i=$((i+1)); done; wait; echo done' |
| 568 | + |
| 569 | +compare_output "subshell pipeline isolation" \ |
| 570 | + 'x=outer; echo $x | (read y; echo $y) | cat' |
| 571 | + |
| 572 | +# ========================================== |
| 573 | +# 24. Array scaling |
| 574 | +# ========================================== |
| 575 | +section "24 - Array scaling" |
| 576 | + |
| 577 | +# BUG: arr[$i]=$i doesn't expand $i in subscript — use eval workaround |
| 578 | +compare_output "indexed array 100 elements" \ |
| 579 | + 'i=0; while [ $i -lt 100 ]; do eval "arr[$i]=$i"; i=$((i+1)); done; echo ${#arr[@]} ${arr[0]} ${arr[50]} ${arr[99]}' |
| 580 | + |
| 581 | +compare_output "indexed array 500 elements" \ |
| 582 | + 'i=0; while [ $i -lt 500 ]; do eval "arr[$i]=$i"; i=$((i+1)); done; echo ${#arr[@]} ${arr[0]} ${arr[250]} ${arr[499]}' |
| 583 | + |
| 584 | +# BUG: arr=($(cmd)) doesn't word-split command substitution into elements |
| 585 | +compare_output "indexed array via init list 20" \ |
| 586 | + 'arr=(a b c d e f g h i j k l m n o p q r s t); echo ${#arr[@]} ${arr[0]} ${arr[19]}' |
| 587 | + |
| 588 | +compare_output "array append 500 times" \ |
| 589 | + 'arr=(); i=0; while [ $i -lt 500 ]; do arr+=("$i"); i=$((i+1)); done; echo ${#arr[@]}' |
| 590 | + |
| 591 | +# BUG: m["key$i"] doesn't expand $i in subscript — use eval workaround |
| 592 | +compare_output "assoc array 100 keys" \ |
| 593 | + 'declare -A m; i=1; while [ $i -le 100 ]; do eval "m[key$i]=$i"; i=$((i+1)); done; echo ${#m[@]} ${m[key1]} ${m[key50]} ${m[key100]}' |
| 594 | + |
| 595 | +compare_output "assoc array 200 keys" \ |
| 596 | + 'declare -A m; i=1; while [ $i -le 200 ]; do eval "m[key$i]=$i"; i=$((i+1)); done; echo ${#m[@]}' |
| 597 | + |
| 598 | +compare_output "assoc array overwrite cycle" \ |
| 599 | + 'declare -A m; i=1; while [ $i -le 100 ]; do m[k]=$i; i=$((i+1)); done; echo ${m[k]}' |
| 600 | + |
| 601 | +compare_output "array element 10000-char value" \ |
| 602 | + 'x=$(head -c 10000 /dev/zero | tr "\0" "a"); arr[0]=$x; echo ${#arr[0]}' |
| 603 | + |
| 604 | +# ========================================== |
| 605 | +# 25. Control flow edge cases |
| 606 | +# ========================================== |
| 607 | +section "25 - Control flow edge cases" |
| 608 | + |
| 609 | +compare_output "mixed loop nesting for-while-until" \ |
| 610 | + 'for i in 1 2; do j=0; while [ $j -lt 2 ]; do k=5; until [ $k -le 3 ]; do k=$((k-1)); done; echo "$i $j $k"; j=$((j+1)); done; done' |
| 611 | + |
| 612 | +compare_output "break 2 from inner loop" \ |
| 613 | + 'for i in 1 2 3; do for j in a b c; do if [ "$j" = "b" ]; then break 2; fi; echo "$i$j"; done; done; echo end' |
| 614 | + |
| 615 | +compare_output "break 3 from triple nested" \ |
| 616 | + 'for i in 1 2; do for j in a b; do for k in x y; do if [ "$k" = "y" ]; then break 3; fi; echo "$i$j$k"; done; done; done; echo end' |
| 617 | + |
| 618 | +compare_output "continue 2 from inner loop" \ |
| 619 | + 'for i in 1 2 3; do for j in a b c; do if [ "$j" = "b" ]; then continue 2; fi; echo "$i$j"; done; done' |
| 620 | + |
| 621 | +compare_output "loop 5000 iterations" \ |
| 622 | + 'x=0; i=0; while [ $i -lt 5000 ]; do x=$((x+1)); i=$((i+1)); done; echo $x' |
| 623 | + |
| 624 | +# 10000 iterations takes ~72s on ARM64, ~1s on x86_64 |
| 625 | +case "$(uname -m)" in |
| 626 | + arm64|aarch64) TEST_TIMEOUT=180 ;; |
| 627 | + *) TEST_TIMEOUT=60 ;; |
| 628 | +esac |
| 629 | +compare_output "loop 10000 iterations" \ |
| 630 | + 'x=0; i=0; while [ $i -lt 10000 ]; do x=$((x+1)); i=$((i+1)); done; echo $x' |
| 631 | +case "$(uname -m)" in |
| 632 | + arm64|aarch64) TEST_TIMEOUT=90 ;; |
| 633 | + *) TEST_TIMEOUT=30 ;; |
| 634 | +esac |
| 635 | + |
| 636 | +compare_output "while with complex condition" \ |
| 637 | + 'i=0; while [ $i -lt 10 ] && [ $((i % 2)) -eq 0 -o $i -lt 5 ]; do echo $i; i=$((i+1)); done' |
| 638 | + |
| 639 | +compare_output "nested case in loop" \ |
| 640 | + 'for i in $(seq 1 20); do case $((i % 4)) in 0) echo "a$i";; 1) echo "b$i";; 2) echo "c$i";; 3) echo "d$i";; esac; done | wc -l' |
| 641 | + |
| 642 | +# ========================================== |
| 643 | +# 26. Trap & signal stress |
| 644 | +# ========================================== |
| 645 | +section "26 - Trap and signal stress" |
| 646 | + |
| 647 | +compare_output "set traps on 10 signals" \ |
| 648 | + 'trap "echo 1" HUP; trap "echo 2" INT; trap "echo 3" QUIT; trap "echo 4" TERM; trap "echo 5" USR1; trap "echo 6" USR2; trap "echo 7" PIPE; trap "echo 8" ALRM; trap "echo 9" CONT; trap "echo exit" EXIT; trap -p | wc -l' |
| 649 | + |
| 650 | +compare_output "trap reset cycling 50 times" \ |
| 651 | + 'i=1; while [ $i -le 50 ]; do trap "echo $i" EXIT; i=$((i+1)); done; trap -p EXIT' |
| 652 | + |
| 653 | +compare_output "trap with long handler" \ |
| 654 | + 'handler=""; i=1; while [ $i -le 100 ]; do handler="${handler}echo $i;"; i=$((i+1)); done; trap "$handler" EXIT; echo before' |
| 655 | + |
| 656 | +compare_output "modify trap inside trap" \ |
| 657 | + 'trap '\''trap "echo inner" EXIT; echo outer'\'' EXIT; exit 0' |
| 658 | + |
| 659 | +compare_output "trap unset then reset" \ |
| 660 | + 'trap "echo first" EXIT; trap - EXIT; trap "echo second" EXIT; exit 0' |
| 661 | + |
| 662 | +# ========================================== |
| 663 | +# 27. String & expansion stress |
| 664 | +# ========================================== |
| 665 | +section "27 - String and expansion stress" |
| 666 | + |
| 667 | +compare_output "uppercase 5000-char variable" \ |
| 668 | + 'x=$(head -c 5000 /dev/zero | tr "\0" "a"); echo ${x^^} | wc -c' |
| 669 | + |
| 670 | +compare_output "lowercase 5000-char variable" \ |
| 671 | + 'x=$(head -c 5000 /dev/zero | tr "\0" "A"); echo ${x,,} | wc -c' |
| 672 | + |
| 673 | +compare_output "global replace 5000-char variable" \ |
| 674 | + 'x=$(head -c 5000 /dev/zero | tr "\0" "a"); echo ${x//a/b} | wc -c' |
| 675 | + |
| 676 | +compare_output "concatenation loop 5000 chars" \ |
| 677 | + 'x=""; for i in $(seq 1 1000); do x="${x}abcde"; done; echo ${#x}' |
| 678 | + |
| 679 | +compare_output "prefix removal on 10000-char string" \ |
| 680 | + 'x=$(head -c 10000 /dev/zero | tr "\0" "a"); y=${x#aaaa}; echo ${#y}' |
| 681 | + |
| 682 | +compare_output "suffix removal on 10000-char string" \ |
| 683 | + 'x=$(head -c 10000 /dev/zero | tr "\0" "a"); y=${x%aaaa}; echo ${#y}' |
| 684 | + |
| 685 | +compare_output "default expansion chain 8 deep" \ |
| 686 | + 'echo ${a:-${b:-${c:-${d:-${e:-${f:-${g:-${h:-deep8}}}}}}}}' |
| 687 | + |
| 688 | +compare_output "assign-default expansion" \ |
| 689 | + 'unset x; echo ${x:=hello}; echo $x' |
| 690 | + |
| 691 | +compare_output "error-if-unset expansion" \ |
| 692 | + 'x=set; echo ${x:?should not error}' |
| 693 | + |
| 694 | +# ========================================== |
| 695 | +# 28. Heredoc scaling |
| 696 | +# ========================================== |
| 697 | +section "28 - Heredoc scaling" |
| 698 | + |
| 699 | +compare_output "heredoc 50 lines" \ |
| 700 | + 'cat <<EOF | wc -l |
| 701 | +$(seq 1 50) |
| 702 | +EOF' |
| 703 | + |
| 704 | +compare_output "heredoc with 20 variable expansions" \ |
| 705 | + 'a=1; b=2; c=3; d=4; e=5; f=6; g=7; h=8; i=9; j=10; cat <<EOF |
| 706 | +$a $b $c $d $e $f $g $h $i $j $a $b $c $d $e $f $g $h $i $j |
| 707 | +EOF' |
| 708 | + |
| 709 | +compare_output "heredoc with command substitution" \ |
| 710 | + 'cat <<EOF |
| 711 | +$(echo hello) $(echo world) $(echo from) $(echo heredoc) |
| 712 | +EOF' |
| 713 | + |
| 714 | +compare_output "heredoc quoted delimiter no expansion" \ |
| 715 | + 'x=should_not_expand; cat <<'\''EOF'\'' |
| 716 | +$x $(echo nope) |
| 717 | +EOF' |
| 718 | + |
| 719 | +compare_output "multiple heredocs sequential" \ |
| 720 | + 'cat <<A; cat <<B; cat <<C |
| 721 | +line_a |
| 722 | +A |
| 723 | +line_b |
| 724 | +B |
| 725 | +line_c |
| 726 | +C' |
| 727 | + |
| 728 | +# ========================================== |
| 729 | +# 29. Glob expansion stress |
| 730 | +# ========================================== |
| 731 | +section "29 - Glob expansion" |
| 732 | + |
| 733 | +compare_output "glob with many matches" \ |
| 734 | + 'mkdir -p /tmp/fortsh_glob_$$; i=1; while [ $i -le 200 ]; do touch /tmp/fortsh_glob_$$/f$i.txt; i=$((i+1)); done; ls /tmp/fortsh_glob_$$/*.txt | wc -l; rm -rf /tmp/fortsh_glob_$$' |
| 735 | + |
| 736 | +# Use check_output for glob no-match since $$ differs between bash and fortsh |
| 737 | +check_output "glob with no matches nullglob off" \ |
| 738 | + 'echo /tmp/no_such_dir_xyz/*.abc' \ |
| 739 | + '/tmp/no_such_dir_xyz/*.abc' |
| 740 | + |
| 741 | +compare_output "glob bracket expression" \ |
| 742 | + 'mkdir -p /tmp/fortsh_glob2_$$; touch /tmp/fortsh_glob2_$$/a1 /tmp/fortsh_glob2_$$/b2 /tmp/fortsh_glob2_$$/c3; ls /tmp/fortsh_glob2_$$/[abc][0-9] | wc -l; rm -rf /tmp/fortsh_glob2_$$' |
| 743 | + |
| 744 | +compare_output "glob question mark" \ |
| 745 | + 'mkdir -p /tmp/fortsh_glob3_$$; touch /tmp/fortsh_glob3_$$/ax /tmp/fortsh_glob3_$$/bx /tmp/fortsh_glob3_$$/cx; echo /tmp/fortsh_glob3_$$/?x | wc -w; rm -rf /tmp/fortsh_glob3_$$' |
| 746 | + |
| 747 | +# ========================================== |
| 748 | +# 30. Eval & dynamic execution stress |
| 749 | +# ========================================== |
| 750 | +section "30 - Eval and dynamic execution" |
| 751 | + |
| 752 | +compare_output "eval with nested quoting" \ |
| 753 | + 'x="echo hello"; eval "$x"' |
| 754 | + |
| 755 | +compare_output "eval defining 50 variables" \ |
| 756 | + 'for i in $(seq 1 50); do eval "v$i=$((i*2))"; done; echo $v1 $v25 $v50' |
| 757 | + |
| 758 | +compare_output "eval redefining function 20 times" \ |
| 759 | + 'for i in $(seq 1 20); do eval "f() { echo $i; }"; done; f' |
| 760 | + |
| 761 | +compare_output "eval with command substitution" \ |
| 762 | + 'x="echo \$(echo nested)"; eval "$x"' |
| 763 | + |
| 764 | +compare_output "eval chain 5 deep" \ |
| 765 | + 'eval "eval \"eval \\\"eval \\\\\\\"echo deep\\\\\\\"\\\"\""' |
| 766 | + |
| 767 | +# ========================================== |
| 768 | +# 31. Rapid set/unset & variable churn |
| 769 | +# ========================================== |
| 770 | +section "31 - Variable churn" |
| 771 | + |
| 772 | +compare_output "set/unset 500 cycle" \ |
| 773 | + 'i=0; while [ $i -lt 500 ]; do x=$i; unset x; i=$((i+1)); done; echo ${x:-done}' |
| 774 | + |
| 775 | +compare_output "rapid export/unexport" \ |
| 776 | + 'i=0; while [ $i -lt 100 ]; do export v=$i; unset v; i=$((i+1)); done; echo ${v:-done}' |
| 777 | + |
| 778 | +compare_output "overwrite same variable 1000 times" \ |
| 779 | + 'i=0; while [ $i -lt 1000 ]; do x=$i; i=$((i+1)); done; echo $x' |
| 780 | + |
| 781 | +compare_output "local variable scoping 10 deep" \ |
| 782 | + 'f() { local x=$1; if [ $1 -le 0 ]; then echo $x; return; fi; f $(($1-1)); echo $x; }; f 10 | head -1' |
| 783 | + |
| 784 | +compare_output "local var does not leak" \ |
| 785 | + 'f() { local inner=secret; }; f; echo "${inner:-not_leaked}"' |
| 786 | + |
| 787 | +# ========================================== |
| 788 | +# 32. Quoting & escaping edge cases |
| 789 | +# ========================================== |
| 790 | +section "32 - Quoting edge cases" |
| 791 | + |
| 792 | +compare_output "single quotes preserve specials" \ |
| 793 | + 'echo '\''$HOME $(echo no) `echo no`'\''' |
| 794 | + |
| 795 | +compare_output "double quotes allow expansion" \ |
| 796 | + 'x=works; echo "it $x"' |
| 797 | + |
| 798 | +compare_output "mixed quote concatenation" \ |
| 799 | + "echo 'hello'\"world\"'more'" |
| 800 | + |
| 801 | +compare_output "backslash in double quotes" \ |
| 802 | + 'echo "a\\b" "c\"d" "e\$f"' |
| 803 | + |
| 804 | +# dollar-single-quote ($'...') ANSI-C quoting |
| 805 | +compare_output "dollar-single-quote escapes" \ |
| 806 | + "echo \$'hello\\tworld'" |
| 807 | + |
| 808 | +compare_output "empty string arguments preserved" \ |
| 809 | + 'f() { echo $#; }; f "" "" ""' |
| 810 | + |
| 811 | +compare_output "IFS splitting edge case" \ |
| 812 | + 'IFS=:; x="a:b::d"; for w in $x; do echo "[$w]"; done' |
| 813 | + |
| 814 | +# ========================================== |
| 815 | +# 33. Process substitution & subshell stress |
| 816 | +# ========================================== |
| 817 | +section "33 - Subshell isolation" |
| 818 | + |
| 819 | +compare_output "subshell variable isolation" \ |
| 820 | + 'x=outer; (x=inner; echo $x); echo $x' |
| 821 | + |
| 822 | +compare_output "subshell exit code" \ |
| 823 | + '(exit 42); echo $?' |
| 824 | + |
| 825 | +compare_output "nested subshell variable" \ |
| 826 | + 'x=1; (x=2; (x=3; echo $x); echo $x); echo $x' |
| 827 | + |
| 828 | +compare_output "subshell with loop" \ |
| 829 | + '(for i in 1 2 3; do echo $i; done) | wc -l' |
| 830 | + |
| 831 | +compare_output "subshell does not affect parent vars" \ |
| 832 | + 'x=before; (x=after; export x); echo $x' |
| 833 | + |
| 834 | +# ========================================== |
| 835 | +# 34. Compound command stress |
| 836 | +# ========================================== |
| 837 | +section "34 - Compound commands" |
| 838 | + |
| 839 | +compare_output "brace group with many commands" \ |
| 840 | + '{ echo a; echo b; echo c; echo d; echo e; echo f; echo g; echo h; echo i; echo j; } | wc -l' |
| 841 | + |
| 842 | +compare_output "brace group pipeline" \ |
| 843 | + '{ echo hello; echo world; } | sort' |
| 844 | + |
| 845 | +compare_output "brace group with redirect" \ |
| 846 | + '{ echo line1; echo line2; echo line3; } > /tmp/fortsh_brace_$$; wc -l < /tmp/fortsh_brace_$$; rm -f /tmp/fortsh_brace_$$' |
| 847 | + |
| 848 | +compare_output "nested brace groups" \ |
| 849 | + '{ { { echo deep; }; }; }' |
| 850 | + |
| 851 | +compare_output "command list with mixed operators" \ |
| 852 | + 'true && echo a; false || echo b; true && false || echo c' |
| 853 | + |
| 854 | +compare_output "long AND chain" \ |
| 855 | + 'true && true && true && true && true && true && true && true && true && true && echo all_true' |
| 856 | + |
| 857 | +compare_output "long OR chain" \ |
| 858 | + 'false || false || false || false || false || false || false || false || false || false || echo found' |
| 859 | + |
| 860 | +compare_output "mixed AND/OR chain" \ |
| 861 | + 'true && false || true && echo result' |
| 862 | + |
| 863 | +print_summary |