tests/bugs/moddata_2/bug814

   1 pload QAcommands
   2
   3 puts "========="
   4 puts " OCC814 "
   5 puts "========="
   6 puts ""
   7 ####################################
   8 ## Geom2dGcc_Lin2d2Tan fails on circle and ellipse
   9 ####################################
  10
  11 set result [OCC814]
  12
  13 set nb_sol 0
  14
  15 regexp {nb of solutions = ([-0-9.+eE]+)} $result full nb_sol
  16
  17 if {$nb_sol > 0} {
  18     puts "OCC814 OK"
  19 } else {
  20     puts "Faulty OCC814"
  21 }
  22
  23