Integration part of tests of grid chl
[occt.git] / tests / bugs / moddata / bug60924
1
2 puts "========"
3 puts "BUC60924"
4 puts "========"
5 puts ""
6
7 ##################################################
8 ## ShapeAnalysisStd_Curve::IsPlanar works incorrectly with a conic curve.
9 ################################################## 
10
11 pload QAcommands
12
13 ellipse el 0 0 1 20 10
14
15 set result1 [BUC60924 el 0 0 1]
16
17 if {${result1} != "The curve is planar !\n"} {
18     puts "BUC60924: Error"
19 } else {
20     puts "BUC60924: OK"
21 }
22
23 set 3dviewer 1
24