pload QAcommands

puts "============"
puts "OCC22744"
puts "============"
puts ""
#######################################################################
# Global HashCode function for TCollection_ExtendedString
#######################################################################

set BugNumber OCC22744

set QATestVar [ catch { OCC22744 } ]
if { ${QATestVar} == 0 } {
   puts "OK ${BugNumber}"
} else {
   puts "Faulty ${BugNumber}"
}