1#!/usr/bin/perl 2# win32.t 3# Copyright (c) 2006 Jonathan Rockway <jrockway@cpan.org> 4 5use Test::More tests => 3; 6use Directory::Scratch qw(Win32); 7use Path::Class; 8 9my $tmp = Directory::Scratch->new; 10ok($tmp, 'created $tmp'); 11my $file = $tmp->touch("foo\\bar\\baz"); 12ok(-e $file, "$file (foo\\bar\\baz) exists"); 13my @files = sort $tmp->ls; 14is_deeply(\@files, [sort (dir('foo'), dir(qw'foo bar'), dir(qw'foo bar baz'))]); 15 16