Review fix

cardano-foundation · May 9, 2019 · 5a812c3 · 5a812c3
1 parent b424657
commit 5a812c3
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/lib/text-class/test/unit/Data/Text/ClassSpec.hs b/lib/text-class/test/unit/Data/Text/ClassSpec.hs
@@ -52,6 +52,11 @@ spec = do
             in fromText @Int "patate" === Left (TextDecodingError err)
         it "fromText . toText === pure"
             $ property $ \(i :: Int) -> (fromText . toText) i === pure i
+        it "fromText ~ fromTextMaybe" $
+            property $ \(Digits t) ->
+              classify (isNothing (fromTextMaybe @Int t)) "invalid" $
+              classify ((compare 0 <$> fromTextMaybe @Int t) == Just GT) "valid negative" $
+              toList (fromTextMaybe @Int t) === toList (fromText t)
 
     describe "Text" $ do
         it "fromText \"patate\"" $
@@ -60,11 +65,6 @@ spec = do
             toText @Text "patate" === "patate"
         it "fromText . toText === pure" $
             property $ \(t :: Text) -> (fromText . toText) t === pure t
-        it "fromText ~ fromTextMaybe" $
-            property $ \(Digits t) ->
-              classify (isNothing (fromTextMaybe @Int t)) "invalid" $
-              classify ((compare 0 <$> fromTextMaybe @Int t) == Just GT) "valid negative" $
-              toList (fromTextMaybe @Int t) === toList (fromText t)
 
 {-------------------------------------------------------------------------------
                               Arbitrary Instances