From: Florian Ragwitz Date: Thu, 9 Apr 2009 00:54:43 +0000 (+0000) Subject: UnTODO passing tests. X-Git-Tag: 0.005000~10 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=612c4e6106f981dd3c2b54c7978364ee8795fd49;hp=f2a41aa1d0e8ad5572944c590b90de2d70a39713;p=p5sagit%2FDevel-Declare.git UnTODO passing tests. --- diff --git a/t/quote.t b/t/quote.t index 94baca4..2a8c101 100644 --- a/t/quote.t +++ b/t/quote.t @@ -6,15 +6,9 @@ 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 'qq/method/'; - test_eval '`method`'; - test_eval 'qx/method/'; - -} - -# these ones work OK +test_eval 'qq/method/'; +test_eval '`method`'; +test_eval 'qx/method/'; test_eval 'qr/method/'; test_eval '/method/'; test_eval 's/method//';