#!/usr/bin/perl -w -CSD

use strict;
use TestUnicodeModule;

print "unicode pragma in test-unicode: " . ${^UNICODE} . "\n";

open (F, 'unicodetest');
my $out = <F>;
close (F);

print "out: " . $out . "\n";
print "out is_utf8: " . ( utf8::is_utf8($out) ? 1 : 0 ) . "\n";
print "out length: " . length($out) . "\n";