mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +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.3 KiB
Plaintext
Executable File
47 lines
1.3 KiB
Plaintext
Executable File
puts "=================================="
|
|
puts "BUC60622"
|
|
puts "=================================="
|
|
puts "There was an infinity of solutions and also c1, c2 and c3 are solutions"
|
|
puts ""
|
|
puts "It takes visual check for this BUG"
|
|
puts "=================================="
|
|
puts ""
|
|
|
|
set len_ch1 1570
|
|
set len_ch2 785
|
|
set len_ch3 785
|
|
set len_ch4 523
|
|
set len_ch5 523
|
|
|
|
circle c3 500 3000 250
|
|
circle c2 375 3000 125
|
|
circle c1 625 3000 125
|
|
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]
|
|
|
|
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
|
|
|
|
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)]
|
|
|
|
if { ${len_int1} != ${len_ch1}
|
|
|| ${len_int2} != ${len_ch2}
|
|
|| ${len_int3} != ${len_ch3}
|
|
|| ${len_int4} != ${len_ch4}
|
|
|| ${len_int5} != ${len_ch5} } {
|
|
puts "Error : Length is invalid"
|
|
}
|
|
|