tests/bugs/step/bug23379

   1 set os $env(os_type)
   2
   3 puts "================"
   4 puts "OCC23379"
   5 puts "================"
   6 puts ""
   7 #################################
   8 # Exporting single point into STEP produces a compound with two points
   9 #################################
  10
  11 pload XDE
  12
  13 set filedir ${imagedir}
  14
  15 set Name bug23379_point
  16 set brepFileName ${Name}.brep
  17 set stepFileName ${imagedir}/${Name}.step
  18
  19 restore [locate_data_file ${brepFileName}] point
  20
  21 stepwrite 0 point ${stepFileName}
  22 stepread ${stepFileName} a *
  23 set L [llength [explode a_1]]
  24 puts "L=$L"
  25
  26 if { ${L} == 1} {
  27   puts "OK : Number of points is good"
  28 } else {
  29   puts "Error : Number of points is bad"
  30 }
  31
  32 catch {exec rm -f ${stepFileName}}