Add primitive testsuite

DistRap · Dec 26, 2023 · 7fa235c · 7fa235c
1 parent 6f2f290
commit 7fa235c
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 14 deletions.
diff --git a/hocd.cabal b/hocd.cabal
@@ -66,19 +66,17 @@ executable hocd-readme
   main-is: README.lhs
   ghc-options: -pgmL markdown-unlit -Wall
 
--- test-suite hocd-tests
---   type:                exitcode-stdio-1.0
---   hs-source-dirs:      test
---   main-is:             Spec.hs
---   other-modules:       --ParseSpec
---                        SpecHelper
---   build-tool-depends:
---     hspec-discover:hspec-discover
---   build-depends:       base >= 4.7 && < 5
---                      , hocd
---                      , hspec
---                      , base16-bytestring
---   default-language:    Haskell2010
+test-suite hocd-tests
+  type:                exitcode-stdio-1.0
+  hs-source-dirs:      test
+  main-is:             Spec.hs
+  other-modules:       ParseSpec
+  build-tool-depends:
+    hspec-discover:hspec-discover
+  build-depends:       base >= 4.7 && < 5
+                     , hocd
+                     , hspec
+  default-language:    Haskell2010
 
 source-repository head
   type:     git

diff --git a/src/HOCD/Command.hs b/src/HOCD/Command.hs
@@ -12,6 +12,7 @@ module HOCD.Command
   , ReadMemory(..)
   , WriteMemory(..)
   , subChar
+  , parseMem
   ) where
 
 import Data.Bits (FiniteBits(..))

diff --git a/src/HOCD/Error.hs b/src/HOCD/Error.hs
@@ -10,4 +10,4 @@ data OCDError
   | OCDError_GetAddrInfoFailed
   | OCDError_ParseMemory [OCDError]
   | OCDError_ExpectedOneButGotMore
-  deriving (Show)
+  deriving (Eq, Show)