Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_2 / bug500
CommitLineData
0e94a94e 1
2puts "========="
3puts " OCC500 "
4puts "========="
5puts ""
6###############################
7## Result of pipe command of Draw is faulty
8###############################
9
10restore [locate_data_file OCC500a.brep] a_1
352ffd73 11checkshape a_1
0e94a94e 12
13restore [locate_data_file OCC500b.brep] a_2
352ffd73 14checkshape a_2
0e94a94e 15
16if [catch {pipe result a_1 a_2 } catch_result] {
17 puts "Faulty OCC500 : function PIPE works wrongly "
18} else {
19 puts "OCC500 : function PIPE works without hangs up "
20}
21set square 1246.13
22set 2dviewer 0