{-# LANGUAGE FlexibleContexts      #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE NoImplicitPrelude     #-}
{-# LANGUAGE OverloadedStrings     #-}
{-# LANGUAGE StrictData            #-}
module Headroom.HeaderFn.UpdateCopyrightSpec
  ( spec
  )
where

import           Headroom.Data.Has              ( Has(..) )
import           Headroom.Data.TextExtra        ( fromLines )
import           Headroom.HeaderFn              ( runHeaderFn )
import           Headroom.HeaderFn.UpdateCopyright
import           Headroom.Types                 ( CurrentYear(..) )
import           RIO
import           Test.Hspec


spec :: Spec
spec = do
  let currYear = CurrentYear 2020


  describe "updateCopyright" $ do
    it "updates all authors when such mode selected" $ do
      let
        sample = fromLines
          [ "Copyright (c) 2019 1st Author"
          , "Copyright (c) 2017-2019 2nd Author"
          ]
        expected = fromLines
          [ "Copyright (c) 2019-2020 1st Author"
          , "Copyright (c) 2017-2020 2nd Author"
          ]
        testEnv = TestEnv currYear UpdateAllAuthors
      runHeaderFn updateCopyright testEnv sample `shouldBe` expected

    it "updates only selected authors in such mode" $ do
      let sample = fromLines
            [ "Copyright (c) 2019 1st Author"
            , "Copyright (c) 2017-2019 2nd Author"
            ]
          expected = fromLines
            [ "Copyright (c) 2019 1st Author"
            , "Copyright (c) 2017-2020 2nd Author"
            ]
          mode    = UpdateSelectedAuthors . SelectedAuthors $ "2nd Author" :| []
          testEnv = TestEnv currYear mode
      runHeaderFn updateCopyright testEnv sample `shouldBe` expected


  describe "updateYears" $ do
    it "does nothing on up-to-date year" $ do
      let sample = "Copyright (c) 2020"
      updateYears currYear sample `shouldBe` sample

    it "does nothing on up-to-date year range" $ do
      let sample = "Copyright (c) 2018-2020"
      updateYears currYear sample `shouldBe` sample

    it "updates outdated year" $ do
      let sample   = "Copyright (c) 2019"
          expected = "Copyright (c) 2019-2020"
      updateYears currYear sample `shouldBe` expected

    it "updates outdated year range" $ do
      let sample   = "Copyright (c) 2017-2019"
          expected = "Copyright (c) 2017-2020"
      updateYears currYear sample `shouldBe` expected

    it "updates complex multi-line text" $ do
      let sample = fromLines
            [ "Copyright (c) 2019"
            , "Copyright (c) 2020"
            , "Copyright (c) 2019-2020"
            , "Copyright (c) 2017-2019"
            ]
          expected = fromLines
            [ "Copyright (c) 2019-2020"
            , "Copyright (c) 2020"
            , "Copyright (c) 2019-2020"
            , "Copyright (c) 2017-2020"
            ]
      updateYears currYear sample `shouldBe` expected


-------------------------------  TEST DATA TYPES  ------------------------------


data TestEnv = TestEnv
  { teCurrentYear :: CurrentYear
  , teMode        :: UpdateCopyrightMode
  }
  deriving (Eq, Show)

instance Has CurrentYear TestEnv where
  hasLens = lens teCurrentYear (\x y -> x { teCurrentYear = y })

instance Has UpdateCopyrightMode TestEnv where
  hasLens = lens teMode (\x y -> x { teMode = y })