Commit | Line | Data |
---|---|---|
06da7b7e | 1 | puts "========================" |
2 | puts "BUC60811" | |
3 | puts "========================" | |
4 | ||
5 | pload QAcommands | |
6 | ||
7 | vinit | |
8 | decho off | |
9 | set List [BUC60811] | |
10 | decho on | |
11 | if { [regexp "Error is 5" $List] != 1 } { | |
12 | puts "Faulty: output is incorrect" | |
13 | } else { | |
14 | puts "OK: output is correct" | |
15 | } | |
16 | ||
17 | ||
18 | ||
19 |