tests/bugs/modalg_2/bug434

   1 pload QAcommands
   2
   3 puts "================"
   4 puts "OCC434"
   5 puts "SAM1296"
   6 puts "================"
   7 puts ""
   8
   9 ########################################################
  10 ## Exception is raised on NT, SUN in the GeomConvert_CompCurveToBSplineCurve
  11 ########################################################
  12
  13 restore [locate_data_file OCC434.brep] e
  14 checkshape e
  15 explode e e
  16
  17 OCC405 result e_1 e_2
  18
  19 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num
  20
  21 if { $num == 2 } {
  22     puts "OCC434 OK : Result shape is CORRECT !!! "
  23 } else {
  24     puts " Faulty OCC434: Result shape is INcorrect !!! "
  25 }
  26
  27 checkprops result -l 8.74616
  28 checkshape result
  29 checkview -display result -2d -path ${imagedir}/${test_image}.png
  30