Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
lib	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
00-load.t	127 B	-r--r--r--	2014-12-27 11:48
Fatal.t	950 B	-r--r--r--	2014-12-27 11:48
args.t	1.32 KB	-r--r--r--	2014-12-27 11:48
autodie.t	2.51 KB	-r--r--r--	2014-12-27 11:48
autodie_skippy.pm	363 B	-r--r--r--	2014-12-27 11:48
autodie_test_module.pm	879 B	-r--r--r--	2014-12-27 11:48
backcompat.t	584 B	-r--r--r--	2014-12-27 11:48
basic_exceptions.t	1.4 KB	-r--r--r--	2014-12-27 11:48
binmode.t	682 B	-r--r--r--	2014-12-27 11:48
blog_hints.t	707 B	-r--r--r--	2014-12-27 11:48
caller.t	743 B	-r--r--r--	2014-12-27 11:48
chmod.t	529 B	-rwxr-xr-x	2014-12-27 11:48
chown.t	764 B	-r--r--r--	2014-12-27 11:48
context.t	1.31 KB	-r--r--r--	2014-12-27 11:48
context_lexical.t	1.61 KB	-r--r--r--	2014-12-27 11:48
core-trampoline-slurp.t	650 B	-r--r--r--	2014-12-27 11:48
crickey.t	667 B	-r--r--r--	2014-12-27 11:48
dbmopen.t	826 B	-r--r--r--	2014-12-27 11:48
eval_error.t	547 B	-r--r--r--	2014-12-27 11:48
exception_class.t	1.35 KB	-r--r--r--	2014-12-27 11:48
exceptions.t	1.27 KB	-r--r--r--	2014-12-27 11:48
exec.t	324 B	-r--r--r--	2014-12-27 11:48
filehandles.t	1.08 KB	-r--r--r--	2014-12-27 11:48
fileno.t	740 B	-r--r--r--	2014-12-27 11:48
flock.t	2.69 KB	-r--r--r--	2014-12-27 11:48
format-clobber.t	1.98 KB	-r--r--r--	2014-12-27 11:48
hints.t	3.86 KB	-r--r--r--	2014-12-27 11:48
hints_insist.t	643 B	-r--r--r--	2014-12-27 11:48
hints_pod_examples.t	5.29 KB	-r--r--r--	2014-12-27 11:48
hints_provider_does.t	543 B	-r--r--r--	2014-12-27 11:48
hints_provider_easy_does_it.t	551 B	-r--r--r--	2014-12-27 11:48
hints_provider_isa.t	542 B	-r--r--r--	2014-12-27 11:48
internal-backcompat.t	2.8 KB	-r--r--r--	2014-12-27 11:48
internal.t	866 B	-r--r--r--	2014-12-27 11:48
kill.t	650 B	-r--r--r--	2014-12-27 11:48
lethal.t	466 B	-r--r--r--	2014-12-27 11:48
mkdir.t	1.81 KB	-r--r--r--	2014-12-27 11:48
no_carp.t	195 B	-r--r--r--	2014-12-27 11:48
open.t	2.53 KB	-r--r--r--	2014-12-27 11:48
recv.t	1.53 KB	-r--r--r--	2014-12-27 11:48
repeat.t	382 B	-r--r--r--	2014-12-27 11:48
rt-74246.t	301 B	-r--r--r--	2014-12-27 11:48
scope_leak.t	2.33 KB	-r--r--r--	2014-12-27 11:49
skip.t	631 B	-r--r--r--	2014-12-27 11:48
string-eval-basic.t	624 B	-r--r--r--	2014-12-27 11:48
string-eval-leak.t	820 B	-r--r--r--	2014-12-27 11:48
sysopen.t	450 B	-r--r--r--	2014-12-27 11:48
touch_me	57 B	-r--r--r--	2014-12-27 11:48
truncate.t	3.35 KB	-r--r--r--	2014-12-27 11:49
truncate_me	0 B	-rw-r--r--	2016-10-10 18:14
unlink.t	1.64 KB	-r--r--r--	2014-12-27 11:48
user-context.t	1.27 KB	-r--r--r--	2014-12-27 11:48
usersub.t	1.28 KB	-r--r--r--	2014-12-27 11:48
utf8_open.t	3.04 KB	-r--r--r--	2014-12-27 11:48
utime.t	840 B	-r--r--r--	2014-12-27 11:48
version.t	626 B	-r--r--r--	2014-12-27 11:48
version_tag.t	2.06 KB	-r--r--r--	2014-12-27 11:48

Rename

#!/usr/bin/perl -w

# Test that open still honors the open pragma.

use strict;
use warnings;

use autodie;

use Fcntl;
use File::Temp;

use Test::More;

if( $] < '5.01000' ) {
    plan skip_all => "autodie does not honor the open pragma before 5.10";
}
else {
    plan "no_plan";
}

# Test with an open pragma on
{
    use open IN => ':encoding(utf8)', OUT => ':utf8';

# Test the standard handles and all newly opened handles are utf8
    my $file = File::Temp->new;
    my $txt = "autodie is MËTÁŁ";

# open for writing
    {
        open my $fh, ">", $file;

my @layers = PerlIO::get_layers($fh);
        ok( (grep { $_ eq 'utf8' } @layers), "open write honors open pragma" ) or diag join ", ", @layers;

print $fh $txt;
        close $fh;
    }

# open for reading, explicit
    {
        open my $fh, "<", $file;

my @layers = PerlIO::get_layers($fh);
        ok( (grep { $_ eq 'encoding(utf8)' } @layers), "open read honors open pragma" ) or diag join ", ", @layers;

is join("\n", <$fh>), $txt;
    }

# open for reading, implicit
    {
        open my($fh), $file;

my @layers = PerlIO::get_layers($fh);
        ok( (grep { $_ eq 'encoding(utf8)' } @layers), "open implicit read honors open pragma" ) or diag join ", ", @layers;

is join("\n", <$fh>), $txt;
    }

# open for read/write
    {
        open my $fh, "+>", $file;

my @layers = PerlIO::get_layers($fh);
        ok( (grep { $_ eq 'utf8' } @layers), "open implicit read honors open pragma" ) or diag join ", ", @layers;
    }

# open for append
    {
        open my $fh, ">>", $file;

my @layers = PerlIO::get_layers($fh);
        ok( (grep { $_ eq 'utf8' } @layers), "open implicit read honors open pragma" ) or diag join ", ", @layers;
    }
}

# Test without open pragma
{
    my $file = File::Temp->new;
    open my $fh, ">", $file;

my @layers = PerlIO::get_layers($fh);
    ok( grep(!/utf8/, @layers), "open pragma remains lexical" ) or diag join ", ", @layers;
}

# sysopen
{
    use open IN => ':encoding(utf8)', OUT => ':utf8';

# Test the standard handles and all newly opened handles are utf8
    my $file = File::Temp->new;
    my $txt = "autodie is MËTÁŁ";

# open for writing only
    {
        sysopen my $fh, $file, O_CREAT|O_TRUNC|O_WRONLY;

my @layers = PerlIO::get_layers($fh);
        ok( (grep { $_ eq 'utf8' } @layers), "open write honors open pragma" ) or diag join ", ", @layers;

print $fh $txt;
        close $fh;
    }

# open for reading only
    {
        sysopen my $fh, $file, O_RDONLY;

my @layers = PerlIO::get_layers($fh);
        ok( (grep { $_ eq 'encoding(utf8)' } @layers), "open read honors open pragma" ) or diag join ", ", @layers;

is join("\n", <$fh>), $txt;
    }

# open for reading and writing
    {
        sysopen my $fh, $file, O_RDWR;

my @layers = PerlIO::get_layers($fh);
        ok( (grep { $_ eq 'utf8' } @layers), "open read/write honors open write pragma" ) or diag join ", ", @layers;

is join("\n", <$fh>), $txt;
    }
}