tests/bugs/xde/bug21308

   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 }