tests/bugs/step/bug23567

   1 puts "========================"
   2 puts "OCC23567"
   3 puts "========================"
   4 puts ""
   5 #######################################################################
   6 # Wrong STEP unit is returned by STEPControl_Reader.FileUnits() function
   7 #######################################################################
   8
   9 set info [ stepfileunits [locate_data_file bug23567_a.step] ]
  10 set index1 [lsearch $info metre]
  11
  12 puts ""
  13 if { ${index1} == -1 } {
  14     puts "Error : bad unit"
  15 }