7c8090aa |
1 | puts "============" |
2 | puts "OCC24596" |
3 | puts "============" |
4 | puts "" |
5 | ############################### |
6 | ## Slow import of IGES data |
7 | ############################### |
8 | |
9 | pload QAcommands |
10 | |
7c8090aa |
11 | if { [regexp {Debug mode} [dversion]] } { |
0a58bfe2 |
12 | cpulimit 8500 |
7c8090aa |
13 | if { [regexp {Windows} [dversion]] } { |
0a58bfe2 |
14 | set max_time 3000 |
15 | set max_time2 2300 |
7c8090aa |
16 | } else { |
0a58bfe2 |
17 | set max_time 5500 |
18 | set max_time2 4000 |
7c8090aa |
19 | } |
20 | } else { |
fa84b8ff |
21 | cpulimit 2600 |
7c8090aa |
22 | if { [regexp {Windows} [dversion]] } { |
fa84b8ff |
23 | set max_time 1100 |
24 | set max_time2 700 |
7c8090aa |
25 | } else { |
fa84b8ff |
26 | set max_time 1600 |
27 | set max_time2 1000 |
7c8090aa |
28 | } |
29 | } |
30 | |
31 | # 1 - igesread |
32 | dchrono h reset |
33 | dchrono h start |
34 | |
35 | igesread [locate_data_file 100B_Nosecone_with_Triangular_FSS.igs] a 43479 |
36 | |
37 | dchrono h stop |
38 | set q [dchrono h show] |
39 | |
40 | regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full z |
41 | puts "$z" |
42 | |
43 | if { $z > ${max_time} } { |
44 | puts "Elapsed time of igesread is more than ${max_time} seconds - Faulty" |
45 | } else { |
46 | puts "Elapsed time of igesread is less than ${max_time} seconds - OK" |
47 | } |
48 | |
49 | # 2 - checkshape |
50 | dchrono h2 reset |
51 | dchrono h2 start |
52 | |
53 | checkshape a_1 |
54 | |
55 | dchrono h2 stop |
56 | set q2 [dchrono h2 show] |
57 | |
58 | regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2 |
59 | puts "$z2" |
60 | |
61 | if { $z2 > ${max_time2} } { |
62 | puts "Elapsed time of checkshape is more than ${max_time2} seconds - Faulty" |
63 | } else { |
64 | puts "Elapsed time of checkshape is less than ${max_time2} seconds - OK" |
65 | } |