ResponseFilterSpec.hs

module Unused.ResponseFilterSpec
    ( main
    , spec
    ) where

import Test.Hspec
import Data.List (find)
import Unused.Types (TermMatch(..), TermResults, resultsFromMatches)
import Unused.ResponseFilter
import Unused.ResultsClassifier

main :: IO ()
main = hspec spec

spec :: Spec
spec = parallel $ do
    describe "railsAutoLowLikelihood" $ do
        it "allows controllers" $ do
            let match = TermMatch "ApplicationController" "app/controllers/application_controller.rb" 1
            let result = resultsFromMatches [match]

            railsAutoLowLikelihood result `shouldReturn` True

        it "allows helpers" $ do
            let match = TermMatch "ApplicationHelper" "app/helpers/application_helper.rb" 1
            let result = resultsFromMatches [match]

            railsAutoLowLikelihood result `shouldReturn` True

        it "allows migrations" $ do
            let match = TermMatch "CreateUsers" "db/migrate/20160101120000_create_users.rb" 1
            let result = resultsFromMatches [match]

            railsAutoLowLikelihood result `shouldReturn` True

        it "disallows service objects" $ do
            let match = TermMatch "CreatePostWithNotifications" "app/services/create_post_with_notifications.rb" 1
            let result = resultsFromMatches [match]

            railsAutoLowLikelihood result `shouldReturn` False

        it "disallows methods" $ do
            let match = TermMatch "my_method" "app/services/create_post_with_notifications.rb" 1
            let result = resultsFromMatches [match]

            railsAutoLowLikelihood result `shouldReturn` False

        it "disallows models that occur in migrations" $ do
            let model = TermMatch "User" "app/models/user.rb" 1
            let migration = TermMatch "User" "db/migrate/20160101120000_create_users.rb" 1
            let result = resultsFromMatches [model, migration]

            railsAutoLowLikelihood result `shouldReturn` False

        it "allows matches intermixed with other results" $ do
            let appToken = TermMatch "ApplicationHelper" "app/helpers/application_helper.rb" 1
            let testToken = TermMatch "ApplicationHelper" "spec/helpers/application_helper_spec.rb" 10
            let result = resultsFromMatches [appToken, testToken]

            railsAutoLowLikelihood result `shouldReturn` True

    describe "elixirAutoLowLikelihood" $ do
        it "disallows controllers" $ do
            let match = TermMatch "PageController" "web/controllers/page_controller.rb" 1
            let result = resultsFromMatches [match]

            elixirAutoLowLikelihood result `shouldReturn` False

        it "allows views" $ do
            let match = TermMatch "PageView" "web/views/page_view.rb" 1
            let result = resultsFromMatches [match]

            elixirAutoLowLikelihood result `shouldReturn` True

        it "allows migrations" $ do
            let match = TermMatch "CreateUsers" "priv/repo/migrations/20160101120000_create_users.exs" 1
            let result = resultsFromMatches [match]

            elixirAutoLowLikelihood result `shouldReturn` True

        it "allows tests" $ do
            let match = TermMatch "UserTest" "test/models/user_test.exs" 1
            let result = resultsFromMatches [match]

            elixirAutoLowLikelihood result `shouldReturn` True

        it "allows Mixfile" $ do
            let match = TermMatch "Mixfile" "mix.exs" 1
            let result = resultsFromMatches [match]

            elixirAutoLowLikelihood result `shouldReturn` True

        it "allows __using__" $ do
            let match = TermMatch "__using__" "web/web.ex" 1
            let result = resultsFromMatches [match]

            elixirAutoLowLikelihood result `shouldReturn` True

        it "disallows service modules" $ do
            let match = TermMatch "CreatePostWithNotifications" "web/services/create_post_with_notifications.ex" 1
            let result = resultsFromMatches [match]

            elixirAutoLowLikelihood result `shouldReturn` False

        it "disallows functions" $ do
            let match = TermMatch "my_function" "web/services/create_post_with_notifications.ex" 1
            let result = resultsFromMatches [match]

            elixirAutoLowLikelihood result `shouldReturn` False

        it "allows matches intermixed with other results" $ do
            let appToken = TermMatch "UserView" "web/views/user_view.ex" 1
            let testToken = TermMatch "UserView" "test/views/user_view_test.exs" 10
            let result = resultsFromMatches [appToken, testToken]

            elixirAutoLowLikelihood result `shouldReturn` True

    describe "haskellAutoLowLikelihood" $ do
        it "allows instance" $ do
            let match = TermMatch "instance" "src/Lib/Types.hs" 1
            let result = resultsFromMatches [match]

            haskellAutoLowLikelihood result `shouldReturn` True

        it "allows items in the *.cabal file" $ do
            let match = TermMatch "Lib.SomethingSpec" "lib.cabal" 1
            let result = resultsFromMatches [match]

            haskellAutoLowLikelihood result `shouldReturn` True

    describe "autoLowLikelihood" $
        it "doesn't qualify as low when no matchers are present in a language config" $ do
            let match = TermMatch "AwesomeThing" "app/foo/awesome_thing.rb" 1
            let result = resultsFromMatches [match]
            let languageConfig = LanguageConfiguration "Bad" [] [LowLikelihoodMatch "Match with empty matchers" [] False] []

            autoLowLikelihood languageConfig result `shouldBe` False

configByName :: String -> IO LanguageConfiguration
configByName s = do
    (Right config) <- loadConfig
    let (Just config') = find ((==) s . lcName) config

    return config'

railsAutoLowLikelihood :: TermResults -> IO Bool
railsAutoLowLikelihood r = (`autoLowLikelihood` r) <$> configByName "Rails"

elixirAutoLowLikelihood :: TermResults -> IO Bool
elixirAutoLowLikelihood r = (`autoLowLikelihood` r) <$> configByName "Phoenix"

haskellAutoLowLikelihood :: TermResults -> IO Bool
haskellAutoLowLikelihood r = (`autoLowLikelihood` r) <$> configByName "Haskell"