0cc44c47 |
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 | XAddShape D b |
13 | |
14 | set Log [Xdump D] |
15 | |
16 | set status 0 |
17 | |
18 | if {[llength ${Log}] < 1} { |
19 | puts "Error: Invalid output of command Xdump" |
20 | set status 1 |
21 | } |
22 | |
5f07d05d |
23 | if { [regexp "INSTANCE" ${Log}] != 1 } { |
0cc44c47 |
24 | puts "Error: Invalid output of command Xdump" |
25 | set status 1 |
26 | } |
27 | |
28 | if { [regexp "SOLID" ${Log}] != 1 } { |
29 | puts "Error: Invalid output of command Xdump" |
30 | set status 1 |
31 | } |
32 | |
33 | if { ${status} == 0 } { |
34 | puts "OK: Good output of command Xdump" |
35 | } |