view release on metacpan or  search on metacpan

t/additional_tests/spar_unix.test  view on Meta::CPAN

This tests the spar utility that is only used for packaging tests.
Failure has nothing to do with makepp.
###	13	444	1120166745	1501106800	is_relevant.pl
# This tests spar itself, and not any makepp functionality.  The test is
# integrated here because spar is hosted in the test section of makepp (for
# which it was originally conceived.)

# FreeBSD 4.10 and Darwin 5.5 allow truncating a write protected file :-(
die if open my $fh, '>', 'd.spar';

$] ge '5.01' and
# Can we chmod on this fs?
((stat 'd.spar')[2] & 0777) == 0444 and
  chmod 0650, 'd.spar' and
# chmod fails with success on Samba.
  ((stat 'd.spar')[2] & 0777) == 0650;
###	28	755	1079987495	1079987351	makepp_test_script
#!/bin/sh -x

unset LANG LC_MESSAGES LC_ALL
PATH=..:../..:$PATH; export PATH