0dc98b5b |
1 | puts "================" |
2 | puts "OCC21308" |
3 | puts "================" |
4 | puts "" |
5 | ###################################################################################### |
6 | # Problem of Interface_Tracefile. There are not messages. |
7 | ###################################################################################### |
8 | |
9 | igesbrep [locate_data_file annie_surf.igs] a * |
10 | |
11 | set out [tpstat c] |
12 | set err 0 |
13 | set nb [llength $out] |
14 | if { $nb == 0 } { |
15 | set err 1 |
16 | } |
17 | |
18 | regexp {[ \t]*([-0-9.+eE]+)[ \t]*W:126 } $out full val |
19 | if { $val == 0 } { |
20 | set err 1 |
21 | } |
22 | |
23 | if { $err != 0 } { |
24 | puts "Error : No output warnings from command tpstat" |
25 | } else { |
26 | puts "OK : Command tpstat works properly" |
27 | } |