Fix for issue [a8579d906a28], "argument with no name".

1 files changed, 9 insertions, 0 deletions

diff --git a/tests/proc.test b/tests/proc.test
index 4b539c4..a6409c8 100644
--- a/tests/proc.test
+++ b/tests/proc.test
@@ -324,6 +324,15 @@ test proc-4.8 {TclCreateProc, procbody obj, no leak on multiple iterations} -set
 test proc-4.9 {[39fed4dae5] Valid Tcl_PkgPresent return} procbodytest {
     procbodytest::check
 } 1
+test proc-4.10 {
+    TclCreateProc, issue a8579d906a28, argument with no name
+} -body {
+    catch {
+	proc p1 [list [list [expr {1 + 2}] default]] {}
+    }
+} -cleanup {
+    catch {rename p1 {}}
+} -result 0 
 
 test proc-5.1 {Bytecompiling noop; test for correct argument substitution} -body {
     proc p args {} ; # this will be bytecompiled into t