tests/bugs/fclasses/bug984

   1 puts "================"
   2 puts "OCC984"
   3 puts "================"
   4 puts ""
   5
   6 pload QAcommands
   7
   8 set list [OCC984 [locate_data_file OCC984.xml]]
   9
  10 if { [regexp "Document parsed" $list] == 1 } {
  11     puts "OCC984: OK"
  12 } else {
  13     puts "OCC984: Error"
  14 }