[occt.git] / tests / bugs / moddata_1 / bug13904

puts "==========="
puts "OCC13904"
puts "==========="
######################################################
# Exception during "filling" operation
######################################################

set BugNumber OCC13904

circle c 0 100 100 0 1 1 50
ellipse el 0 0 0 0 1 1 100 50

set  mistake 0
if [catch { appsurf result c el } res] {
  set  mistake 1
  puts "Faulty ${BugNumber}: filling problem"
} else {
  puts "Filling ${BugNumber}  OK"
  set What [whatis result]
  if { [regexp "surface" $What] != 1 } {
    set  mistake 1
  } else {
    set  mistake 0
  }
}

# Resume
puts ""
if { ${mistake} != 0 } {
   puts "Faulty ${BugNumber}"
} else {
   puts "OK ${BugNumber}"
}
Commit	Line	Data
3bea4c16	1	puts "==========="
	2	puts "OCC13904"
	3	puts "==========="
	4	######################################################
	5	# Exception during "filling" operation
	6	######################################################
	7
	8	set BugNumber OCC13904
	9
	10	circle c 0 100 100 0 1 1 50
	11	ellipse el 0 0 0 0 1 1 100 50
	12
	13	set mistake 0
	14	if [catch { appsurf result c el } res] {
	15	set mistake 1
	16	puts "Faulty ${BugNumber}: filling problem"
	17	} else {
	18	puts "Filling ${BugNumber} OK"
	19	set What [whatis result]
	20	if { [regexp "surface" $What] != 1 } {
	21	set mistake 1
	22	} else {
	23	set mistake 0
	24	}
	25	}
	26
	27	# Resume
	28	puts ""
	29	if { ${mistake} != 0 } {
	30	puts "Faulty ${BugNumber}"
	31	} else {
	32	puts "OK ${BugNumber}"
	33	}