Testing setup/teardown with tests

examples/nested.pl

@@ -9,6 +9,8 @@
 
 use Test::Class '0.32_2';
 
+$ENV{ TEST_VERBOSE } = 1;
+
 {   package SimplePassAndFail;
     use base qw( Test::Class );
     use Test::More;
@@ -27,7 +29,7 @@
 
 }
 
-{   package SetupAndTeardownWithTests;
+{   package SetupAndTeardownWithoutTests;
     use base qw( Test::Class );
     use Test::More;
 
@@ -49,5 +51,27 @@
 
 }
 
+{   package SetupAndTeardownWithTests;
+    use base qw( Test::Class );
+    use Test::More;
+
+    sub setup :Test( setup => 1 ) {
+        pass "in setup";
+    }
+
+    sub teardown :Test( teardown => 1 ) {
+        pass "in teardown";
+    }
+
+    sub this_should_pass :Test {
+        pass "alpha";
+    }
+
+    sub this_should_fail :Test {
+        fail "beta";
+    }
+
+}
+
 Test::Class->runtests;
 print "done\n";