tests/bugs/modalg_2/bug452_1

   1
   2 puts "========"
   3 puts "OCC452"
   4 puts "(case 1)"
   5 puts "========"
   6 puts ""
   7
   8 pcone pc 10 0 20
   9 explode pc f
  10
  11 prism pcy pc_2 0 0 10
  12
  13 dchrono h2 reset
  14 dchrono h2 start
  15
  16 bcut result pc pcy
  17
  18 dchrono h2 stop
  19 set q2 [ dchrono h2 show ]
  20 regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
  21 puts "$z2"
  22 if { $z2 > 3 } {
  23     puts "Elapsed time is more then 3 seconds - Faulty"
  24 } else {
  25     puts "Elapsed time is less then 3 seconds - OK"
  26 }
  27
  28 checkprops result -s 254.16
  29 checkshape result
  30 checkview -display result -2d -path ${imagedir}/${test_image}.png
  31