Skip to content

Commit

Permalink
Mark TlsSpec as pending
Browse files Browse the repository at this point in the history
Until #2593 is merged.
  • Loading branch information
rvl committed Apr 1, 2021
1 parent e1d7863 commit e768806
Showing 1 changed file with 4 additions and 1 deletion.
5 changes: 4 additions & 1 deletion lib/core/test/unit/Cardano/Wallet/Api/Server/TlsSpec.hs
Original file line number Diff line number Diff line change
Expand Up @@ -59,7 +59,7 @@ import Network.Wai
import System.FilePath
( (</>) )
import Test.Hspec
( Spec, describe, it, shouldBe, shouldThrow )
( Spec, describe, it, pendingWith, shouldBe, shouldThrow )
import Test.Utils.Paths
( getTestData )
import Test.Utils.Windows
Expand All @@ -77,6 +77,7 @@ import qualified Network.Wai.Handler.Warp as Warp
spec :: Spec
spec = describe "TLS Client Authentication" $ do
it "Respond to authenticated client if TLS is enabled" $ do
pendingWith "ADP-852: Tests are broken"
pendingOnWine "CertOpenSystemStoreW is failing under Wine"
withListeningSocket "*" ListenOnRandomPort $ \(Right (port, socket)) -> do
let tlsSv = TlsConfiguration
Expand All @@ -99,6 +100,7 @@ spec = describe "TLS Client Authentication" $ do
}

it "Deny client with wrong certificate if TLS is enabled" $ do
pendingWith "ADP-852: Tests are broken"
pendingOnWine "CertOpenSystemStoreW is failing under Wine"
withListeningSocket "*" ListenOnRandomPort $ \(Right (port, socket)) -> do
let tlsSv = TlsConfiguration
Expand All @@ -123,6 +125,7 @@ spec = describe "TLS Client Authentication" $ do
_ -> False

it "Properly deny HTTP connection if TLS is enabled" $ do
pendingWith "ADP-852: Tests are broken"
withListeningSocket "*" ListenOnRandomPort $ \(Right (port, socket)) -> do
let tlsSv = TlsConfiguration
{ tlsCaCert = rootPKI 1 </> "ca.crt"
Expand Down

0 comments on commit e768806

Please sign in to comment.