tests/bugs/xde/bug22962

   1 puts "============"
   2 puts "OCC22962"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Invalid realization of reading and writing material in STEP
   7 #######################################################################
   8
   9 set BugNumber OCC22962
  10 set check_value 94
  11 pload DCAF
  12
  13 ReadStep D1 [locate_data_file OCC22962-dm1-oc-214.stp]
  14 set dump_info [ XDumpDF D1 ]
  15
  16 regexp {attributes dumped between ([-0-9.+eE]+)} ${dump_info} full a1
  17
  18 set c1 [string compare $a1 $check_value]
  19
  20 if { $c1 != 0 } {
  21     puts "Faulty ${BugNumber}"
  22 } else {
  23     puts "OK ${BugNumber}"
  24 }