More on demo-setup-teardown

demos/demo-setup-teardown/app/Main.hs

@@ -27,7 +27,10 @@ introduceDatabase = introduceWith "introduceWith database" database $ \action ->
 
 basic :: TopSpec
 basic = describe "Simple tests" $ do
-  before "Pauses" (p 3) $ do
+  before "Pauses before" (p 3) $ do
+    it "adds" $ (2 + 2) `shouldBe` 4
+
+  after "Pauses after" (p 3) $ do
     it "adds" $ (2 + 2) `shouldBe` 4
 
   introduceDatabase $ do

demos/demo-setup-teardown/demo-setup-teardown.cabal

@@ -10,7 +10,7 @@ license:        BSD3
 license-file:   LICENSE
 build-type:     Simple
 
-executable demo-basic
+executable demo-setup-teardown
   main-is: Main.hs
   other-modules:
       Paths_demo_setup_teardown

demos/demo-setup-teardown/package.yaml

@@ -25,6 +25,6 @@ ghc-options:
 - -with-rtsopts=-N
 
 executables:
-  demo-basic:
+  demo-setup-teardown:
     main: Main.hs
     source-dirs: app