tests/leaks.sh: test unalias (re: 5d50f825)

2020-09-18 16:51:57 +02:00 · 2020-09-18 16:51:57 +02:00 · 69679be8d7
parent 7303824789
commit 69679be8d7
1 changed files with 11 additions and 0 deletions
--- a/src/cmd/ksh93/tests/leaks.sh
+++ b/src/cmd/ksh93/tests/leaks.sh
@ -246,5 +246,16 @@ done
 after=$(getmem)
 err_exit_if_leak 'typeset in function called by command substitution'

+# ======
+# Check that unsetting an alias frees both the node and its value
+
+before=$(getmem)
+for ((i=0; i < N; i++))
+do	alias "test$i=command$i"
+	unalias "test$i"
+done
+after=$(getmem)
+err_exit_if_leak 'unalias'
+
 # ======
 exit $((Errors<125?Errors:125))