From e87a5bc65e9ebfa030e37f9b558a6703ebe34bd7 Mon Sep 17 00:00:00 2001 From: apn Date: Thu, 18 Apr 2013 17:07:11 +0400 Subject: [PATCH] Correction bugs xde group --- tests/bugs/xde/bug23047_1 | 9 ++++----- tests/bugs/xde/bug23047_2 | 10 ++++++---- 2 files changed, 10 insertions(+), 9 deletions(-) diff --git a/tests/bugs/xde/bug23047_1 b/tests/bugs/xde/bug23047_1 index a7b7cb3ff6..885c26b0dc 100755 --- a/tests/bugs/xde/bug23047_1 +++ b/tests/bugs/xde/bug23047_1 @@ -21,14 +21,13 @@ QARebuild Xdump set xd [Xdump D] -set FreeShapes 0 - regexp {Free Shapes: ([-0-9.+eE]+)} $xd full FreeShapes puts "FreeShapes=${FreeShapes}" -if { ${FreeShapes} == 1 } { - puts "OK ${BugNumber}" -} else { +if { ${FreeShapes} != 1 } { puts "Faulty ${BugNumber}" +} else { + puts "OK ${BugNumber}" } + diff --git a/tests/bugs/xde/bug23047_2 b/tests/bugs/xde/bug23047_2 index 0ebceda365..ee06109a15 100755 --- a/tests/bugs/xde/bug23047_2 +++ b/tests/bugs/xde/bug23047_2 @@ -1,3 +1,5 @@ +puts "TODO ?OCC23047 ALL: Tcl Exception: can't read" +puts "TODO ?OCC23047 ALL: TEST INCOMPLETE" puts "================" puts "OCC23047" puts "================" @@ -20,14 +22,14 @@ QARebuild Xdump set xd [Xdump D] -set FreeShapes 0 regexp {Free Shapes: ([-0-9.+eE]+)} $xd full FreeShapes puts "FreeShapes=${FreeShapes}" -if { ${FreeShapes} == 0 } { - puts "OK ${BugNumber}" -} else { +if { ${FreeShapes} != 0 } { puts "Faulty ${BugNumber}" +} else { + puts "OK ${BugNumber}" } +