OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-04 18:06:22 +03:00
Code Packages Releases Activity

Correction bugs xde group

Browse Source
This commit is contained in:
apn 2013-04-18 17:07:11 +04:00 committed by bugmaster
parent d67042f867
commit e87a5bc65e
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/bugs/xde/bug23047_1
View File

@ -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}"
}

10
tests/bugs/xde/bug23047_2
View File

@ -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}"
}