mirror of
https://github.com/codedownio/sandwich.git
synced 2024-11-09 17:04:23 +03:00
16 lines
324 B
Haskell
16 lines
324 B
Haskell
module Main where
|
|
|
|
import Test.Sandwich
|
|
import Test.Sandwich.Golden
|
|
|
|
|
|
goldenDemo :: TopSpec
|
|
goldenDemo = describe "Simple tests" $ do
|
|
describe "myStringFunc" $
|
|
golden $ goldenString "myStringFunc" (myStringFunc ())
|
|
|
|
myStringFunc _ = "foo"
|
|
|
|
main :: IO ()
|
|
main = runSandwichWithCommandLineArgs defaultOptions goldenDemo
|