concat2.t: Unskip an encoding.pm test
authorFather Chrysostomos <sprout@cpan.org>
Sat, 15 Jun 2013 14:34:14 +0000 (07:34 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 18 Jun 2013 13:22:07 +0000 (06:22 -0700)
We should still test that it doesn’t crash, even if it
is deprecated.

t/op/concat2.t

index cc6a541..9dfcc5b 100644 (file)
@@ -15,8 +15,8 @@ plan 3;
 
 SKIP: {
 skip_if_miniperl("no dynamic loading on miniperl, no Encode", 1);
-skip('encoding pragma is deprecated', 1) if $] >= 5.017009;
 fresh_perl_is <<'end', "ok\n", {},
+    no warnings 'deprecated';
     use encoding 'utf8';
     map { "a" . $a } ((1)x5000);
     print "ok\n";