geomancy-layout-0.1.1: test/Spec.hs

import Prelude

import Test.Tasty
import Test.Tasty.HUnit

import Examples

main :: IO ()
main = defaultMain tests

tests :: TestTree
tests = testGroup "Examples"
  [ testCase "Tree" $ toSVGfile "examples/Tree.svg" exampleTree
  , testCase "Halves" $ toSVGfile "examples/Halves.svg" exampleHalves
  , testCase "Overflow" $ toSVGfile "examples/Overflow.svg" exampleOverflow
  , testCase "Framed" $ toSVGfile "examples/Framed.svg" exampleFramed
  , testCase "Nested" $ toSVGfile "examples/Nested.svg" exampleNested
  , testCase "Dynamic" $ toSVGfile "examples/Dynamic.svg" exampleDynamic
  , testCase "DynamicVert" $ toSVGfile "examples/DynamicVert.svg" exampleDynamicVert
  ]