6b13d528 |
1 | puts "============" |
2 | puts "OCC24596" |
3 | puts "============" |
4 | puts "" |
5 | ############################### |
6 | ## Slow import of IGES data |
7 | ############################### |
8 | |
9 | pload XDE |
10 | |
11 | if { [regexp {Debug mode} [dversion]] } { |
12 | if { [regexp {Windows} [dversion]] } { |
13 | set max_time 30 |
14 | } else { |
15 | set max_time 30 |
16 | } |
17 | } else { |
18 | if { [regexp {Windows} [dversion]] } { |
19 | set max_time 10 |
20 | } else { |
21 | set max_time 10 |
22 | } |
23 | } |
24 | |
25 | dchrono h reset |
26 | dchrono h start |
27 | |
28 | stepread [locate_data_file bug26327_fuse_input.stp] a * |
29 | |
30 | for {set i 2} {$i < 22} {incr i} { |
31 | puts "a_$i" |
32 | bfuse a_1 a_1 a_$i |
33 | } |
34 | |
35 | dchrono h stop |
36 | set q [dchrono h show] |
37 | |
38 | regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full z |
39 | puts "$z" |
40 | |
41 | if { $z > ${max_time} } { |
42 | puts "Elapsed time of import of IGES data is more than ${max_time} seconds - Faulty" |
43 | } else { |
44 | puts "Elapsed time of import of IGES data is less than ${max_time} seconds - OK" |
45 | } |