Add a bit more variety to step tokens

sakari · Sep 7, 2011 · f8945b8 · f8945b8
1 parent 05712ef
commit f8945b8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/Instances.hs b/tests/Instances.hs
@@ -77,7 +77,7 @@ instance Arbitrary Background where
 
 instance Arbitrary StepText where
   arbitrary = smaller $ 
-    StepText <$> smaller (listOf1 arbitrary) <*> arbitrary
+    StepText <$> listOf1 arbitrary <*> arbitrary
   shrink (StepText tokens block) = filter noEmptySteps $ tail' $ StepText 
                                    <$> (tokens : shrink tokens) 
                                    <*> (block : shrink block)