RegressionTests__QueueTest.st
changeset 1691 684012a746c0
parent 1534 65f4fdae8ad0
--- a/RegressionTests__QueueTest.st	Wed Aug 23 15:52:31 2017 +0200
+++ b/RegressionTests__QueueTest.st	Sat Aug 26 12:37:32 2017 +0200
@@ -16,7 +16,22 @@
     ^ #( Queue )
 ! !
 
-!QueueTest methodsFor:'Testing'!
+!QueueTest methodsFor:'helpers'!
+
+removeAllSize:size fill:fill
+
+    |q|
+
+    q := Queue new:size.
+
+    1 to:fill do:[:i|
+	q nextPut:i.
+    ].
+    q removeAll.
+    self assert:q isEmpty.
+! !
+
+!QueueTest methodsFor:'testing'!
 
 testBasic1
 
@@ -205,21 +220,6 @@
     ].
 ! !
 
-!QueueTest methodsFor:'helpers'!
-
-removeAllSize:size fill:fill
-
-    |q|
-
-    q := Queue new:size.
-
-    1 to:fill do:[:i|
-	q nextPut:i.
-    ].
-    q removeAll.
-    self assert:q isEmpty.
-! !
-
 !QueueTest class methodsFor:'documentation'!
 
 version