Test for 0028196: Algorithm 'Extrema_GenLocateExtPS' failed to find the extremum...
[occt.git] / tests / bugs / modalg_6 / bug27762_2
1 puts "========"
2 puts "OCC27762"
3 puts "========"
4 puts ""
5 # This is the second script that tries to reproduce the source of the problem -
6 # impossibility to project a point on a torus with major radius == 0
7
8 torus s 0 10
9 set out [proj s 1 0 0]
10 if {[llength [lmatch $out ext_*]] != 4} {
11   puts "Error: projection failed"
12 } else {
13   puts "OK : projection passed"
14 }