5f07d05d |
1 | puts "============" |
2 | puts "OCC23911" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Invalid output of command Xdump |
7 | ####################################################################### |
8 | |
9 | XNewDoc D |
10 | box b 1 1 1 |
11 | ttranslate b 1 0 0 |
12 | compound b c |
13 | XAddShape D c |
14 | |
15 | set Log [Xdump D] |
16 | |
17 | set status 0 |
18 | |
19 | if {[llength ${Log}] < 1} { |
20 | puts "Error: Invalid output of command Xdump" |
21 | set status 1 |
22 | } |
23 | |
24 | if { [regexp "ASSEMBLY" ${Log}] != 1 } { |
25 | puts "Error: Invalid output of command Xdump" |
26 | set status 1 |
27 | } |
28 | |
29 | if { [regexp "SOLID" ${Log}] != 1 } { |
30 | puts "Error: Invalid output of command Xdump" |
31 | set status 1 |
32 | } |
33 | |
34 | if { ${status} == 0 } { |
35 | puts "OK: Good output of command Xdump" |
36 | } |