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