Permalink
Browse files

expand test suite slightly

  • Loading branch information...
doherty committed Apr 21, 2011
1 parent f8e0391 commit f76b93673548f64d95b0f413f6a9c8fd7618d9d5
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
@@ -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
@@ -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
@@ -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;

0 comments on commit f76b936

Please sign in to comment.