1 files changed, 7 insertions, 6 deletions

diff --git a/tests/suite.hs b/tests/suite.hs
index 45a2fb2..a843664 100644
--- a/tests/suite.hs
+++ b/tests/suite.hs
@@ -3,7 +3,7 @@ import Test.Framework.Providers.HUnit
 
 import Test.HUnit
 
-import Codec.Encryption.OpenPGP.ASCIIArmor (armor, decode)
+import Codec.Encryption.OpenPGP.ASCIIArmor (encode, decode)
 import Codec.Encryption.OpenPGP.ASCIIArmor.Types
 
 import Data.ByteString (ByteString)
@@ -25,11 +25,11 @@ testArmorDecode fp targets = do
     where
         getPayload (Armor _ _ pl) = pl
 
-testArmorEncode :: FilePath -> FilePath -> Assertion
-testArmorEncode fp target = do
-    bs <- B.readFile $ "tests/data/" ++ fp
+testArmorEncode :: [FilePath] -> FilePath -> Assertion
+testArmorEncode fps target = do
+    bss <- mapM (\fp -> B.readFile $ "tests/data/" ++ fp) fps
     tbs <- B.readFile $ "tests/data/" ++ target
-    assertEqual ("literaldata") (armor (Armor ArmorMessage [("Version","OpenPrivacy 0.99")] bs)) tbs
+    assertEqual ("literaldata") (encode (map (\bs -> Armor ArmorMessage [("Version","OpenPrivacy 0.99")] bs) bss)) tbs
 
 tests = [
    testGroup "CRC24" [
@@ -41,7 +41,8 @@ tests = [
       testCase "Decode sample armor" (testArmorDecode "msg1.asc" ["msg1.gpg"])
     , testCase "Decode sample armor with cruft" (testArmorDecode "msg1a.asc" ["msg1.gpg"])
     , testCase "Decode multiple sample armors" (testArmorDecode "msg1b.asc" ["msg1.gpg","msg1.gpg","msg1.gpg"])
-    , testCase "Encode sample armor" (testArmorEncode "msg1.gpg" "msg1.asc")
+    , testCase "Encode sample armor" (testArmorEncode ["msg1.gpg"] "msg1.asc")
+    , testCase "Encode multiple sample armors" (testArmorEncode ["msg1.gpg","msg1.gpg","msg1.gpg"] "msg1c.asc")
     ]
  ]