Correction bugs xde group

diff --git a/tests/bugs/xde/bug23047_1 b/tests/bugs/xde/bug23047_1
index a7b7cb3ff6ab24b7361efa582c3bc0ae62eaa1f3..885c26b0dcd11a6b33e75645f0ae88ab06bd5f04 100755 (executable)
--- 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 0ebceda365f09e5c6a47e58eb98088c1a69c400e..ee06109a15746e766a0fabdb0936eee08068c0cc 100755 (executable)
--- 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}"   
 }
 
+