Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • Similar (Score:5, Interesting)

    by Ovid (2709) on 2003.04.29 12:18 (#19578) Homepage Journal

    For some of our longer running tests at work, I check for an environment variable named "FAST_TESTS" and skip long running tests using that. The start of my test_all program looks like this (and takes a -f as an argument for fast tests)

    #!/usr/bin/perl -w
    use strict;
    use Test::Harness;
    use Getopt::Long;
    use Pod::Usage;

    GetOptions(
        'help|?'    => sub { pod2usage(-verbose => 2); exit },
        'verbose!'  => \$Test::Harness::verbose,
        'quiet'     => sub { $Test::Harness::verbose = 0 },
        'fast'      => \$ENV{FAST_TESTS},
        'include=s' => \my @include,
        'exclude=s' => \my @exclude
    );