Packlist.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
BEGIN {
chdir 't' if -d 't';
}
else {
}
}
chdir 't';
# new calls tie()
# test FIRSTKEY and NEXTKEY
SKIP: {
# get the first and second key
# now get a couple of extra keys, to mess with the hash iterator
my $i = 0;
last if $i++;
}
# finally, see if it really can get the first key again
'FIRSTKEY() should be consistent' );
'and NEXTKEY() should also be consistent' );
}
# DESTROY does nothing...
# write is a little more complicated
my $file_is_ready = $@ ? 0 : 1;
local *IN;
SKIP: {
# set this file to read-only
SKIP: {
}
# and some test data to be read
single => 1,
hash => {
},
'/./abc' => '',
};
}
# and more read() tests
SKIP: {
# give validate a valid and an invalid file to find
eplist => 1,
};
'validate() should find missing files' );
'validate() should remove missing files when prompted' );
# one more new() test, to see if it calls read() successfully
}
# packlist_file, $pl should be set from write test
'packlist_file() should fetch packlist from passed hash' );
'packlist_file() should fetch packlist from ExtUtils::Packlist object' );
END {
}