@@ -87,6 +87,9 @@ es12 = ServerVersion 1 2 0
87es11 :: ServerVersion
87es11 :: ServerVersion
88es11 = ServerVersion 1 1 0
88es11 = ServerVersion 1 1 0
91+es14 = ServerVersion 1 4 0
90es15 :: ServerVersion
93es15 :: ServerVersion
91es15 = ServerVersion 1 5 0
94es15 = ServerVersion 1 5 0
@@ -1495,7 +1498,8 @@ main = hspec $ do
1495 Right [roundtrippedNoCompression] <- getSnapshotRepos (SnapshotRepoList (ExactRepo r1n :| []))
1498 Right [roundtrippedNoCompression] <- getSnapshotRepos (SnapshotRepoList (ExactRepo r1n :| []))
1496 liftIO (roundtrippedNoCompression `shouldBe` toGSnapshotRepo noCompression)
1499 liftIO (roundtrippedNoCompression `shouldBe` toGSnapshotRepo noCompression)
1501+ -- verify came around in 1.4 it seems
1498− it "can verify existing repos" $ when' canSnapshot $ withTestEnv $ do
1502+ it "can verify existing repos" $ when' canSnapshot $ when' (atleast es14) $ withTestEnv $ do
1499 let r1n = SnapshotRepoName "bloodhound-repo1"
1503 let r1n = SnapshotRepoName "bloodhound-repo1"
1500 withSnapshotRepo r1n $ \_ -> do
1504 withSnapshotRepo r1n $ \_ -> do
1501 res <- verifySnapshotRepo r1n
1505 res <- verifySnapshotRepo r1n