mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
a8676008f7
Splitting of subgroups bugs/modalg and bugs/moddata to optimise time of testing Correction of end file in group v3d Small correction of test case
31 lines
788 B
Plaintext
Executable File
31 lines
788 B
Plaintext
Executable File
if { [array get env os_type] != "" } {
|
|
set os $env(os_type)
|
|
}
|
|
if { [string compare $os "windows"] == 0 } {
|
|
puts "TODO OCC12345 ALL: An exception was caught"
|
|
puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
|
|
} else {
|
|
puts "TODO OCC12345 ALL: Tcl Exception: result is not a topological shape!!!"
|
|
}
|
|
puts "TODO OCC12345 ALL: TEST INCOMPLETE"
|
|
|
|
puts "========================"
|
|
puts " OCC469 "
|
|
puts "========================"
|
|
puts ""
|
|
######################################################
|
|
## It's impossible to fuse the two shapes in the file attached. #2740, SAM1493
|
|
######################################################
|
|
|
|
restore [locate_data_file OCC469.brep] a
|
|
explode a
|
|
|
|
checkshape a_1
|
|
checkshape a_2
|
|
|
|
bfuse result a_1 a_2
|
|
checkshape result
|
|
|
|
set square 10
|
|
set 2dviewer 0
|