puts "============"
puts "OCC24596"
puts "============"
puts ""
###############################
## Slow import of IGES data
###############################

pload XDE

if { [regexp {Debug mode} [dversion]] } {
  if { [regexp {Windows} [dversion]] } {
    set max_time 30
  } else {
    set max_time 30
  }
} else {
  if { [regexp {Windows} [dversion]] } {
    set max_time 10
  } else {
    set max_time 10
  }
}

dchrono h reset
dchrono h start

stepread [locate_data_file bug26327_fuse_input.stp] a *

for {set i 2} {$i < 22} {incr i} {
   puts "a_$i"
   bfuse a_1 a_1 a_$i
   }

dchrono h stop
set q [dchrono h show]

regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full z
puts "$z"

if { $z > ${max_time} } {                                         
    puts "Elapsed time of import of IGES data is more than ${max_time} seconds - Faulty"
} else {
    puts "Elapsed time of import of IGES data is less than ${max_time} seconds - OK"
}
