tests/bugs/modalg_6/bug27110

   1 puts "========"
   2 puts "OCC27110"
   3 puts "========"
   4 puts ""
   5 ###############################################################################
   6 # Regression: Draw command "parameters" can not compute parameter on the line
   7 ###############################################################################
   8
   9 restore [locate_data_file bug27110-ClosedWireEdge.brep] e1
  10 mkcurve c1 e1
  11 parameters c1 800.0 0.001 0 0.001 U
  12
  13 set bug_info [dump U]
  14 set bug_info [string trim [string range $bug_info [expr {[string last "\n" $bug_info] + 1}] [expr {[string length $bug_info] - 1}]]]
  15 if {$bug_info != 800} {
  16   puts "ERROR: OCC27110 is reproduced. Parameters U is not equal 800."
  17 }