[occt.git] / tests / bugs / caf / bug739

puts "TODO OCC12345 ALL: Faulty OCC739"

puts "========"
puts "OCC739"
puts "========"
puts ""
###################################################
## Invalid GUIDs in DDataStd_DrawPresentation and DDataStd_Sample.
###################################################

pload QAcommands

if [catch { OCC739_DrawPresentation }] then {
  puts "Faulty OCC739"
} else {
  puts "OCC739 OK"
}
Commit	Line	Data
352ffd73	1	puts "TODO OCC12345 ALL: Faulty OCC739"
	2
	3	puts "========"
	4	puts "OCC739"
	5	puts "========"
	6	puts ""
	7	###################################################
	8	## Invalid GUIDs in DDataStd_DrawPresentation and DDataStd_Sample.
	9	###################################################
	10
	11	pload QAcommands
	12
	13	if [catch { OCC739_DrawPresentation }] then {
	14	puts "Faulty OCC739"
	15	} else {
	16	puts "OCC739 OK"
	17	}
	18
	19