[occt.git] / tests / bugs / modalg_3 / bug605


puts "========================"
puts " OCC605"
puts "========================"
puts ""
##############################
## No any faces in result of pipe command.
##############################
pload ALL

restore [locate_data_file OCC605a.brep] w1 
settolerance w1 1.e-7
checkshape w1
restore [locate_data_file OCC605b.brep] w2 
checkshape w2

if { [catch {pipe result w2 w1 } catch_result] } {
    puts "Faulty OCC605: function PIPE works with exception."
} else {
    explode result f
    set nom 0
    set j 1
    repeat 20 {
	if { [regexp {FACE} [whatis result_$j]] != 1 } {
    	    break
        } else {
    	    set nom [expr $nom + 1]
        }
	incr j
    }
    if { $nom == 0 } {
	puts " Faulty OCC605: Result of PIPE operation is incorrect !!! "
    } else {
	puts "OCC605 OK : Result of PIPE operation is NOT empty shell!!! "
   }
}

checkprops result -s 20.6253
checkshape result
set 2dviewer 0
Commit	Line	Data
f1aa2b62	1
	2	puts "========================"
	3	puts " OCC605"
	4	puts "========================"
	5	puts ""
	6	##############################
	7	## No any faces in result of pipe command.
	8	##############################
c8ea5b8e	9	pload ALL
f1aa2b62	10
f1aa2b62	11	restore [locate_data_file OCC605a.brep] w1
c8ea5b8e	12	settolerance w1 1.e-7
352ffd73	13	checkshape w1
f1aa2b62	14	restore [locate_data_file OCC605b.brep] w2
352ffd73	15	checkshape w2
f1aa2b62	16
	17	if { [catch {pipe result w2 w1 } catch_result] } {
	18	puts "Faulty OCC605: function PIPE works with exception."
	19	} else {
	20	explode result f
	21	set nom 0
	22	set j 1
	23	repeat 20 {
	24	if { [regexp {FACE} [whatis result_$j]] != 1 } {
	25	break
	26	} else {
	27	set nom [expr $nom + 1]
	28	}
	29	incr j
	30	}
	31	if { $nom == 0 } {
	32	puts " Faulty OCC605: Result of PIPE operation is incorrect !!! "
	33	} else {
	34	puts "OCC605 OK : Result of PIPE operation is NOT empty shell!!! "
	35	}
	36	}
	37
58cf74e0	38	checkprops result -s 20.6253
58cf74e0	39	checkshape result
f1aa2b62	40	set 2dviewer 0