Tests for [perl #116322]
authorKarl Williamson <public@khwilliamson.com>
Sun, 17 Feb 2013 21:59:39 +0000 (14:59 -0700)
committerKarl Williamson <public@khwilliamson.com>
Tue, 19 Feb 2013 04:32:42 +0000 (21:32 -0700)
dist/IO/t/io_utf8.t

index 53c209d..339e278 100644 (file)
@@ -9,7 +9,9 @@ BEGIN {
 
 require($ENV{PERL_CORE} ? "../../t/test.pl" : "./t/test.pl");
 
-plan(tests => 5);
+my $buf_size_count = 8200;      # Above default buffer size of 8192
+
+plan(tests => 5 + 2 * $buf_size_count);
 
 my $io;
 
@@ -24,6 +26,15 @@ undef $io;
 $io = IO::File->new;
 ok($io->open("io_utf8", "<:utf8"), "open <:utf8");
 is(ord(<$io>), 256, "readline chr(256)");
+
+for my $i (0 .. $buf_size_count - 1) {
+    is($io->ungetc($i), $i, "ungetc of $i returns itself");
+}
+
+for (my $i = $buf_size_count - 1; $i >= 0; $i--) {
+    is(ord($io->getc()), $i, "getc gets back $i");
+}
+
 undef $io;
 
 END {