Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / buc60868
1
2 puts "========"                                                                                                                                                 
3 puts "BUC60868"                                                                                                                                                 
4 puts "========"                                                                                                                                                 
5 puts ""                                                                         
6
7 pload QAcommands
8
9 restore [locate_data_file buc60868.brep] sh 
10 puts [checkshape sh]
11
12 BUC60868 result sh
13 puts [checkshape result]
14
15 set len [llength [explode result w]]
16 if { $len != 3 } {
17     puts "Error : the number of curves is $len, but it should be 3."
18 }
19
20 set 2dviewer 0
21