Permalink
Browse files

[t/spec] fix hyper as-latin-1 tests

git-svn-id: http://svn.pugscode.org/pugs@27562 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent b6a266f commit 5adc2df821a4b632ae68b422934f253d51ff0bc4 moritz committed Jul 14, 2009
Showing with 13 additions and 1 deletion.
  1. +13 −1 S03-operators/hyper.t
View
@@ -8,7 +8,7 @@ use Test;
=end pod
-plan 90;
+plan 91;
# L<S03/Hyper operators>
# binary infix
@@ -374,3 +374,15 @@ my @e;
is %r<a>, 6, 'hash - correct result from <<+<<';
is %r<b>, 8, 'hash - correct result from <<+<<';
}
+
+
+# test non-UTF-8 input
+#?pugs skip 'eval(Buf)'
+#?rakudo skip 'eval(Buf)'
+{
+ my $t = '(1, 2, 3) »+« (4, 3, 2)';
+ ok !eval($t.encode('ISO-8859-1')),
+ 'Latin-1 »+« without pre-declaration is an error';
+}
+
+# vim: ft=perl6

0 comments on commit 5adc2df

Please sign in to comment.