FileInfo.t

use Test::More tests => 5;

BEGIN { use_ok('Donald::FileInfo') };

my $stat=Donald::FileInfo->lstat($0);
ok($stat,'lstat');

my @f=$stat->export_index;
ok(@f==7,'export');

my $stat2=Donald::FileInfo->import_index(@f);
ok($stat2,'import');

my $strange=join('',map(chr,0..255));
my $out=Donald::FileInfo::fn_unescape(Donald::FileInfo::fn_escape($strange));
ok ($strange eq $out,'escape/unescape');