describe parallel testing in perlhack.pod
[perl.git] / t / lib / args_assert.t
1 #!perl
2
3 use strict;
4 use warnings;
5
6 use Test::More 'no_plan';
7
8 # Fail for every PERL_ARGS_ASSERT* macro that was declared but not used.
9
10 my %declared;
11 my %used;
12
13 my $prefix = '';
14
15 unless (-d 't' && -f 'MANIFEST') {
16     # we'll assume that we are in t then.
17     # All files are interal to perl, so Unix-style is sufficiently portable.
18     $prefix = '../';
19 }
20
21 {
22     my $proto = $prefix . 'proto.h';
23
24     open my $fh, '<', $proto or die "Can't open $proto: $!";
25
26     while (<$fh>) {
27         $declared{$1}++ if /^#define\s+(PERL_ARGS_ASSERT[A-Za-z_]+)\s+/;
28     }
29 }
30
31 cmp_ok(scalar keys %declared, '>', 0, 'Some macros were declared');
32
33 if (!@ARGV) {
34     my $manifest = $prefix . 'MANIFEST';
35     open my $fh, '<', $manifest or die "Can't open $manifest: $!";
36     while (<$fh>) {
37         # *.c or */*.c
38         push @ARGV, $prefix . $1 if m!^((?:[^/]+/)?[^/]+\.c)\t!;
39     }
40 }
41
42 while (<>) {
43     $used{$1}++ if /^\s+(PERL_ARGS_ASSERT_[A-Za-z_]+);$/;
44 }
45
46 my %unused;
47
48 foreach (keys %declared) {
49     $unused{$_}++ unless $used{$_};
50 }
51
52 if (keys %unused) {
53     fail("$_ is declared but not used") foreach sort keys %unused;
54 } else {
55     pass('Every PERL_ARGS_ASSERT* macro declared is used');
56 }