0031189: Draw Harness, ViewerTest - send messages to Message::DefaultMessenger()
[occt.git] / tests / bugs / fclasses / bug31189
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 }