Adding test cases from grid chl
[occt.git] / tests / bugs / moddata / buc60607_1
1 puts "======================="
2 puts "BUC60607"
3 puts "It takes visual check for this BUC"
4 puts "======================="
5
6 set len_ch 2513
7
8 point p 1600 300
9 line l 0 500 2000 500
10 cirtang c p l 400
11
12 set info1 [length $c_1]
13 set info2 [length $c_2]
14 regexp {The length c_1 is +([-0-9.+eE]+)} $info1 full len1
15 regexp {The length c_2 is +([-0-9.+eE]+)} $info2 full len2
16 set len_int1 [expr int($len1)]
17 set len_int2 [expr int($len2)]
18
19 if { ${len_int1} != ${len_ch} || ${len_int2} != ${len_ch} } {
20     puts "Error : Length is invalid"
21 }