On Saturday 22 December 2007 12:44:12 David Golden wrote:
> On Dec 22, 2007 2:12 PM, chromatic <[EMAIL PROTECTED]> wrote:
> > I'm not sure how to write a test for "Tester's installation of Perl is
> > fatally broken and can't actually install anything."
> Oh, come on. This is Perl, after all.
>
> # Top of Makefile.PL
> if ( $^X =~ /\s/ ) {
> print STDERR "Can't install: '$^X' has spaces in the path";
> exit 0; # no Makefile created, exit 0 avoids FAIL report
> }
>
> If you really want robustness, perhaps:
>
> use File::Spec;
> use Cwd qw/cwd/;
> if ( grep { /\s/ } ($^X, File::Spec->tmpdir(), cwd) ) {
> # etc
> }
Let me rephrase then.
I feel dirty writing tests just to trip up testers who can't set up working
testing environments.
I call those "non-functional tests", because they have very little to do with
things that actually matter in my software.
-- c
