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


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

restore [locate_data_file OCC605a.brep] w1 
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!!! "
   }
}

set square 20.6253
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	##############################
	9
	10	restore [locate_data_file OCC605a.brep] w1
352ffd73	11	checkshape w1
f1aa2b62	12	restore [locate_data_file OCC605b.brep] w2
352ffd73	13	checkshape w2
f1aa2b62	14
	15	if { [catch {pipe result w2 w1 } catch_result] } {
	16	puts "Faulty OCC605: function PIPE works with exception."
	17	} else {
	18	explode result f
	19	set nom 0
	20	set j 1
	21	repeat 20 {
	22	if { [regexp {FACE} [whatis result_$j]] != 1 } {
	23	break
	24	} else {
	25	set nom [expr $nom + 1]
	26	}
	27	incr j
	28	}
	29	if { $nom == 0 } {
	30	puts " Faulty OCC605: Result of PIPE operation is incorrect !!! "
	31	} else {
	32	puts "OCC605 OK : Result of PIPE operation is NOT empty shell!!! "
	33	}
	34	}
	35
	36	set square 20.6253
	37	set 2dviewer 0