tests/bugs/fclasses/bug22744

   1 pload QAcommands
   2
   3 puts "============"
   4 puts "OCC22744"
   5 puts "============"
   6 puts ""
   7 #######################################################################
   8 # Global HashCode function for TCollection_ExtendedString
   9 #######################################################################
  10
  11 set BugNumber OCC22744
  12
  13 set QATestVar [ catch { OCC22744 } ]
  14 if { ${QATestVar} == 0 } {
  15    puts "OK ${BugNumber}"
  16 } else {
  17    puts "Faulty ${BugNumber}"
  18 }