tests/bugs/modalg_2/bug452_2

   1
   2 puts "========"
   3 puts "GER60239"
   4 puts "OCC452"
   5 puts "(case 2)"
   6 puts "========"
   7 puts ""
   8
   9 restore [locate_data_file mds-part1.rle] a
  10 set che [checkshape a]
  11 if { [regexp {Faulty} $che ] == 1 } {
  12     puts "Faulty OCC452 (shape 1): Source shape is invalid. It was detected by Checkshape command"
  13 } else {
  14     puts "OCC452 OK (shape 1): Source shape is valid"
  15 }
  16
  17 restore [locate_data_file mds-part2.rle] b
  18 set che [checkshape b]
  19 if { [regexp {Faulty} $che ] == 1 } {
  20     puts "Faulty OCC452 (shape 2): Source shape is invalid. It was detected by Checkshape command"
  21 } else {
  22     puts "OCC452 OK (shape 2): Source shape is valid"
  23 }
  24
  25 restore [locate_data_file CTO900_ger60239a.rle] c
  26 set che [checkshape c]
  27 if { [regexp {Faulty} $che ] == 1 } {
  28     puts "Faulty OCC452 (shape 3): Source shape is invalid. It was detected by Checkshape command"
  29 } else {
  30     puts "OCC452 OK (shape 3): Source shape is valid"
  31 }
  32
  33 restore [locate_data_file CTO900_ger60239b.rle] d
  34 set che [checkshape d]
  35 if { [regexp {Faulty} $che ] == 1 } {
  36     puts "Faulty OCC452 (shape 4): Source shape is invalid. It was detected by Checkshape command"
  37 } else {
  38     puts "OCC452 OK (shape 4): Source shape is valid"
  39 }
  40 dchrono h2 reset
  41 dchrono h2 start
  42
  43 bfuse r a b
  44 #checkshape r
  45
  46 bfuse result c d
  47
  48 dchrono h2 stop
  49 set q2 [ dchrono h2 show ]
  50 regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
  51 puts "$z2"
  52 if { $z2 > 60 } {
  53     puts "Elapsed time is more then 60 seconds - Faulty"
  54 } else {
  55     puts "Elapsed time is less then 60 seconds - OK"
  56 }
  57 checkprops result -s 3468.6
  58 checkshape result
  59 checkview -display result -2d -path ${imagedir}/${test_image}.png