From 3486bfc158008da1d69d420e57e7a10f1c0d69c3 Mon Sep 17 00:00:00 2001 From: wtschueller Date: Fri, 20 Jun 2014 17:37:21 +0200 Subject: Update test 058 because commit 9d315a9 fixes also Bug 729135 --HG-- extra : rebase_source : aedb08ea08b1b0a983e31a11765c75b56c0b5ceb --- testing/058/058__bracket__recursion_8tcl.xml | 30 ++++++++++++++++++++++++++++ testing/058_bracket_recursion.tcl | 18 ++++++++++++++++- 2 files changed, 47 insertions(+), 1 deletion(-) diff --git a/testing/058/058__bracket__recursion_8tcl.xml b/testing/058/058__bracket__recursion_8tcl.xml index da0168d..fd36cee 100644 --- a/testing/058/058__bracket__recursion_8tcl.xml +++ b/testing/058/058__bracket__recursion_8tcl.xml @@ -36,6 +36,8 @@ r s t + y + z @@ -344,6 +346,34 @@ Invoked + + + y + + y + + + + + + + + Invoked + + + + z + + z + + + + + + + + Invoked + diff --git a/testing/058_bracket_recursion.tcl b/testing/058_bracket_recursion.tcl index 0a07087..2ecd673 100644 --- a/testing/058_bracket_recursion.tcl +++ b/testing/058_bracket_recursion.tcl @@ -129,7 +129,23 @@ proc t args { set foo ]]]][Invoked] return } - +# Example according to +# https://bugzilla.gnome.org/show_bug.cgi?id=729135 +# | +# Note the subtle difference in this | whitespace +# V +proc y {} { + set classifier_state {{bphy} } + if { ($classifier_state == {{bphy} }) } { + Invoked + } +} +proc z {} { + set classifier_state {{bphy} } + if { ($classifier_state == {{bphy} } ) } { + Invoked + } +} # # call all single letter procs # let tcl check what is called and what is not called -- cgit v0.12