This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade File::Path from version 2.11 to 2.12
[perl5.git] / cpan / File-Path / t / Path_win32.t
1 use strict;
2 use Test::More;
3 use lib 't/';
4 use FilePathTest;
5 use File::Path;
6 use Cwd;
7 use File::Spec::Functions;
8
9 plan skip_all  => 'not win32' unless $^O eq 'MSWin32';
10 plan tests     => 3;
11
12 my $tmp_base = catdir(
13     curdir(),
14     sprintf( 'test-%x-%x-%x', time, $$, rand(99999) ),
15 );
16
17 my $UNC_path = catdir(getcwd(), $tmp_base, 'uncdir');
18 #dont compute a SMB path with $ENV{COMPUTERNAME}, since SMB may be turned off
19 #firewalled, disabled, blocked, or no NICs are on and there the PC has no
20 #working TCPIP stack, \\?\ will always work
21 $UNC_path = '\\\\?\\'.$UNC_path;
22
23 is(mkpath($UNC_path), 2, 'mkpath on Win32 UNC path returns made 2 dir - base and uncdir');
24
25 ok(-d $UNC_path, 'mkpath on Win32 UNC path made dir');
26
27 my $removed = rmtree($UNC_path);
28
29 cmp_ok($removed, '>', 0, "removed $removed entries from $UNC_path");