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
47 lines
1.1 KiB
Plaintext
Executable File
47 lines
1.1 KiB
Plaintext
Executable File
puts "================"
|
|
puts "OCC119"
|
|
puts "================"
|
|
puts ""
|
|
|
|
box a 100 100 100
|
|
explode a e
|
|
|
|
set mistake 0
|
|
if [catch {blend result_1 a 50 a_10 50 a_5 50 a_12 50 a_3 } catch_result] {
|
|
set mistake 1
|
|
} else {
|
|
set mistake 0
|
|
}
|
|
|
|
if { ${mistake} == 1} {
|
|
puts " 1) OCC119 OK: BLEND was NOT created and suitable except was given."
|
|
} else {
|
|
puts "1) OCC119 OK: function BLEND works without suitable except"
|
|
checkshape result_1
|
|
explode result_1 e
|
|
|
|
if { [catch {blend result_2 result_1 50 result_1_20 50 result_1_22 50 result_1_10} catch_result] } {
|
|
puts "2) Faulty OCC119: BLEND was NOT created"
|
|
} else {
|
|
puts "2) BLEND OCC199 OK: BLEND was created"
|
|
checkshape result_2
|
|
}
|
|
|
|
set che [checkshape result_2 r]
|
|
if { [regexp {OK} $che] != 1 } {
|
|
puts "Faulty : mistakes are found in shape by checkshape command after BLEND command"
|
|
puts " Body of the scripts was not executed !"
|
|
} else {
|
|
puts "Checking by checkshape - OK"
|
|
|
|
vinit
|
|
vdisplay result_2
|
|
vsetdispmode result_2 1
|
|
vfit
|
|
|
|
explode result_2 e
|
|
blend result result_2 50 result_2_20 50 result_2_22 50 result_2_10
|
|
set only_screen 1
|
|
}
|
|
}
|