1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-07-30 13:05:50 +03:00
occt/tests/bugs/modalg/bug825_1
apn f1aa2b6272 Adding new testing cases for chl grid
Adding procedures checkcolor and checkpoint.
Modified test cases which are used QAGetPixelColor or QAAISGetPixelColor2d
Allow using command QAAISGetPixelColor2d on WNT
Rename test case tests/bugs/vis/bug19619 to pro19619
Added test cases to modalg and moddata
2012-12-14 16:56:11 +04:00

32 lines
763 B
Plaintext
Executable File

puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
puts "TODO OCC12345 ALL: Error : The square of result shape is"
pload QAcommands
puts "======="
puts "OCC825"
puts "======="
puts ""
######################################
## BRepAlgoAPI_Cut fails on sphere and b-spline face
######################################
##
## Note: test for old topology
##
################################
if { [ catch { set info_result [OCC825 a1 a2 a3 a4 a5] } ] } {
puts "Faulty : an exception was caught"
} else {
puts [checkshape a1]
puts [checkshape a2]
bcut result a2 a1
set ExplodeList [explode result]
if {[llength ${ExplodeList}] < 1} {
puts "Faulty : Resulting shape is empty COMPOUND"
}
}
set square 0
set 2dviewer 0