mismi-s3: Add a test for downloadRecursive

Author: erikd-ambiata

mismi-s3/test/Test/IO/Mismi/S3/Commands.hs

@@ -497,6 +497,25 @@ prop_read_empty k = ioProperty $ do
   t <- runAWSDefaultRegion . read $ Address bucket' k
   pure $ t === Nothing
 
+prop_download_recursive :: Property
+prop_download_recursive = once . testAWS $ do
+  let name1 = "first name"
+      name2 = "second name"
+      name3 = "third name"
+  tmpdir <- newFilePath
+  addr <- withKey (// Key "top") <$> newAddress
+  writeOrFail (withKey (// Key "a") addr) name1
+  writeOrFail (withKey (// Key "b/c") addr) name2
+  writeOrFail (withKey (// Key "c/d/e") addr) name3
+
+  eitherT (fail . show) pure $ downloadRecursive addr tmpdir
+
+  a <- liftIO $ T.readFile (tmpdir </> "a")
+  c <- liftIO $ T.readFile (tmpdir </> "b" </> "c")
+  e <- liftIO $ T.readFile (tmpdir </> "c" </> "d" </> "e")
+
+  pure $ a === name1 .&&. c == name2 .&&. e == name3
+
 ----------
 -- HELPERS
 ----------