a8676008 |
1 | pload QAcommands |
2 | |
3 | puts "============" |
4 | puts "OCC13963" |
5 | puts "============" |
6 | puts "" |
7 | ####################################################################### |
8 | # Some improvements in Bnd and gp classes |
9 | ####################################################################### |
10 | |
11 | set BugNumber OCC13963 |
12 | |
13 | set Result [OCC13963 1 0 0 1] |
14 | |
15 | regexp {\([ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*\)[ \t]*=>[ \t]*\([ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*\)} $Result full OriginX OriginY OriginZ ResultX ResultY ResultZ |
16 | |
17 | if { ${OriginX} == 1.000 } { |
18 | set Status 0 |
19 | } else { |
20 | set Status 1 |
21 | } |
22 | if { ${OriginY} == 0.000 } { |
23 | set Status 0 |
24 | } else { |
25 | set Status 2 |
26 | } |
27 | if { ${OriginZ} == 0.000 } { |
28 | set Status 0 |
29 | } else { |
30 | set Status 3 |
31 | } |
32 | |
33 | if { ${ResultX} == 1.000 } { |
34 | set Status 0 |
35 | } else { |
36 | set Status 4 |
37 | } |
38 | if { ${ResultY} == 0.000 } { |
39 | set Status 0 |
40 | } else { |
41 | set Status 5 |
42 | } |
43 | if { ${ResultZ} == 0.000 } { |
44 | set Status 0 |
45 | } else { |
46 | set Status 6 |
47 | } |
48 | |
49 | puts "Status = ${Status}" |
50 | # Resume |
51 | puts "" |
52 | if { ${Status} != 0 } { |
53 | puts "Faulty ${BugNumber}" |
54 | } else { |
55 | puts "OK ${BugNumber}" |
56 | } |
57 | |