0027341: Incorrect exact HLR results
[occt.git] / 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 }