From 7d340689ba2ffca99aa166591483b8e662518f2c Mon Sep 17 00:00:00 2001
From: William Carroll <wpcarro@gmail.com>
Date: Sun, 29 Mar 2020 20:37:34 +0100
Subject: [PATCH] Delete the stale tests

While this project would benefit from having test coverage, the current tests
are not providing any useful coverage.
---
 tools/url-blocker/Main.hs |  7 +------
 tools/url-blocker/Spec.hs | 38 --------------------------------------
 2 files changed, 1 insertion(+), 44 deletions(-)
 delete mode 100644 tools/url-blocker/Spec.hs

diff --git a/tools/url-blocker/Main.hs b/tools/url-blocker/Main.hs
index 341979815..926412ce9 100644
--- a/tools/url-blocker/Main.hs
+++ b/tools/url-blocker/Main.hs
@@ -1,12 +1,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE NamedFieldPuns #-}
 {-# LANGUAGE DeriveGeneric #-}
-module Main
-  ( main
-  , getRules
-  , URL(..)
-  , Rule(..)
-  ) where
+module Main ( main ) where
 
 --------------------------------------------------------------------------------
 -- Dependencies
diff --git a/tools/url-blocker/Spec.hs b/tools/url-blocker/Spec.hs
deleted file mode 100644
index b70d8619c..000000000
--- a/tools/url-blocker/Spec.hs
+++ /dev/null
@@ -1,38 +0,0 @@
-module Spec (main) where
-
---------------------------------------------------------------------------------
--- Dependencies
---------------------------------------------------------------------------------
-
-import qualified Main as Main
-
-import Test.Hspec
-
---------------------------------------------------------------------------------
--- Tests
---------------------------------------------------------------------------------
-
-main :: IO ()
-main = hspec $ do
-  describe "getRules" $ do
-    it "returns the parsed rules from rules.json" $ do
-      rules <- Main.getRules
-      rules `shouldBe` [ Main.Rule { Main.urls = [ Main.URL "facebook.com"
-                                                 , Main.URL "www.facebook.com"
-                                                 , Main.URL "twitter.com"
-                                                 , Main.URL "www.twitter.com"
-                                                 , Main.URL "youtube.com"
-                                                 , Main.URL "www.youtube.com"
-                                                 , Main.URL "instagram.com"
-                                                 , Main.URL "www.instagram.com"
-                                                 ]
-                                   , Main.allowed = []
-                                   }
-                       , Main.Rule { Main.urls = [ Main.URL "chat.googleplex.com" ]
-                                   , Main.allowed = []
-                                   }
-                       ]
-
-  describe "Prelude.head" $ do
-    it "returns the first element of a list" $ do
-      head [23 ..] `shouldBe` (23 :: Int)