Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / bug295
1 pload QAcommands
2
3 puts "================"
4 puts "OCC295"
5 puts "================"
6 puts ""
7 ##############################################################
8 ## Exception is raised in the GeomConvert_CompCurveToBSplineCurve
9 ##Exception "Run-time exception error
10 ## current exception: xalloc. No handler for exception.
11 ## " is raised during merging to edges in DRAW with command "merge re e1 e2".
12 ##############################################################
13
14 restore [locate_data_file OCC295-1.brep] e1 
15
16 set che [checkshape e1]
17 if { [regexp {Faulty} $che] == 1} {
18     puts "Faulty OCC295 (shape1): Source shape is invalid. It was detected by Checkshape command"
19     puts "Body of the script was NOT executed"
20     renamevar e1 result
21 } else {
22     puts "OCC295 OK (shape1): Source shape is valid"
23     restore [locate_data_file OCC295-2.brep] e2
24     set che [checkshape e2]
25     if { [regexp {Faulty} $che] == 1} {
26         puts "Faulty OCC295 (shape2): Source shape is invalid. It was detected by Checkshape command"
27         puts "Body of the script was NOT executed"
28         renamevar e2 result
29     } else {
30         puts "OCC295 OK (shape2): Source shape is valid"
31         OCC295 result e1 e2
32     }
33 }
34
35 set length 19.5611
36 set 2dviewer 0