X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fquote.t;h=a173dc2f66d6bdecde7a20ea044360f5a9dd674d;hb=0c232d04c287dedaf3cbc2cfbae8a6fb5a0bcb56;hp=2f2e930cec42edab88feadf05bc5321a10a9327f;hpb=c0ebfc1ec2da649a6158fc7563d186b80edbbd3a;p=p5sagit%2FDevel-Declare.git

diff --git a/t/quote.t b/t/quote.t
index 2f2e930..a173dc2 100644
--- a/t/quote.t
+++ b/t/quote.t
@@ -16,17 +16,18 @@ TODO: {
     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;