brok-0.1.2.0: test/OptionsTest.hs

{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}

module OptionsTest where

import ClassyPrelude

import Test.Tasty
import Test.Tasty.HUnit

import Brok.Options      (parse)
import Brok.Types.Config
import Brok.Types.Next   (Next (..))

test_options :: TestTree
test_options =
    testGroup
        "Brok.Options"
        [ testGroup
              "Help"
              [ testCase "--help" (assertEqual "return Help" (Right Help) (parse ["--help"]))
              , testCase "-h" (assertEqual "return Help" (Right Help) (parse ["-h"]))
              ]
        , testCase
              "single file"
              (assertEqual
                   "gives back file"
                   (Right (Continue (defaultConfig {files = ["blah.md"]})))
                   (parse ["blah.md"]))
        , testCase
              "multiple files"
              (assertEqual
                   "gives back files"
                   (Right (Continue (defaultConfig {files = ["blah.md", "tests/spoon.md"]})))
                   (parse ["blah.md", "tests/spoon.md"]))
        , testCase
              "single file with cache option"
              (assertEqual
                   "gives back files"
                   (Right (Continue (defaultConfig {cache = 172800, files = ["blah.md"]})))
                   (parse ["--cache", "172800", "blah.md"]))
        , testCase
              "multiple files with cache option"
              (assertEqual
                   "gives back files"
                   (Right
                        (Continue
                             (defaultConfig {cache = 172800, files = ["blah.md", "tests/spoon.md"]})))
                   (parse ["--cache", "172800", "blah.md", "tests/spoon.md"]))
        , testCase
              "multiple files with interval option"
              (assertEqual
                   "gives back files"
                   (Right
                        (Continue
                             (defaultConfig {interval = 200, files = ["blah.md", "tests/spoon.md"]})))
                   (parse ["--interval", "200", "blah.md", "tests/spoon.md"]))
        , testCase
              "multiple files with ignore option"
              (assertEqual
                   "gives back files"
                   (Right
                        (Continue
                             (defaultConfig
                              { ignore = ["http://www.google.com", "http://facebook.com"]
                              , files = ["blah.md", "tests/spoon.md"]
                              })))
                   (parse
                        [ "--ignore"
                        , "http://www.google.com"
                        , "http://facebook.com"
                        , "blah.md"
                        , "tests/spoon.md"
                        ]))
        , testCase
              "multiple files with all options #1"
              (assertEqual
                   "gives back files"
                   (Right
                        (Continue
                             (defaultConfig
                              { cache = 172800
                              , interval = 400
                              , ignore = ["http://www.google.com", "http://facebook.com"]
                              , files = ["blah.md", "tests/spoon.md"]
                              })))
                   (parse
                        [ "--cache"
                        , "172800"
                        , "--interval"
                        , "400"
                        , "--ignore"
                        , "http://www.google.com"
                        , "http://facebook.com"
                        , "blah.md"
                        , "tests/spoon.md"
                        ]))
        , testCase
              "multiple files with all options #2"
              (assertEqual
                   "gives back files"
                   (Right
                        (Continue
                             (defaultConfig
                              { cache = 172800
                              , interval = 400
                              , ignore = ["http://www.google.com", "http://facebook.com"]
                              , files = ["blah.md", "tests/spoon.md"]
                              })))
                   (parse
                        [ "--interval"
                        , "400"
                        , "--cache"
                        , "172800"
                        , "--ignore"
                        , "http://www.google.com"
                        , "http://facebook.com"
                        , "blah.md"
                        , "tests/spoon.md"
                        ]))
        , testCase
              "multiple files with all options #3"
              (assertEqual
                   "gives back files"
                   (Right
                        (Continue
                             (defaultConfig
                              { cache = 172800
                              , interval = 400
                              , ignore = ["http://www.google.com", "http://facebook.com"]
                              , files = ["blah.md", "tests/spoon.md"]
                              })))
                   (parse
                        [ "--ignore"
                        , "http://www.google.com"
                        , "http://facebook.com"
                        , "--interval"
                        , "400"
                        , "--cache"
                        , "172800"
                        , "blah.md"
                        , "tests/spoon.md"
                        ]))
        , testCase
              "files with space"
              (assertEqual
                   "gives back files"
                   (Right (Continue (defaultConfig {files = ["blah.md", "tests/spoon book.md"]})))
                   (parse ["blah.md", "tests/spoon book.md"]))
        ]