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


puts "========================"
puts " OCC298 "
puts "========================"
puts ""
#################################################################
## Exception during "tcopy" command
#################################################################

restore [locate_data_file OCC298.brep] result
checkshape result

if [catch {tcopy result a } result] {
  puts "Faulty OCC298: function TCOPY works wrongly"
} else {
  puts "OCC298 OK: function TCOPY works properly"
}

set square 8e+100
set 2dviewer 0
Commit	Line	Data
0e94a94e	1
	2	puts "========================"
	3	puts " OCC298 "
	4	puts "========================"
	5	puts ""
	6	#################################################################
	7	## Exception during "tcopy" command
	8	#################################################################
	9
	10	restore [locate_data_file OCC298.brep] result
352ffd73	11	checkshape result
0e94a94e	12
	13	if [catch {tcopy result a } result] {
	14	puts "Faulty OCC298: function TCOPY works wrongly"
	15	} else {
	16	puts "OCC298 OK: function TCOPY works properly"
	17	}
	18
	19	set square 8e+100
	20	set 2dviewer 0
	21