#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 2;
use Directory::Scratch;
my $tmp = Directory::Scratch->new;
my $file = $tmp->touch('foo', 'foo bar baz');
my $stats = $tmp->stat('foo');
isa_ok $stats, 'File::stat', '$stats';
my @stats = $tmp->stat('foo');
ok scalar @stats > 10, 'got an array, not an object';