included doctest

Author: tonyday567

Diff for: data-haskell-examples.cabal

@@ -70,6 +70,60 @@ library
     TypeFamilies,
     TypeOperators
 
+test-suite data-haskell-examples-test
+  type:
+    exitcode-stdio-1.0
+  default-language:
+    Haskell2010
+  ghc-options:
+    -funbox-strict-fields
+    -fforce-recomp
+    -threaded
+    -rtsopts
+    -with-rtsopts=-N
+  hs-source-dirs:
+    test
+  main-is:
+    Spec.hs
+  build-depends:
+    base >= 4.7 && < 5,
+    protolude,
+    data-haskell-examples,
+    doctest
+  default-extensions:
+    NoImplicitPrelude,
+    UnicodeSyntax,
+    BangPatterns,
+    BinaryLiterals,
+    DeriveFoldable,
+    DeriveFunctor,
+    DeriveGeneric,
+    DeriveTraversable,
+    DisambiguateRecordFields,
+    EmptyCase,
+    FlexibleContexts,
+    FlexibleInstances,
+    FunctionalDependencies,
+    GADTSyntax,
+    InstanceSigs,
+    KindSignatures,
+    LambdaCase,
+    MonadComprehensions,
+    MultiParamTypeClasses,
+    MultiWayIf,
+    NegativeLiterals,
+    OverloadedStrings,
+    ParallelListComp,
+    PartialTypeSignatures,
+    PatternSynonyms,
+    RankNTypes,
+    RecordWildCards,
+    RecursiveDo,
+    ScopedTypeVariables,
+    TupleSections,
+    TypeFamilies,
+    TypeOperators
+
 executable data-haskell-examples
   default-language:
     Haskell2010

Diff for: examples/examples.hs

@@ -1,7 +1,30 @@
+{-# LANGUAGE NoImplicitPrelude #-}
 import Protolude
 import Data.Vector as V
 import Numeric.LinearAlgebra as H
 
+-- |
+-- >>> let x = V.fromList [0..5]
+-- >>> V.length x
+-- 6
+--
+-- >>> V.null x
+-- False
+
+-- | hmatrix examples
+-- >>> let x = (2><2) [0..3] :: Matrix Double
+-- >>> x
+-- (2><2)
+--  [ 0.0, 1.0
+--  , 2.0, 3.0 ]
+--
+-- Matrix multiplication
+-- >>> let y = fromLists [[0, 1], [2, 3]] :: Matrix Double
+-- >>> x H.<> y
+-- (2><2)
+--  [ 2.0,  3.0 
+--  , 6.0, 11.0 ]
+
 main :: IO ()
 main = do
     -- vector examples

Diff for: test/Spec.hs

@@ -0,0 +1,6 @@
+{-# LANGUAGE NoImplicitPrelude #-}
+import Protolude
+import Test.DocTest
+
+main :: IO ()
+main = doctest ["examples/examples.hs"]