Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / buc61006
1
2 puts "========="
3 puts "BUC61006"                
4 puts "========="
5 puts ""                                  
6 #########################################################
7 ## Checkshape says that face is valid but it inludes selfintersecting wire. 
8 #########################################################
9
10 restore [locate_data_file buc61006.brep] result 
11 decho off
12 set ch [checkshape result]
13 decho on
14
15 if {![string compare $ch "This shape seems to be valid"]} {
16         puts "Error : the checkshape command returns incorrect result."
17 }
18
19 set 2dviewer 0
20