mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +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
26 lines
563 B
Plaintext
Executable File
26 lines
563 B
Plaintext
Executable File
puts "========"
|
|
puts "OCC231"
|
|
puts "========"
|
|
puts ""
|
|
|
|
#############################################
|
|
##Uncorrect work DRAW command "proj" in version dev
|
|
## and receive such result:
|
|
## in dev : ext_1 ext_2 ext_3
|
|
## in C40 : ext_1 ext_2 ext_3 ext_4
|
|
#############################################
|
|
|
|
restore [locate_data_file OCC231.draw] result
|
|
|
|
set str [proj result 1751.38 614.152 -180.331]
|
|
set err [llength $str]
|
|
|
|
if { $err < 4 } {
|
|
puts "Faulty OCC231: Projection was made wrongly"
|
|
} else {
|
|
puts "OCC231 OK: Projection was made properly"
|
|
}
|
|
|
|
set 2dviewer 0
|
|
|