1#!/usr/bin/perl
2# 01-parents_too.t
3# Copyright (c) 2006 Jonathan Rockway <jrockway@cpan.org>
4
5use Test::More tests => 2;
6use Directory::Scratch;
7use strict;
8use warnings;
9
10my $t = Directory::Scratch->new;
11
12ok($t->touch('foo/bar/baz/bat/yay', qw(foo bar baz bat yay)));
13is_deeply([$t->read('foo/bar/baz/bat/yay')], [qw(foo bar baz bat yay)]);
14