1pload QAcommands
2
3puts "============"
4puts "OCC2569"
5puts "============"
6puts ""
7######################################################
8# If it is not possible to create the bezier curve,
9# it should throw an exception.
10######################################################
11cpulimit 60
12vinit
13set out [OCC2569 26 result]
14if {[string compare $out "\n Degree = 25\n"] == 0} {
15    puts "OCC2569: OK"
16} else {
17    puts "OCC2569: Faulty"
18}
19vfit
20checkview -screenshot -3d -path ${imagedir}/${test_image}.png
21