Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
Functions.t	730 B	-r--r--r--	2014-12-27 11:48
Spec-taint.t	386 B	-r--r--r--	2014-12-27 11:48
Spec.t	52.04 KB	-r--r--r--	2014-12-27 11:48
crossplatform.t	5.62 KB	-r--r--r--	2014-12-27 11:48
cwd.t	8.75 KB	-r--r--r--	2014-12-27 11:48
rel2abs2rel.t	2.07 KB	-r--r--r--	2014-12-27 11:48
taint.t	813 B	-r--r--r--	2014-12-27 11:48
tmpdir.t	1.52 KB	-r--r--r--	2014-12-27 11:48
win32.t	607 B	-r--r--r--	2014-12-27 11:48

Rename

use strict;
use Test::More tests => 8;

# Grab all of the plain routines from File::Spec
use File::Spec;
use File::Spec::Win32;

require_ok($_) foreach qw(File::Spec File::Spec::Win32);

if ($^O eq 'VMS') {
    # hack:
    # Need to cause the %ENV to get populated or you only get the builtins at
    # first, and then something else can cause the hash to get populated.
    my %look_env = %ENV;
}
my $num_keys = keys %ENV;
File::Spec->tmpdir;
is scalar keys %ENV, $num_keys, "tmpdir() shouldn't change the contents of %ENV";

SKIP: {
    skip("Can't make list assignment to %ENV on this system", 1)
	if $^O eq 'VMS';

local %ENV;
    File::Spec::Win32->tmpdir;
    is(scalar keys %ENV, 0, "Win32->tmpdir() shouldn't change the contents of %ENV");
}

File::Spec::Win32->tmpdir;
is(scalar keys %ENV, $num_keys, "Win32->tmpdir() shouldn't change the contents of %ENV");

# Changing tmpdir dynamically
for ('File::Spec', "File::Spec::Win32") {
  SKIP: {
    skip('sys$scratch: takes precedence over env on vms', 1)
	if $^O eq 'VMS';
    local $ENV{TMPDIR} = $_->catfile($_->curdir, 'lib');
    -d $ENV{TMPDIR} && -w _
       or skip "Can't create usable TMPDIR env var", 1;
    my $tmpdir1 = $_->tmpdir;
    $ENV{TMPDIR} = $_->catfile($_->curdir, 't');
    -d $ENV{TMPDIR} && -w _
       or skip "Can't create usable TMPDIR env var", 1;
    my $tmpdir2 = $_->tmpdir;
    isn't $tmpdir2, $tmpdir1, "$_->tmpdir works with changing env";
  }
}

ok(
    File::Spec->file_name_is_absolute(File::Spec->tmpdir()),
    "tmpdir() always returns an absolute path"
);