created SubFix.Internal module

This commit is contained in:
2020-11-09 15:24:48 -05:00
parent 3674dc72c8
commit f8a4f7e81c
5 changed files with 125 additions and 3 deletions

View File

@@ -20,9 +20,9 @@ along with this program. If not, see <https://www.gnu.org/licenses/>.
import Test.Hspec (hspec)
import qualified SubFix.ConvertSpec as Convert
import qualified SubFixSpec as SubFix
main :: IO ()
main = hspec Convert.spec
main = hspec SubFix.spec
--jl

View File

@@ -0,0 +1,28 @@
{-
subfix
Copyright (C) Jonathan Lamothe <jonathan@jlamothe.net>
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or (at
your option) any later version.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>.
-}
module SubFix.InternalSpec (spec) where
import Test.Hspec (Spec, describe)
spec :: Spec
spec = describe "Internal" $ return ()
--jl

34
test/SubFixSpec.hs Normal file
View File

@@ -0,0 +1,34 @@
{-
subfix
Copyright (C) Jonathan Lamothe <jonathan@jlamothe.net>
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or (at
your option) any later version.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>.
-}
module SubFixSpec (spec) where
import Test.Hspec (Spec, describe)
import qualified SubFix.InternalSpec as Internal
import qualified SubFix.ConvertSpec as Convert
spec :: Spec
spec = describe "SubFix" $ do
Internal.spec
Convert.spec
--jl