Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / buc60744
1 pload QAcommands
2
3 puts "========================"
4 puts "BUC60744"
5 puts "========================"
6 puts ""
7
8 restore [locate_data_file buc60744a.brep] a 
9 restore [locate_data_file buc60744b.brep] b
10
11 set che [checkshape a]
12 if { [regexp {Faulty} $che ] == 1 } {
13     puts "Faulty BUC60744 (shape 1): Source shape is invalid. It was detected by Checkshape command"
14     puts "Body of the script was NOT executed"
15     renamevar a result
16 } else {
17     puts "BUC60744 OK (shape 1): Source shape is valid"
18
19     set che [checkshape b]
20     if { [regexp {Faulty} $che ] == 1 } {
21         puts "Faulty BUC60744 (shape 2): Source shape is invalid. It was detected by Checkshape command"
22         puts "Body of the script was NOT executed"
23         renamevar b result
24     } else {
25         puts "BUC60744 OK (shape 2): Source shape is valid"
26
27         ksection result a b 1000 0.0001 0.00001 0
28
29         set ne [llength [explode result e]]
30         set nv [llength [explode result v]]
31
32         if {$ne >= $nv} {
33             puts [format "Faulty : the number of edges is %s, but the number of vertexes is %s." $ne $nv]
34         }
35     }
36 }
37 bsection result a b
38
39 set ne [llength [explode result e]]
40 set nv [llength [explode result v]]
41
42 if {$ne >= $nv} {
43     puts [format "Faulty : the number of edges is %s, but the number of vertexes is %s." $ne $nv]
44 }
45
46 set length 228.386
47 set 2dviewer 0