6 ###############################
7 ## Result of pipe command of Draw is faulty
8 ###############################
10 restore [locate_data_file OCC500a.brep] a_1
13 restore [locate_data_file OCC500b.brep] a_2
16 if [catch {pipe result a_1 a_2 } catch_result] {
17 puts "Faulty OCC500 : function PIPE works wrongly "
19 puts "OCC500 : function PIPE works without hangs up "
21 checkprops result -s 1246.13
23 checkview -display result -2d -path ${imagedir}/${test_image}.png