#!/usr/bin/perl
# bad_files.t
# Copyright (c) 2006 Jonathan Rockway <jrockway@cpan.org>
use Test::More tests => 1;
use File::Attributes qw(list_attributes);
eval {
list_attributes('/foo/bar/this is made up/i hope this doesnt exist');
};
ok($@, 'looking up attributes on a nonexistent file fails');