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

puts "========================"
puts " OCC327 "
puts " case 4 "
puts "========================"

restore [locate_data_file OCC327d.brep] result

set che [checkshape result r]
if { [regexp {OK} $che] == 1 } {
    puts " OCC327  case 4: OK"
} else {
    puts " OCC327  case 4: Faulty"
}

set square 7793.26
set 2dviewer 0
Commit	Line	Data
a87752f3	1	puts "========================"
	2	puts " OCC327 "
	3	puts " case 4 "
	4	puts "========================"
	5
	6	restore [locate_data_file OCC327d.brep] result
	7
	8	set che [checkshape result r]
	9	if { [regexp {OK} $che] == 1 } {
	10	puts " OCC327 case 4: OK"
	11	} else {
	12	puts " OCC327 case 4: Faulty"
	13	}
	14
	15	set square 7793.26
	16	set 2dviewer 0
	17
	18