about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--tools/url-blocker/Main.hs7
-rw-r--r--tools/url-blocker/Spec.hs38
2 files changed, 1 insertions, 44 deletions
diff --git a/tools/url-blocker/Main.hs b/tools/url-blocker/Main.hs
index 34197981598c..926412ce91f9 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 b70d8619cb25..000000000000
--- 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)