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

#INTERFACE IGES
puts "========"
puts "OCC260"
puts "========"

pload XDE

if { [catch { igesbrep [locate_data_file OCC260.igs] a * } catch_result] } {
    puts "OCC260: Error: there is reading problem"
} else {
    regexp {([-0-9.+eE]+) Shape\(s\) listed} [tpcompound result] full ShapeNumber
    if {${ShapeNumber} > 0} {
	puts "OCC260: OK"
    } else {
	puts "OCC260: Error"
    }
}

set length 4.41928
set 2dviewer 0
Commit	Line	Data
61c421bf	1	#INTERFACE IGES
	2	puts "========"
	3	puts "OCC260"
	4	puts "========"
	5
	6	pload XDE
	7
	8	if { [catch { igesbrep [locate_data_file OCC260.igs] a * } catch_result] } {
	9	puts "OCC260: Error: there is reading problem"
	10	} else {
	11	regexp {([-0-9.+eE]+) Shape\(s\) listed} [tpcompound result] full ShapeNumber
	12	if {${ShapeNumber} > 0} {
	13	puts "OCC260: OK"
	14	} else {
	15	puts "OCC260: Error"
	16	}
	17	}
	18
	19	set length 4.41928
	20	set 2dviewer 0