Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / moddata_1 / buc61006
CommitLineData
0e94a94e 1
2puts "========="
3puts "BUC61006"
4puts "========="
5puts ""
6#########################################################
7## Checkshape says that face is valid but it inludes selfintersecting wire.
8#########################################################
9
10restore [locate_data_file buc61006.brep] result
11decho off
12set ch [checkshape result]
13decho on
14
15if {![string compare $ch "This shape seems to be valid"]} {
16 puts "Error : the checkshape command returns incorrect result."
17}
18
19set 2dviewer 0
20