This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/uni/parser.t: Make a test more robust
authorFather Chrysostomos <sprout@cpan.org>
Sat, 6 Sep 2014 04:58:31 +0000 (21:58 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 6 Sep 2014 23:26:28 +0000 (16:26 -0700)
It was checking that *tèst returns a true value, which is somewhat
redundant.  I think ‘is’ was meant, rather than ‘ok’, considering what
was the test name (*main::tèst).

t/uni/parser.t

index 7b958af..2437e3d 100644 (file)
@@ -13,7 +13,7 @@ plan (tests => 52);
 use utf8;
 use open qw( :utf8 :std );
 
-ok *tèst, "*main::tèst", "sanity check.";
+is *tèst, "*main::tèst", "sanity check.";
 ok $::{"tèst"}, "gets the right glob in the stash.";
 
 my $glob_by_sub = sub { *main::method }->();