[occt.git] / tests / bugs / modalg_2 / bug356


puts "================"
puts "OCC356"
puts "================"
puts ""
#######################################################
## The Draw command "wexplo" gives one edge instead of 6 for the face. 
#######################################################

restore [locate_data_file OCC356.brep] result
checkshape result

explode result w

wexplo result_1 result

set nom 0
set j 1
repeat 10 {
    set err ""
    regexp { is a shape ([A-Z]+)} [whatis WEDGE_$j] full err
    if { $err != "EDGE"} {
	break
    } else {
	set nom [expr $nom + 1]
    }
    incr j
}
if { $nom != 6} {
    puts "Faulty OCC356 : Command WEXPLO works WRONGLY"
} else {
    puts "OCC356 OK  :  Command WEXPLO works properly"
}

set square 6207.83
set 2dviewer 0
Commit	Line	Data
0e94a94e	1
	2	puts "================"
	3	puts "OCC356"
	4	puts "================"
	5	puts ""
	6	#######################################################
	7	## The Draw command "wexplo" gives one edge instead of 6 for the face.
	8	#######################################################
	9
	10	restore [locate_data_file OCC356.brep] result
352ffd73	11	checkshape result
0e94a94e	12
	13	explode result w
	14
	15	wexplo result_1 result
	16
	17	set nom 0
	18	set j 1
	19	repeat 10 {
	20	set err ""
	21	regexp { is a shape ([A-Z]+)} [whatis WEDGE_$j] full err
	22	if { $err != "EDGE"} {
	23	break
	24	} else {
	25	set nom [expr $nom + 1]
	26	}
	27	incr j
	28	}
	29	if { $nom != 6} {
	30	puts "Faulty OCC356 : Command WEXPLO works WRONGLY"
	31	} else {
	32	puts "OCC356 OK : Command WEXPLO works properly"
	33	}
	34
	35	set square 6207.83
	36	set 2dviewer 0