confcrypt-0.1.0.0: test/ConfCrypt/CLI/API/Tests.hs
module ConfCrypt.CLI.API.Tests (
cliAPITests
) where
import ConfCrypt.CLI.API
import ConfCrypt.Commands (AddConfCrypt(..), EditConfCrypt(..), DeleteConfCrypt(..))
import ConfCrypt.Types
import ConfCrypt.Common
import Options.Applicative (execParserPure, ParserResult(..), defaultPrefs)
import Test.Tasty
import Test.Tasty.HUnit
localTestConf :: KeyAndConf
localTestConf = KeyAndConf "testKey" LocalRSA "test.econf"
cliAPITests :: TestTree
cliAPITests = testGroup "cli api" [
apiTests
]
apiTests :: TestTree
apiTests = testGroup "specific cases" [
readCases,
addCases,
editCases,
deleteCases,
validateCases
]
readCases :: TestTree
readCases = testGroup "read" [
testCase "read requires a key" $ do
let args = ["read", "test.econf"]
res = execParserPure defaultPrefs cliParser args
case res of
Failure _ -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
,testCase "read requires a config file" $ do
let args = ["read", "--key", "testKey"]
res = execParserPure defaultPrefs cliParser args
case res of
Failure _ -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
,testCase "read preserves the provided key file with -k" $ do
let args = ["read", "-k", "testKey", "test.econf"]
res = execParserPure defaultPrefs cliParser args
case res of
Success (RC (KeyAndConf "testKey" LocalRSA "test.econf") ) -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
Failure _ -> assertFailure "Should have parsed an RC"
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
,testCase "read preserves the provided key file with --key" $ do
let args = ["read", "--key", "testKey","test.econf"]
res = execParserPure defaultPrefs cliParser args
case res of
Success (RC (KeyAndConf "testKey" LocalRSA "test.econf") ) -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
Failure _ -> assertFailure "Should have parsed an RC"
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
]
addCases :: TestTree
addCases = testGroup "add" [
testCase "requires a key" $ do
let args = ["add", "--name", "test", "--type", "String", "--value", "foo", "test.econf"]
res = execParserPure defaultPrefs cliParser args
case res of
Failure _ -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
,testCase "requires a name" $ do
let args = ["add", "--key", "testKey", "--type", "String", "--value", "foo", "test.econf"]
res = execParserPure defaultPrefs cliParser args
case res of
Failure _ -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
,testCase "requires a type" $ do
let args = ["add", "--key", "testKey", "--name", "test", "--value", "foo", "test.econf"]
res = execParserPure defaultPrefs cliParser args
case res of
Failure _ -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
,testCase "requires a value" $ do
let args = ["add", "--key", "testKey", "--name", "test", "--type", "String", "test.econf"]
res = execParserPure defaultPrefs cliParser args
case res of
Failure _ -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
,testCase "requires a config file" $ do
let args = ["add", "--key", "testKey", "--name", "test", "--type", "String", "--value", "foo"]
res = execParserPure defaultPrefs cliParser args
case res of
Failure _ -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
,testCase "preserves the provided arguments " $ do
let args = ["add", "--key", "testKey", "--name", "test", "--type", "String", "--value", "foo", "test.econf"]
res = execParserPure defaultPrefs cliParser args
case res of
Success (AC (KeyAndConf "testKey" LocalRSA "test.econf") (AddConfCrypt "test" "foo" CString)) -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
Failure _ -> assertFailure "Should have parsed an AC"
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
,testCase "supports alternative argument labels" $ do
let args = ["add", "-k", "testKey", "-n", "test", "-t", "String", "-v", "foo", "test.econf"]
res = execParserPure defaultPrefs cliParser args
case res of
Success (AC (KeyAndConf "testKey" LocalRSA "test.econf") (AddConfCrypt "test" "foo" CString)) -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
Failure _ -> assertFailure "Should have parsed an AC"
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
]
editCases :: TestTree
editCases = testGroup "edit" [
testCase "requires a key" $ do
let args = ["edit", "--name", "test", "--type", "String", "--value", "foo", "test.econf"]
res = execParserPure defaultPrefs cliParser args
case res of
Failure _ -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
,testCase "requires a name" $ do
let args = ["edit", "--key", "testKey", "--type", "String", "--value", "foo", "test.econf"]
res = execParserPure defaultPrefs cliParser args
case res of
Failure _ -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
,testCase "requires a type" $ do
let args = ["edit", "--key", "testKey", "--name", "test", "--value", "foo", "test.econf"]
res = execParserPure defaultPrefs cliParser args
case res of
Failure _ -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
,testCase "requires a value" $ do
let args = ["edit", "--key", "testKey", "--name", "test", "--type", "String", "test.econf"]
res = execParserPure defaultPrefs cliParser args
case res of
Failure _ -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
,testCase "requires a config file" $ do
let args = ["edit", "--key", "testKey", "--name", "test", "--type", "String", "--value", "foo"]
res = execParserPure defaultPrefs cliParser args
case res of
Failure _ -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
,testCase "preserves the provided arguments " $ do
let args = ["edit", "--key", "testKey", "--name", "test", "--type", "String", "--value", "foo", "test.econf"]
res = execParserPure defaultPrefs cliParser args
case res of
Success (EC (KeyAndConf "testKey" LocalRSA "test.econf") (EditConfCrypt "test" "foo" CString)) -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
Failure _ -> assertFailure "Should have parsed an AC"
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
,testCase "supports alternative argument labels" $ do
let args = ["edit", "-k", "testKey", "-n", "test", "-t", "String", "-v", "foo", "test.econf"]
res = execParserPure defaultPrefs cliParser args
case res of
Success (EC (KeyAndConf "testKey" LocalRSA "test.econf") (EditConfCrypt "test" "foo" CString)) -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
Failure _ -> assertFailure "Should have parsed an AC"
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
]
deleteCases :: TestTree
deleteCases = testGroup "delete" [
testCase "requires a name" $ do
let args = ["delete", "test.econf"]
res = execParserPure defaultPrefs cliParser args
case res of
Failure _ -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
,testCase "requires a config file" $ do
let args = ["delete", "--name", "test", "--value", "foo"]
res = execParserPure defaultPrefs cliParser args
case res of
Failure _ -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
,testCase "preserves the provided arguments " $ do
let args = ["delete", "--name", "test", "test.econf"]
res = execParserPure defaultPrefs cliParser args
case res of
Success (DC (Conf "test.econf") (DeleteConfCrypt "test")) -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
Failure _ -> assertFailure "Should have parsed a DC"
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
,testCase "supports alternative argument labels" $ do
let args = ["delete", "-n", "test", "test.econf"]
res = execParserPure defaultPrefs cliParser args
case res of
Success (DC (Conf "test.econf") (DeleteConfCrypt "test")) -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
Failure _ -> assertFailure "Should have parsed a DC"
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
]
validateCases :: TestTree
validateCases = testGroup "validate" [
testCase "validate requires a key" $ do
let args = ["validate", "test.econf"]
res = execParserPure defaultPrefs cliParser args
case res of
Failure _ -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
,testCase "validate requires a config file" $ do
let args = ["validate", "--key", "testKey"]
res = execParserPure defaultPrefs cliParser args
case res of
Failure _ -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
,testCase "validate preserves the provided key file with -k" $ do
let args = ["validate", "-k", "testKey", "test.econf"]
res = execParserPure defaultPrefs cliParser args
case res of
Success (VC (KeyAndConf "testKey" LocalRSA "test.econf") ) -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
Failure _ -> assertFailure "Should have parsed an VC"
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
,testCase "validate preserves the provided key file with --key" $ do
let args = ["validate", "--key", "testKey","test.econf"]
res = execParserPure defaultPrefs cliParser args
case res of
Success (VC (KeyAndConf "testKey" LocalRSA "test.econf") ) -> assertBool "can't fail" True
Success a -> assertFailure ("Incorrectly parsed: "<> show a)
Failure _ -> assertFailure "Should have parsed an VC"
CompletionInvoked _ -> assertFailure "Incorrectly triggered completion"
]