02_help.t

来自「Verilog Parser in Perl」· T 代码 · 共 31 行

#!/usr/bin/perl -w
# DESCRIPTION: Perl ExtUtils: Type 'make test' to test this package
#
# Copyright 2007-2009 by Wilson Snyder.  This program is free software;
# you can redistribute it and/or modify it under the terms of either the GNU
# Lesser General Public License or the Perl Artistic License.

use strict;
use Test;

BEGIN { require "t/test_utils.pl"; }
my @execs = glob ("blib/script/[a-z]*");
plan tests => (3 * ($#execs+1));

foreach my $exe (@execs) {
    print "Doc test of: $exe\n";
    ok (-e $exe);
    my $help = `$PERL $exe --help 2>&1`;
    if ($exe =~ /vsplitmodule/) {
	skip("vsplitmodule is only example (harmless)",1);
    } else {
	ok ($help =~ /DISTRIBUTION/);
    }
    $help = `$PERL $exe --version 2>&1`;
    if ($exe =~ /vsplitmodule/) {
	skip("vsplitmodule is only example (harmless)",1);
    } else {
	ok ($help =~ /Version.*[0-9]/);
    }
}