| Subject: | Adding tests to check utf8 works |
I was curious if utf8 works. It does!
This is an additional test suite
#!/usr/bin/perl -w
use Test::More tests => 2;
use IO::Statistics;
use IO::Handle;
my $fh = IO::Handle->new_from_fd (fileno (STDOUT), 'w');
my $write = 0;
IO::Statistics->count (undef, \$write, $fh);
select $fh;
print "l\x{e9}on\n";
is ($write, 5);
binmode select, "utf8";
print "l\x{e9}on\n";
is ($write, 11);