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