Commits

Bryan O'Sullivan committed 13af29a

Test mempty (silly, I know)

Comments (0)

Files changed (1)

 tl_mappend s      = mappend s`eqP` (unpackS . mappend (TL.pack s))
 t_mconcat         = mconcat `eq` (unpackS . mconcat . L.map T.pack)
 tl_mconcat        = mconcat `eq` (unpackS . mconcat . L.map TL.pack)
+t_mempty          = mempty == (unpackS (mempty :: T.Text))
+tl_mempty         = mempty == (unpackS (mempty :: TL.Text))
 t_IsString        = fromString  `eqP` (T.unpack . fromString)
 tl_IsString       = fromString  `eqP` (TL.unpack . fromString)
 
     testProperty "tl_mappend" tl_mappend,
     testProperty "t_mconcat" t_mconcat,
     testProperty "tl_mconcat" tl_mconcat,
+    testProperty "t_mempty" t_mempty,
+    testProperty "tl_mempty" tl_mempty,
     testProperty "t_IsString" t_IsString,
     testProperty "tl_IsString" tl_IsString
   ],