tests/Spec.hs

   1 {-# OPTIONS_GHC -w -Wall -fno-warn-missing-signatures -fno-warn-unused-imports #-}
   2
   3 import Test.Syd
   4
   5 import GHC.Conc qualified
   6 import Language.ChineseSpec qualified
   7 import Language.EnglishSpec qualified
   8 import Language.FrenchSpec qualified
   9 import MathSpec qualified
  10 import RecipesSpec qualified
  11 import Rosetta.MatchingSpec qualified
  12 import Rosetta.ReadingSpec qualified
  13 import Rosetta.WritingSpec qualified
  14 import Utils.Pronunciation qualified
  15 import WiktionarySpec qualified
  16 import Worksheets.Utils.Prelude
  17
  18 main :: IO ()
  19 main = sydTest spec
  20
  21 spec = do
  22   -- Utils.Pronunciation.spec
  23   -- RecipesSpec.spec
  24   -- MathSpec.spec
  25
  26   -- WiktionarySpec.spec
  27   describe "Language" do
  28     describe "Chinese" do
  29       Language.ChineseSpec.spec
  30
  31 -- withTimeout 3000000 do
  32 --  withoutRetries do
  33 --    --    describe "Language" do
  34 --    --      describe "EnglishSpec" do
  35 --    --        Language.EnglishSpec.spec
  36 --    describe "FrenchSpec" do
  37 --      Language.FrenchSpec.spec
  38
  39 -- withoutRetries do
  40 --  describe "Rosetta" do
  41 --    describe "MatchingSpec" do
  42 --      Rosetta.MatchingSpec.spec
  43
  44 --    describe "ReadingSpec" do
  45 --      Rosetta.ReadingSpec.spec
  46
  47 --    --describe "WritingSpec" do
  48 --  Rosetta.WritingSpec.spec
  49
  50 --    describe "RosettaSpec" do
  51 --      Worksheets.Writing.RosettaSpec.spec