mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-07 18:30:55 +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
60 lines
1.8 KiB
Plaintext
Executable File
60 lines
1.8 KiB
Plaintext
Executable File
puts "=================================="
|
|
puts "BUC60618"
|
|
puts "=================================="
|
|
puts "There was a problem filter of solutions. Several solutions were skipped."
|
|
puts ""
|
|
puts "It takes visual check for this BUG"
|
|
puts "=================================="
|
|
puts ""
|
|
set len_ch1 3568
|
|
set len_ch2 9964
|
|
set len_ch3 2082
|
|
set len_ch4 32696
|
|
set len_ch5 1681
|
|
set len_ch6 3097
|
|
set len_ch7 1545
|
|
set len_ch8 772
|
|
|
|
circle c1 0 0 100
|
|
circle c2 500 -400 300
|
|
circle c3 300 200 200
|
|
cirtang result c1 c2 c3
|
|
|
|
set info1 [length $result_1]
|
|
set info2 [length $result_2]
|
|
set info3 [length $result_3]
|
|
set info4 [length $result_4]
|
|
set info5 [length $result_5]
|
|
set info6 [length $result_6]
|
|
set info7 [length $result_7]
|
|
set info8 [length $result_8]
|
|
|
|
regexp {The length result_1 is +([-0-9.+eE]+)} $info1 full len1
|
|
regexp {The length result_2 is +([-0-9.+eE]+)} $info2 full len2
|
|
regexp {The length result_3 is +([-0-9.+eE]+)} $info3 full len3
|
|
regexp {The length result_4 is +([-0-9.+eE]+)} $info4 full len4
|
|
regexp {The length result_5 is +([-0-9.+eE]+)} $info5 full len5
|
|
regexp {The length result_6 is +([-0-9.+eE]+)} $info6 full len6
|
|
regexp {The length result_7 is +([-0-9.+eE]+)} $info7 full len7
|
|
regexp {The length result_8 is +([-0-9.+eE]+)} $info8 full len8
|
|
|
|
set len_int1 [expr int($len1)]
|
|
set len_int2 [expr int($len2)]
|
|
set len_int3 [expr int($len3)]
|
|
set len_int4 [expr int($len4)]
|
|
set len_int5 [expr int($len5)]
|
|
set len_int6 [expr int($len6)]
|
|
set len_int7 [expr int($len7)]
|
|
set len_int8 [expr int($len8)]
|
|
|
|
if { ${len_int1} != ${len_ch1}
|
|
|| ${len_int2} != ${len_ch2}
|
|
|| ${len_int3} != ${len_ch3}
|
|
|| ${len_int4} != ${len_ch4}
|
|
|| ${len_int5} != ${len_ch5}
|
|
|| ${len_int6} != ${len_ch6}
|
|
|| ${len_int7} != ${len_ch7}
|
|
|| ${len_int8} != ${len_ch8} } {
|
|
puts "Error : Length is invalid"
|
|
}
|