projects
/
occt.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Correction of testing case for issue 24374
[occt.git]
/
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
set square 254.16
29
set 2dviewer 0
30