0024898: Test "bugs modalg_1 buc60782_1" is incorrect
[occt.git] / tests / bugs / modalg_1 / buc60782_1
1 puts "========================"
2 puts "BUC60782"
3 puts "CASE 1"
4 puts "========================"
5 puts ""
6 puts "Results of Geom2d_OffsetCurve are sometimes strange (not correct). "
7 puts ""
8
9 restore [locate_data_file buc60782a.brep] a 
10 set che [checkshape a]
11 if { [regexp {Faulty} $che ] == 1 } {
12     puts "Faulty BUC60782 (case 1): Source shape is invalid"
13 } else {
14     puts "BUC60782 OK (case 1): Sourse shape is correct"
15 }
16
17 set che [checkshape a rr]
18 if { [regexp {OK} $che ] != 1} {
19     puts "Faulty : mistakes are found in SOURCE  shape by checkshape command"
20     puts "Body of the script was not executed"
21 } else {
22     puts "Checking of SOURCE shape by checkshape - OK"
23     if [catch { mkoffset result a 1 10 } catch_result] {
24       puts "Faulty BUC60782: mkoffset works wrongly"
25       renamevar a result
26     } else {
27       puts "OK BUC60782: offset is created"
28       renamevar result_1 result
29     }
30 }
31
32 set length 9026.65
33 set 2dviewer 0