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

puts "TODO OCC25917 ALL: Error : The command is not valid. The square is"
if { [regexp {Debug mode} [dversion]] } {
  puts "TODO OCC25917 ALL: TEST INCOMPLETE"
  puts "TODO OCC25917 ALL: Tcl Exception"
}

puts "========================"
puts " OCC472 "
puts "(case 2)"
puts "========================"
puts ""
#####################################################
## Bad result of Fuse Operation (Cut&Common - bad too). SAM1470 (#2634) 
#####################################################

restore [locate_data_file OCC472a.brep] b1 
checkshape b1

restore [locate_data_file OCC472b.brep] b2
checkshape b2

bcommon result b1 b2

set square 0
set 2dviewer 0
Commit	Line	Data
9aa684ed	1	puts "TODO OCC25917 ALL: Error : The command is not valid. The square is"
	2	if { [regexp {Debug mode} [dversion]] } {
	3	puts "TODO OCC25917 ALL: TEST INCOMPLETE"
	4	puts "TODO OCC25917 ALL: Tcl Exception"
	5	}
	6
a87752f3	7	puts "========================"
	8	puts " OCC472 "
	9	puts "(case 2)"
	10	puts "========================"
	11	puts ""
	12	#####################################################
	13	## Bad result of Fuse Operation (Cut&Common - bad too). SAM1470 (#2634)
	14	#####################################################
	15
	16	restore [locate_data_file OCC472a.brep] b1
352ffd73	17	checkshape b1
a87752f3	18
a87752f3	19	restore [locate_data_file OCC472b.brep] b2
352ffd73	20	checkshape b2
a87752f3	21
	22	bcommon result b1 b2
	23
	24	set square 0
	25	set 2dviewer 0