[occt.git] / tests / bugs / vis / bug294

puts "TODO OCC12345 ALL: Faulty OCC294 : result - shape_result is null"

puts "================"
puts "OCC294"
puts "SAM1293"
puts "================"
puts ""

restore [locate_data_file OCC294.brep] a
checkshape a

set a_fullness [nbshapes a]
regexp {EDGE +: +([-0-9.+eE]+)} $a_fullness full a_edg

explode a e
if [catch { OCC294 result a a_1 } ] {
   puts "OCC294: FAULTY" 
} else {
   set b_fullness [ nbshapes b] 
   regexp {EDGE +: +([-0-9.+eE]+)} $b_fullness full b_edg

   puts "a_edg = ${a_edg}" 
   puts "b_edg = ${b_edg}" 
   if { ${b_edg} >= ${a_edg} } { 
      puts "OCC294: FAULTY" 
   } else { 
      puts "OCC294: OK" 
   } 
}
Commit	Line	Data
61c421bf	1	puts "TODO OCC12345 ALL: Faulty OCC294 : result - shape_result is null"
	2
	3	puts "================"
	4	puts "OCC294"
	5	puts "SAM1293"
	6	puts "================"
	7	puts ""
	8
	9	restore [locate_data_file OCC294.brep] a
	10	checkshape a
	11
	12	set a_fullness [nbshapes a]
	13	regexp {EDGE +: +([-0-9.+eE]+)} $a_fullness full a_edg
	14
	15	explode a e
	16	if [catch { OCC294 result a a_1 } ] {
	17	puts "OCC294: FAULTY"
	18	} else {
	19	set b_fullness [ nbshapes b]
	20	regexp {EDGE +: +([-0-9.+eE]+)} $b_fullness full b_edg
	21
	22	puts "a_edg = ${a_edg}"
	23	puts "b_edg = ${b_edg}"
	24	if { ${b_edg} >= ${a_edg} } {
	25	puts "OCC294: FAULTY"
	26	} else {
	27	puts "OCC294: OK"
	28	}
	29	}