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

puts "========"
puts "OCC738"
puts "========"
puts ""
##################################
##The GUIDs in XCAFDoc have incorrect format.
##################################

pload QAcommands

if [catch { OCC738_ShapeRef }] then {
  puts "Faulty OCC738"
} else {
  puts "OCC738 OK"
}
Commit	Line	Data
352ffd73	1	puts "========"
	2	puts "OCC738"
	3	puts "========"
	4	puts ""
	5	##################################
	6	##The GUIDs in XCAFDoc have incorrect format.
	7	##################################
	8
	9	pload QAcommands
	10
	11	if [catch { OCC738_ShapeRef }] then {
	12	puts "Faulty OCC738"
	13	} else {
	14	puts "OCC738 OK"
	15	}
	16
	17