1 ################################################################################
3 # mktests.PL -- generate test files for Devel::PPPort
5 ################################################################################
7 # Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz.
8 # Version 2.x, Copyright (C) 2001, Paul Marquess.
9 # Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
11 # This program is free software; you can redistribute it and/or
12 # modify it under the same terms as Perl itself.
14 ################################################################################
18 require "./parts/ppptools.pl";
20 my $template = do { local $/; <DATA> };
29 for $file (all_files_in_dir('parts/inc')) {
30 my($testfile) = $file =~ /(\w+)\.?$/; # VMS has a trailing dot
31 $testfile = "t/$testfile.t";
33 my $spec = parse_partspec($file);
36 if (exists $spec->{tests}) {
37 exists $spec->{OPTIONS}{tests} &&
38 exists $spec->{OPTIONS}{tests}{plan}
39 or die "No plan for tests in $file\n";
41 print "generating $testfile\n";
44 $tmpl =~ s/__SOURCE__/$file/mg;
45 $tmpl =~ s/__PLAN__/$spec->{OPTIONS}{tests}{plan}/mg;
46 $tmpl =~ s/^__TESTS__$/$spec->{tests}/mg;
48 open FH, ">$testfile" or die "$testfile: $!\n";
52 push @tests, $testfile;
60 ################################################################################
62 # !!!!! Do NOT edit this file directly! !!!!!
64 # Edit mktests.PL and/or __SOURCE__ instead.
66 # This file was automatically generated from the definition files in the
67 # parts/inc/ subdirectory by mktests.PL. To learn more about how all this
68 # works, please read the F<HACKERS> file that came with this distribution.
70 ################################################################################
73 if ($ENV{'PERL_CORE'}) {
75 @INC = ('../lib', '../ext/Devel-PPPort/t') if -d '../lib' && -d '../ext';
76 require Config; import Config;
78 if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
79 print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
89 require 'testutil.pl' if $@;
94 plan(tests => __PLAN__);
102 package Devel::PPPort;
105 @ISA = qw(DynaLoader);
106 bootstrap Devel::PPPort;