f41fda1d8bc5bcc0f503cd016853196d151693e1
[occt.git] / tests / bugs / moddata_1 / bug22165
1 puts "================"
2 puts "OCC22165"
3 puts "================"
4 puts ""
5 #######################################################################################
6 # IGES transaltor does not produce any shape
7 ######################################################################################
8
9 set BugNumber OCC22165
10
11 catch { pload XDE }
12
13 igesbrep [locate_data_file OCC22165-cub_spain.igs] result *
14
15 decho off
16 set Log [data c]
17 decho on
18
19 set LogLength [llength ${Log}]
20
21 if { ${LogLength} < 21 } {
22     puts "Bad format of data-command"
23     puts "Faulty ${BugNumber}"
24 } else {
25     regexp -all {1[ \t]*F: Syntax error in IGES file at line ([-0-9.+eE]+) in section ([A-Z]).} $Log full word1 word2
26     if { ${word1} != "206" || ${word2} != "P" } {
27         puts "Faulty ${BugNumber}"
28     }
29 }
30