1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-05-11 10:44:53 +03:00
occt/tests/bugs/xde/bug660
apn 352ffd7358 Adding test cases for chl grid
Test case tests/bugs/modalg/dxf906 was renamed to bug889
Adding test cases to tests/bugs/moddata
Modified expressions puts [checkshape result]. Added command vzfit in end file in folder bugs. Unlocked command coordload in QABugs_3.cxx
Modified test case bugs vis buc60738
Added test cases to modalg and moddata
Added test cases to caf and fclasses
Added test cases to group heal
2012-12-21 16:39:38 +04:00

24 lines
545 B
Plaintext
Executable File

puts "================"
puts "OCC660"
puts "================"
puts ""
#######################################################
## Surfaces types changed while reading IGES, causing problems with 2d mapping
#######################################################
if [catch { igesbrep [locate_data_file D44-11325-6.igs] a 6425 } res] {
puts "Faulty OCC660: here is reading problem"
}
renamevar a_1 a
mksurface result a
set info [dump result]
if { [regexp "SurfaceOfLinearExtrusion" $info] != 1 } {
puts "Faulty OCC660"
}
set 2dviewer 1