Update of /cvsroot/popfile/engine/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv25788/tests
Modified Files:
TestMQ.tst
Log Message:
Change message names to make test a bit more careful
Index: TestMQ.tst
===================================================================
RCS file: /cvsroot/popfile/engine/tests/TestMQ.tst,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** TestMQ.tst 10 Jul 2003 04:28:16 -0000 1.1
--- TestMQ.tst 31 Jul 2003 14:22:04 -0000 1.2
***************
*** 42,45 ****
--- 42,46 ----
# Register three different message types
+ $mq->register( 'MESG1', $r );
$mq->register( 'MSG1', $r );
$mq->register( 'MSG2', $r );
***************
*** 50,60 ****
# First send a single message and check that it is
# received
! $mq->post( 'MSG1', 'message1', 'param1' );
$mq->service();
my @messages = $r->read();
test_assert_equal( $#messages, 0 );
! test_assert_equal( $messages[0][0], 'MSG1' );
! test_assert_equal( $messages[0][1], 'message1' );
! test_assert_equal( $messages[0][2], 'param1' );
# Now send three messages and check that they are
--- 51,61 ----
# First send a single message and check that it is
# received
! $mq->post( 'MESG1', 'Message1', 'Param1' );
$mq->service();
my @messages = $r->read();
test_assert_equal( $#messages, 0 );
! test_assert_equal( $messages[0][0], 'MESG1' );
! test_assert_equal( $messages[0][1], 'Message1' );
! test_assert_equal( $messages[0][2], 'Param1' );
# Now send three messages and check that they are
|
