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