From d63c49537da8c2a3ee20e6153e2471087054730d Mon Sep 17 00:00:00 2001
From: Simon Hengel <sol@typeful.net>
Date: Mon, 15 Oct 2012 14:25:39 +0200
Subject: Move unit tests to /test directory

---
 tests/unit-tests/Haddock/ParseSpec.hs | 81 -----------------------------------
 tests/unit-tests/Spec.hs              |  9 ----
 2 files changed, 90 deletions(-)
 delete mode 100644 tests/unit-tests/Haddock/ParseSpec.hs
 delete mode 100644 tests/unit-tests/Spec.hs

(limited to 'tests/unit-tests')

diff --git a/tests/unit-tests/Haddock/ParseSpec.hs b/tests/unit-tests/Haddock/ParseSpec.hs
deleted file mode 100644
index d692cb0c..00000000
--- a/tests/unit-tests/Haddock/ParseSpec.hs
+++ /dev/null
@@ -1,81 +0,0 @@
-{-# LANGUAGE OverloadedStrings, StandaloneDeriving, FlexibleInstances, UndecidableInstances, IncoherentInstances #-}
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-module Haddock.ParseSpec (main, spec) where
-
-import           Test.Hspec
-import           RdrName (RdrName)
-import           DynFlags (DynFlags, defaultDynFlags)
-import           Haddock.Lex (tokenise)
-import qualified Haddock.Parse as Parse
-import           Haddock.Types
-import           Outputable (Outputable, showSDoc, ppr)
-import           Data.Monoid
-import           Data.String
-
-dynFlags :: DynFlags
-dynFlags = defaultDynFlags (error "dynFlags for Haddock tests: undefined")
-
-instance Outputable a => Show a where
-  show = showSDoc dynFlags . ppr
-
-deriving instance Show a => Show (Doc a)
-deriving instance Eq a =>Eq (Doc a)
-
-instance IsString (Doc RdrName) where
-  fromString = DocString
-
-parseParas :: String -> Maybe (Doc RdrName)
-parseParas s = Parse.parseParas $ tokenise dynFlags s (0,0)
-
-main :: IO ()
-main = hspec spec
-
-spec :: Spec
-spec = do
-  describe "parseParas" $ do
-    it "parses a paragraph" $ do
-      parseParas "foobar" `shouldBe` Just (DocParagraph "foobar\n")
-
-    context "when parsing an example" $ do
-      it "requires an example to be separated from a previous paragrap by an empty line" $ do
-        parseParas "foobar\n\n>>> fib 10\n55" `shouldBe`
-          Just (DocParagraph "foobar\n" <> DocExamples [Example "fib 10" ["55"]])
-
-        -- parse error
-        parseParas "foobar\n>>> fib 10\n55" `shouldBe` Nothing
-
-      it "parses a result line that only contains <BLANKLINE> as an emptly line" $ do
-        parseParas ">>> putFooBar\nfoo\n<BLANKLINE>\nbar" `shouldBe`
-          Just (DocExamples [Example "putFooBar" ["foo","","bar"]])
-
-    context "when parsing a code block" $ do
-      it "requires a code blocks to be separated from a previous paragrap by an empty line" $ do
-        parseParas "foobar\n\n> some code" `shouldBe`
-          Just (DocParagraph "foobar\n" <> DocCodeBlock " some code\n")
-
-        -- parse error
-        parseParas "foobar\n> some code" `shouldBe` Nothing
-
-
-    context "when parsing a URL" $ do
-      it "parses a URL" $ do
-        parseParas "<http://example.com/>" `shouldBe`
-          Just (DocParagraph $ hyperlink "http://example.com/" Nothing <> "\n")
-
-      it "accepts an optional label" $ do
-        parseParas "<http://example.com/ some link>" `shouldBe`
-          Just (DocParagraph $ hyperlink "http://example.com/" (Just "some link") <> "\n")
-
-    context "when parsing properties" $ do
-      it "can parse a single property" $ do
-        parseParas "prop> 23 == 23" `shouldBe` Just (DocProperty "23 == 23")
-
-      it "can parse multiple subsequent properties" $ do
-        parseParas $ unlines [
-              "prop> 23 == 23"
-            , "prop> 42 == 42"
-            ]
-        `shouldBe` Just (DocProperty "23 == 23" <> DocProperty "42 == 42")
-  where
-    hyperlink :: String -> Maybe String -> Doc RdrName
-    hyperlink url = DocHyperlink . Hyperlink url
diff --git a/tests/unit-tests/Spec.hs b/tests/unit-tests/Spec.hs
deleted file mode 100644
index 68521c03..00000000
--- a/tests/unit-tests/Spec.hs
+++ /dev/null
@@ -1,9 +0,0 @@
-module Main where
-
-import           Test.Hspec
-
-import qualified Haddock.ParseSpec
-
-main :: IO ()
-main = hspec $ do
-  describe "Haddock.Parse" Haddock.ParseSpec.spec
-- 
cgit v1.2.3