Adding test cases from chl grid
[occt.git] / tests / bugs / iges / bug22820
1 puts "================"
2 puts "OCC22820"
3 puts "================"
4 puts ""
5 #######################################################################################
6 # OCCT IGES writer loses plane information
7 ######################################################################################
8
9 pload XDE
10
11 box b 1 1 1
12 set b_info [dump b]
13 if { [regexp BSplineSurface ${b_info}] } {
14    puts "Error in dump b"
15 }
16
17 brepiges b 0
18 igesbrep . bb *
19
20 set types_info [listtypes]
21 puts "types_info=${types_info}"
22 if { [regexp BSplineSurface ${types_info}] } {
23    puts "Error in listtypes"
24 }
25
26 igesbrep . bb *
27 set bb_info [dump bb]
28 if { [regexp BSplineSurface ${bb_info}] } {
29    puts "Error in dump bb"
30 }