OCCT

puts "REQUIRED All: Projection Failed"

puts "==========="
puts " OCC308 "
puts "==========="
puts ""
#################################################################
## Can not project 3D-curve on surface.
#################################################################

restore [locate_data_file OCC308a.draw] a 
restore [locate_data_file OCC308b.draw] b

if [catch {project result a b} catch_result] {
    set mistake 1
} else {
    set mistake 0
}

if { $mistake == 0} {
    puts "Faulty OCC308 : function PROJECT works wrongly"
} else {
    puts "OCC308 OK : function PROJECT works properly"
}

checkview -display result -2d -path ${imagedir}/${test_image}.png