[occt.git] / tests / bugs / moddata_2 / bug284

puts "========"
puts "OCC284"
puts "========"

#########################################################
## Command "checkshape" "gives" exception during attempt to check attached shape.
#########################################################

restore [locate_data_file OCC284.brep] result

decho off
if [catch { checkshape result } catch_result] {
    set mistake 1
} else {
    set mistake 0
}
decho on

if { $mistake != 0} {
  puts "Faulty OCC284 : here is problem in checkshape function"
} else {
  puts "OCC284  OK: function checkshape works properly"
}

set 2dviewer 0
Commit	Line	Data
a87752f3	1	puts "========"
	2	puts "OCC284"
	3	puts "========"
	4
	5	#########################################################
	6	## Command "checkshape" "gives" exception during attempt to check attached shape.
	7	#########################################################
	8
	9	restore [locate_data_file OCC284.brep] result
	10
	11	decho off
	12	if [catch { checkshape result } catch_result] {
	13	set mistake 1
	14	} else {
	15	set mistake 0
	16	}
	17	decho on
	18
	19	if { $mistake != 0} {
	20	puts "Faulty OCC284 : here is problem in checkshape function"
	21	} else {
	22	puts "OCC284 OK: function checkshape works properly"
	23	}
	24
	25	set 2dviewer 0
	26