Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

expand test suite slightly

  • Loading branch information...
commit f76b93673548f64d95b0f413f6a9c8fd7618d9d5 1 parent f8e0391
@doherty authored
Showing with 18 additions and 1 deletion.
  1. +1 −0  Changes
  2. +16 −0 t/lexical-again.t
  3. +1 −1  t/lexical.t
View
1  Changes
@@ -2,6 +2,7 @@ Revision history for Perl module {{$dist->name}}
{{$NEXT}}
* Add unimport()
+ * Expand test suite slightly
0.001 2011-04-20
* Split code out of perl5i
View
16 t/lexical-again.t
@@ -0,0 +1,16 @@
+#!perl
+# utf8::all should have lexical effect
+
+use Test::More tests => 2;
+
+BEGIN {
+ @ARGV = qw(føø bar bāz);
+}
+
+use utf8::all;
+
+is_deeply \@ARGV, [qw(føø bar bāz)];
+{
+ no utf8::all;
+ is_deeply \@ARGV, ["f\x{f8}\x{f8}", 'bar', "b\x{101}z"];
+}
View
2  t/lexical.t
@@ -11,7 +11,7 @@ BEGIN {
# It shouldn't effect the rest of the program.
{ use utf8::all }
-is_deeply \@ARGV, ["f\x{f8}\x{f8}", 'bar', "b\x{101}z"] or diag explain \@ARGV;
+is_deeply \@ARGV, ["f\x{f8}\x{f8}", 'bar', "b\x{101}z"];
{ # Bring utf8::all back into effect
use utf8::all;
Please sign in to comment.
Something went wrong with that request. Please try again.