0032191: Tests - merge duplicated tests/v3d selection cases
[occt.git] / tests / draft / end
CommitLineData
40093367 1if { [isdraw result] } {
58cf74e0 2 #check if result is valid
3 set ch [checkshape result]
4 puts $ch
40093367 5
58cf74e0 6 if { [string compare $ch "This shape seems to be valid"] == 0 } {
7 #check if tolerance is less 1.
8 set tol 10.
9 if { [regexp {Face +:.+Max +([-0-9.+eE]+)} [maxtolerance result] full tol] == 0 } {
10 #Avoiding maxtolerance bug on Windows
11 if { [array get Draw_Groups "Shape Healing"] == "" } {
12 pload XSDRAW
13 }
14 regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full tol
15 }
16 if { $tol > 1. } {
17 puts "Error: The tolerance of the resulting shape is too big ($tol)."
18 }
19 }
40093367 20
5747059b 21 checkview -display result -2d -path ${imagedir}/${test_image}.png
40093367 22} else {
58cf74e0 23 puts "Error : The skin cannot be built."
40093367 24}
25
26# to end a test script
27puts "TEST COMPLETED"