[occt.git] / tests / bugs / modalg_4 / bug702


puts "======="
puts "OCC702"
puts "SAM1541"
puts "======="
puts ""
########################
## No possibility to make a prism. 
########################

restore [locate_data_file OCC702.brep] a 

if [ catch { prism result a 100 100 100 } catch_result ] {
    puts "Faulty OCC702 (case 1)"
} else {
    regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full sq
    if { $sq <= 0. } {
	puts "Faulty OCC702 (case 2)"
    } else {
	puts "OCC702 OK"
    }
}

set square 308957.
set 2dviewer 0
Commit	Line	Data
f1aa2b62	1
	2	puts "======="
	3	puts "OCC702"
	4	puts "SAM1541"
	5	puts "======="
	6	puts ""
	7	########################
	8	## No possibility to make a prism.
	9	########################
	10
	11	restore [locate_data_file OCC702.brep] a
	12
	13	if [ catch { prism result a 100 100 100 } catch_result ] {
	14	puts "Faulty OCC702 (case 1)"
	15	} else {
	16	regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full sq
	17	if { $sq <= 0. } {
	18	puts "Faulty OCC702 (case 2)"
	19	} else {
	20	puts "OCC702 OK"
	21	}
	22	}
	23
	24	set square 308957.
	25	set 2dviewer 0