--- /dev/null
+## name Basic passing
+## failures 0
+## cut
+
+BEGIN { $x = 1; }
+END { $x = 1; }
+CHECK { $x = 1; }
+INIT { $x = 1; }
+UNITCHECK { $x = 1; }
+
+#-----------------------------------------------------------------------------
+
+## name Failure, cuddled colon
+## failures 5
+## cut
+
+BEGIN: { $x = 1; }
+END: { $x = 1; }
+CHECK: { $x = 1; }
+INIT: { $x = 1; }
+UNITCHECK: { $x = 1; }
+
+#-----------------------------------------------------------------------------
+
+## name Failure, uncuddled colon
+## failures 5
+## cut
+
+BEGIN : { $x = 1; }
+END : { $x = 1; }
+CHECK : { $x = 1; }
+INIT : { $x = 1; }
+UNITCHECK : { $x = 1; }
+
+#-----------------------------------------------------------------------------
+
+##############################################################################
+# $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/ControlStructures/ProhibitLabelsWithSpecialBlockNames.run $
+# $Date: 2008-05-13 22:08:28 -0500 (Tue, 13 May 2008) $
+# $Author: clonezone $
+# $Revision: 2337 $
+##############################################################################
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 78
+# indent-tabs-mode: nil
+# c-indentation-style: bsd
+# End:
+# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :