[occt.git] / tests / bugs / fclasses / bug31189

puts "# ============"
puts "# 0031189: Draw Harness, ViewerTest - send messages to Message::DefaultMessenger()"
puts "# ============"
puts ""
puts "# Test consistency of messages output using stream buffer interface"

pload QAcommands
set out [OCC31189]

set expected {
  {Direct message 1}
  {Sender message 1: start ...... end}
  {Direct message 2}
  {}
  {Sender message 2}
}

if { [string compare [string trim $out] [join $expected "\n"]] } {
  puts "Error: output (see above) does not match expected one:"
  puts "[join $expected "\n"]"
  puts ""
}
Commit	Line	Data
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	}