# Incompleted behavior of test case is OK.
# Exception should be thrown.

puts "TODO OCC11111 ALL: \\*\\* Exception"
puts "TODO OCC11111 ALL: An exception was caught"

pload QAcommands

puts "============"
puts "OCC2569"
puts "============"
puts ""
######################################################
# If it is not possible to create the bezier curve, 
# it should throw an exception.
######################################################
cpulimit 60
vinit

if { [catch {OCC2569 29 result} anException] } {
  puts "OCC2569 : OK"
} else {
  puts "Error : OCC2569"
}