[Bast-commits] r5866 - Devel-Declare/1.000/trunk/t

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-04-09 01:09:12 +0100 (Thu, 09 Apr 2009)
New Revision: 5866

Modified:
   Devel-Declare/1.000/trunk/t/quote.t
Log:
UnTODO passing tests.

Modified: Devel-Declare/1.000/trunk/t/quote.t
===================================================================
--- Devel-Declare/1.000/trunk/t/quote.t	2009-04-09 00:07:57 UTC (rev 5865)
+++ Devel-Declare/1.000/trunk/t/quote.t	2009-04-09 00:09:12 UTC (rev 5866)
@@ -16,17 +16,18 @@
     test_eval 'qx/method/';
     test_eval 'tr/method/METHOD/';
 
-    # these ones work OK
-    test_eval 'q/method/';
-    test_eval "'method'";
-    test_eval '"method"';
-    test_eval 'qw/method/';
-    test_eval '<<method;
+}
+
+# these ones work OK
+test_eval 'q/method/';
+test_eval "'method'";
+test_eval '"method"';
+test_eval 'qw/method/';
+test_eval '<<method;
 tum ti tum
 method';
-    test_eval 'no warnings "reserved"; open method, "</dev/null"';
-    test_eval '<method>';
-}
+test_eval 'no warnings "reserved"; open method, "</dev/null"';
+test_eval '<method>';
 
 sub test_eval {
     my $what = shift;