Testsuite: regression test for Bug 2061

diff --git a/test/scripts/0000-Basic/0002 b/test/scripts/0000-Basic/0002
index c2dcc40d9abc9b59b9d66da2eee73d7ef1995f56..cf8dc36e04a374ce0d58dde3422299238c923d44 100644 (file)
--- a/test/scripts/0000-Basic/0002
+++ b/test/scripts/0000-Basic/0002
@@ -63,6 +63,8 @@ reduce: "${reduce{}{+}{$value$item}}"
 reduce: ${reduce{a:b:c}{+}{$value$item}}
 reduce: ${reduce {<, 1,2,3}{0}{${eval:$value+$item}}}
 reduce: ${reduce {3:0:9:4:6}{0}{${if >{$item}{$value}{$item}{$value}}}}
 reduce: ${reduce{a:b:c}{+}{$value$item}}
 reduce: ${reduce {<, 1,2,3}{0}{${eval:$value+$item}}}
 reduce: ${reduce {3:0:9:4:6}{0}{${if >{$item}{$value}{$item}{$value}}}}

+# Check for extract corrupting reduce's $value
+reduce: ${reduce {b}{a aaa}{${extract{1}{ }{$value}} , $item}}

 
 listnamed: ${listnamed:dlist}
 listnamed: ${listnamed:+dlist}
 
 listnamed: ${listnamed:dlist}
 listnamed: ${listnamed:+dlist}

diff --git a/test/stdout/0002 b/test/stdout/0002
index b6ca54d48363cbcba8446e2682e4bb25bbda2374..fa445b01cda1b001168e7e05471f86fa9565db85 100644 (file)
--- a/test/stdout/0002
+++ b/test/stdout/0002
@@ -52,6 +52,8 @@
 > reduce: +abc
 > reduce: 6
 > reduce: 9
 > reduce: +abc
 > reduce: 6
 > reduce: 9

+> # Check for extract corrupting reduce's 
+> reduce: a , b

 > 
 > listnamed: *.aa.bb : ^\Nxxx(.*)
 > listnamed: *.aa.bb : ^\Nxxx(.*)
 > 
 > listnamed: *.aa.bb : ^\Nxxx(.*)
 > listnamed: *.aa.bb : ^\Nxxx(.*)