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