UnTODO passing tests.

[p5sagit/Devel-Declare.git] / t / quote.t

diff --git a/t/quote.t b/t/quote.t
index 2f2e930..2a8c101 100644 (file)
--- a/t/quote.t
+++ b/t/quote.t
@@ -6,27 +6,22 @@ use Devel::Declare 'method' => sub {};
 
 sub test_eval;
 
-TODO: {
-    local $TODO = "dd_ck_const doesn't special-case ops created in quotelike contexts";
-    test_eval 'qr/method/';
-    test_eval 'qq/method/';
-    test_eval '/method/';
-    test_eval 's/method//';
-    test_eval '`method`';
-    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;
+test_eval 'qq/method/';
+test_eval '`method`';
+test_eval 'qx/method/';
+test_eval 'qr/method/';
+test_eval '/method/';
+test_eval 's/method//';
+test_eval 'tr/method/METHOD/';
+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;