Use tasty for testing instead

Author: tclem

test/Data/Language/Spec.hs

@@ -1,12 +1,13 @@
-module Data.Language.Spec (spec) where
+module Data.Language.Spec (testTree) where
 
 import Data.Language
-import SpecHelpers
+import Test.Tasty
+import Test.Tasty.HUnit
 
-spec :: Spec
-spec = describe "Data.Language" $ do
-  it "supportedExts returns expected list" $
-    supportedExts `shouldBe` [".go",".rb",".builder",".eye",".fcgi",".gemspec",".god",".jbuilder",".mspec",".pluginspec",".podspec",".rabl",".rake",".rbuild",".rbw",".rbx",".ru",".ruby",".spec",".thor",".watchr",".py",".bzl",".cgi",".fcgi",".gyp",".gypi",".lmi",".py3",".pyde",".pyi",".pyp",".pyt",".pyw",".rpy",".spec",".tac",".wsgi",".xpy",".js","._js",".bones",".es",".es6",".frag",".gs",".jake",".jsb",".jscad",".jsfl",".jsm",".jss",".mjs",".njs",".pac",".sjs",".ssjs",".xsjs",".xsjslib",".ts",".php",".aw",".ctp",".fcgi",".inc",".php3",".php4",".php5",".phps",".phpt"]
-
-  it "codeNavLanguages returns expected list" $
-    codeNavLanguages `shouldBe` [Go, Ruby, Python, JavaScript, TypeScript, PHP]
+testTree :: TestTree
+testTree = testGroup "Data.Language"
+  [ testCase "supportedExts returns expected list" $
+      supportedExts @=? [".go",".rb",".builder",".eye",".fcgi",".gemspec",".god",".jbuilder",".mspec",".pluginspec",".podspec",".rabl",".rake",".rbuild",".rbw",".rbx",".ru",".ruby",".spec",".thor",".watchr",".py",".bzl",".cgi",".fcgi",".gyp",".gypi",".lmi",".py3",".pyde",".pyi",".pyp",".pyt",".pyw",".rpy",".spec",".tac",".wsgi",".xpy",".js","._js",".bones",".es",".es6",".frag",".gs",".jake",".jsb",".jscad",".jsfl",".jsm",".jss",".mjs",".njs",".pac",".sjs",".ssjs",".xsjs",".xsjslib",".ts",".php",".aw",".ctp",".fcgi",".inc",".php3",".php4",".php5",".phps",".phpt"]
+  , testCase "codeNavLanguages returns expected list" $
+      codeNavLanguages @=? [Go, Ruby, Python, JavaScript, TypeScript, PHP]
+  ]

test/Spec.hs

@@ -47,6 +47,7 @@ tests :: (?session :: TaskSession) => [TestTree]
 tests =
   [ Integration.Spec.testTree
   , Semantic.CLI.Spec.testTree
+  , Data.Language.Spec.testTree
   , Data.Source.Spec.testTree
   , Semantic.Stat.Spec.testTree
   ]
@@ -79,7 +80,6 @@ legacySpecs = parallel $ do
   describe "Data.Abstract.Path" Data.Abstract.Path.Spec.spec
   describe "Data.Abstract.Name" Data.Abstract.Name.Spec.spec
   describe "Data.Functor.Classes.Generic" Data.Functor.Classes.Generic.Spec.spec
-  describe "Data.Language" Data.Language.Spec.spec
   describe "Data.Range" Data.Range.Spec.spec
   describe "Data.Scientific" Data.Scientific.Spec.spec
   describe "Data.Semigroup.App" Data.Semigroup.App.Spec.spec