ACIL FM

Nama	Ukuran	Aksi
data	-	Open
fakelib	-	Open
lib	-	Open
00-report-prereqs.dd	4.52 MB	View DL Edit
00-report-prereqs.t	5.88 MB	View DL Edit
basename.t	880 B	View DL Edit
basic.t	9.06 MB	View DL Edit
children.t	1.24 MB	View DL Edit
chmod.t	1020 B	View DL Edit
digest.t	1.25 MB	View DL Edit
exception.t	1.26 MB	View DL Edit
exports.t	674 B	View DL Edit
filesystem.t	13.82 MB	View DL Edit
has_same_bytes.t	2.04 MB	View DL Edit
input_output.t	18.31 MB	View DL Edit
input_output_no_PU_UU.t	579 B	View DL Edit
input_output_no_UU.t	566 B	View DL Edit
locking.t	1.37 MB	View DL Edit
mkdir.t	1008 B	View DL Edit
mkpath.t	947 B	View DL Edit
mutable_tree_while_iterating.t	1.43 MB	View DL Edit
normalize.t	898 B	View DL Edit
overloading.t	534 B	View DL Edit
parent.t	3.06 MB	View DL Edit
README	214 B	View DL Edit
recurse.t	3.89 MB	View DL Edit
rel-abs.t	7.88 MB	View DL Edit
sig_die.t	533 B	View DL Edit
size.t	4.76 MB	View DL Edit
subsumes.t	3.16 MB	View DL Edit
symlinks.t	1.51 MB	View DL Edit
temp.t	4.99 MB	View DL Edit
visit.t	447 B	View DL Edit
zz-atomic.t	922 B	View DL Edit
zzz-spec.t	6.62 MB	View DL Edit

Edit file: /home/.cpan/build/Path-Tiny-0.146-0/t/temp.t

use 5.008001;
use strict;
use warnings;
use Cwd; # hack around https://bugs.activestate.com/show_bug.cgi?id=104767
use Test::More 0.96;
use File::Spec::Unix;

use lib 't/lib';
use TestUtils qw/exception tempd/;

use Path::Tiny;

subtest "tempdir" => sub {
    my $tempdir = Path::Tiny->tempdir;
    isa_ok( $tempdir->cached_temp, 'File::Temp::Dir', "cached_temp" );
    my $string = $tempdir->stringify;
    ok( $tempdir->exists, "tempdir exists" );
    undef $tempdir;
    ok( !-e $string, "tempdir destroyed" );
};

subtest "tempfile" => sub {
    my $tempfile = Path::Tiny->tempfile;
    isa_ok( $tempfile->cached_temp, 'File::Temp', "cached_temp" );
    my $string = $tempfile->stringify;
    ok( $tempfile->exists, "tempfile exists" );
    undef $tempfile;
    ok( !-e $string, "tempfile destroyed" );
};

subtest "tempdir w/ TEMPLATE" => sub {
    my $tempdir = Path::Tiny->tempdir( TEMPLATE => "helloXXXXX" );
    like( $tempdir, qr/hello/, "found template" );
};

subtest "tempfile w/ TEMPLATE" => sub {
    my $tempfile = Path::Tiny->tempfile( TEMPLATE => "helloXXXXX" );
    like( $tempfile, qr/hello/, "found template" );
};

subtest "tempdir w/ leading template" => sub {
    my $tempdir = Path::Tiny->tempdir("helloXXXXX");
    like( $tempdir, qr/hello/, "found template" );
};

subtest "tempfile w/ leading template" => sub {
    my $tempfile = Path::Tiny->tempfile("helloXXXXX");
    like( $tempfile, qr/hello/, "found template" );
};

subtest "tempfile handle" => sub {
    my $tempfile = Path::Tiny->tempfile;
    my $fh       = $tempfile->filehandle;
    is( ref $tempfile->[5],    'File::Temp', "cached File::Temp object" );
    is( fileno $tempfile->[5], undef,        "cached handle is closed" );
};

subtest "survives absolute" => sub {
    my $wd = tempd;
    my $tempdir = Path::Tiny->tempdir( DIR => '.' )->absolute;
    ok( -d $tempdir, "exists" );
};

subtest "realpath option" => sub {
    my $wd = tempd;

my $tempdir = Path::Tiny->tempdir( { realpath => 1 }, DIR => '.' );
    is( $tempdir, $tempdir->realpath, "tempdir has realpath" );

my $tempfile = Path::Tiny->tempfile( { realpath => 1 }, DIR => '.' );
    is( $tempfile, $tempfile->realpath, "tempfile has realpath" );
};

subtest "cached_temp on non tempfile" => sub {
    my $path = path("abcdefg");
    eval { $path->cached_temp };
    like( $@, qr/has no cached File::Temp object/, "cached_temp error message" );
};

subtest "tempdir w/ leading template as instance method" => sub {
    my $wd = tempd;

my $basedir = Path::Tiny->cwd;
    my $repodir = $basedir->child('whatever');
    $repodir->remove_tree if $repodir->exists;
    $repodir->mkdir;
    my $tempdir = $repodir->tempdir("helloXXXXX");
    like( $tempdir, qr/hello/, "found template" );
    ok( scalar($repodir->children) > 0, 'something was created' );
    my $basename = $tempdir->basename;
    ok( -d $repodir->child($basename), "right directory exists" );
};

subtest "tempdir w/ leading template as instance method" => sub {
    my $wd = tempd;

subtest "tempfile w/out leading template as instance method" => sub {
    my $wd = tempd;

my $basedir = Path::Tiny->cwd;
    my $repodir = $basedir->child('whatever');
    $repodir->remove_tree if $repodir->exists;
    $repodir->mkdir;
    my $tempfile = $repodir->tempfile( TEMPLATE => "helloXXXXX" );
    like( $tempfile, qr/hello/, "found template" );
    ok( scalar($repodir->children) > 0, 'something was created' );
    my $basename = $tempfile->basename;
    ok( -e $repodir->child($basename), "right file exists" );
};

subtest "tempfile w/out leading template as instance method" => sub {
    my $wd = tempd;

my $basedir = Path::Tiny->cwd;
    my $repodir = $basedir->child('whatever');
    $repodir->remove_tree if $repodir->exists;
    $repodir->mkdir;
    my $tempfile = $repodir->tempfile( TEMPLATE => "helloXXXXX");
    like( $tempfile, qr/hello/, "found template" );
    ok( scalar($repodir->children) > 0, 'something was created' );
    my $basename = $tempfile->basename;
    ok( -e $repodir->child($basename), "right file exists" );
};

subtest "tempfile, instance method, overridden DIR" => sub {
    my $wd = tempd;

my $basedir = Path::Tiny->cwd;
    my $repodir = $basedir->child('whatever');
    $repodir->remove_tree if $repodir->exists;
    $repodir->mkdir;
    my $bd = $basedir->stringify;
    my $tempfile = $repodir->tempfile("helloXXXXX", DIR => $bd);
    ok( $tempfile->parent ne $bd ), "DIR is overridden";
};

done_testing;
#
# This file is part of Path-Tiny
#
# This software is Copyright (c) 2014 by David Golden.
#
# This is free software, licensed under:
#
#   The Apache License, Version 2.0, January 2004
#

Batal