tests/bugs/moddata_2/bug7372

   1 pload QAcommands
   2
   3 puts "================"
   4 puts "OCC7372"
   5 puts "================"
   6 puts ""
   7 #######################################################################################
   8 # Invalid conversion 2D periodic BSpline curve to Bezier segments
   9 #######################################################################################
  10
  11 OCC7372
  12
  13 set len [llength [directory segment*]]
  14 if { ${len} != 5 } {
  15     puts "Error: segment number is wrong"
  16 } else {
  17     checklength segment_5 -l 73.3203
  18     renamevar segment_5 result
  19 }
  20
  21 set 2dviewer 0