Diff of /test/trunk/ooRexx/base/class/collections/queue.testGroup [r7665] .. [r7666] Maximize Restore

  Switch to unified view

a/test/trunk/ooRexx/base/class/collections/queue.testGroup b/test/trunk/ooRexx/base/class/collections/queue.testGroup
1
#!/usr/bin/rexx
1
#!/usr/bin/rexx
2
/*
2
/*
3
  SVN Revision: $Rev: 6819 $
3
  SVN Revision: $Rev: 7666 $
4
  Change Date:  $Date: 2011-03-02 13:04:21 +0000 (Wed, 02 Mar 2011) $
4
  Change Date:  $Date: 2012-03-14 14:47:02 +0000 (Wed, 14 Mar 2012) $
5
*/
5
*/
6
/*----------------------------------------------------------------------------*/
6
/*----------------------------------------------------------------------------*/
7
/*                                                                            */
7
/*                                                                            */
8
/* Copyright (c) 2007 - 2008 Rexx Language Association. All rights reserved.  */
8
/* Copyright (c) 2007 - 2008 Rexx Language Association. All rights reserved.  */
9
/*                                                                            */
9
/*                                                                            */
...
...
104
   self~assertEquals(3, que~items)
104
   self~assertEquals(3, que~items)
105
   self~assertEquals('Tom', item)
105
   self~assertEquals('Tom', item)
106
106
107
   item = que~remove(4)
107
   item = que~remove(4)
108
   self~assertEquals(3, que~items)
108
   self~assertEquals(3, que~items)
109
   self~assertEquals(3, que~size)
110
   self~assertNull(item)
109
   self~assertNull(item)
111
110
112
::method "test_delete"
111
::method "test_delete"
113
   que = .queue~of('Mike', 'David', 'Tom')
112
   que = .queue~of('Mike', 'David', 'Tom')
114
   item = que~delete(1)
113
   item = que~delete(1)
115
   self~assertEquals(2, que~items)
114
   self~assertEquals(2, que~items)
116
   self~assertEquals(2, que~size)
117
   self~assertEquals('Mike', item)
115
   self~assertEquals('Mike', item)
118
   item = que~delete(2)
116
   item = que~delete(2)
119
   self~assertEquals(1, que~items)
117
   self~assertEquals(1, que~items)
120
   self~assertEquals(1, que~size)
121
   self~assertEquals('Tom', item)
118
   self~assertEquals('Tom', item)
122
119
123
::method "test_4"
120
::method "test_4"
124
   que = .queue~of('Mike', 'David', 'Tom')
121
   que = .queue~of('Mike', 'David', 'Tom')
125
   self~assertEquals(3, que~items)
122
   self~assertEquals(3, que~items)