23fe70ec |
1 | puts "# ============" |
2 | puts "# 0031189: Draw Harness, ViewerTest - send messages to Message::DefaultMessenger()" |
3 | puts "# ============" |
4 | puts "" |
5 | puts "# Test consistency of messages output using stream buffer interface" |
6 | |
7 | pload QAcommands |
8 | set out [OCC31189] |
9 | |
10 | set expected { |
11 | {Direct message 1} |
12 | {Sender message 1: start ...... end} |
13 | {Direct message 2} |
14 | {} |
15 | {Sender message 2} |
16 | } |
17 | |
18 | if { [string compare [string trim $out] [join $expected "\n"]] } { |
19 | puts "Error: output (see above) does not match expected one:" |
20 | puts "[join $expected "\n"]" |
21 | puts "" |
22 | } |