Author: turnstep
Date: Thu Jan 10 07:37:08 2008
New Revision: 10508
Modified:
DBD-Pg/trunk/t/99_pod.t
DBD-Pg/trunk/types.c
Log:
Automatically exclude constants from Test::Pod::Coverage tests in 99_pod.t
Modified: DBD-Pg/trunk/t/99_pod.t
==============================================================================
--- DBD-Pg/trunk/t/99_pod.t (original)
+++ DBD-Pg/trunk/t/99_pod.t Thu Jan 10 07:37:08 2008
@@ -31,10 +31,144 @@
else {
my $trusted_names =
[
- qr{^PG_[A-Z]+\d?$},
qr{^CLONE$},
qr{^driver$},
qr{^constant$},
+ ## Auto-generated from types.c:
+ qr{PG_ABSTIME},
+ qr{PG_ABSTIMEARRAY},
+ qr{PG_ACLITEM},
+ qr{PG_ACLITEMARRAY},
+ qr{PG_ANY},
+ qr{PG_ANYARRAY},
+ qr{PG_ANYELEMENT},
+ qr{PG_ANYENUM},
+ qr{PG_ANYNONARRAY},
+ qr{PG_BIT},
+ qr{PG_BITARRAY},
+ qr{PG_BOOL},
+ qr{PG_BOOLARRAY},
+ qr{PG_BOX},
+ qr{PG_BOXARRAY},
+ qr{PG_BPCHAR},
+ qr{PG_BPCHARARRAY},
+ qr{PG_BYTEA},
+ qr{PG_BYTEAARRAY},
+ qr{PG_CHAR},
+ qr{PG_CHARARRAY},
+ qr{PG_CID},
+ qr{PG_CIDARRAY},
+ qr{PG_CIDR},
+ qr{PG_CIDRARRAY},
+ qr{PG_CIRCLE},
+ qr{PG_CIRCLEARRAY},
+ qr{PG_CSTRING},
+ qr{PG_CSTRINGARRAY},
+ qr{PG_DATE},
+ qr{PG_DATEARRAY},
+ qr{PG_FLOAT4},
+ qr{PG_FLOAT4ARRAY},
+ qr{PG_FLOAT8},
+ qr{PG_FLOAT8ARRAY},
+ qr{PG_GTSVECTOR},
+ qr{PG_GTSVECTORARRAY},
+ qr{PG_INET},
+ qr{PG_INETARRAY},
+ qr{PG_INT2},
+ qr{PG_INT2ARRAY},
+ qr{PG_INT2VECTOR},
+ qr{PG_INT2VECTORARRAY},
+ qr{PG_INT4},
+ qr{PG_INT4ARRAY},
+ qr{PG_INT8},
+ qr{PG_INT8ARRAY},
+ qr{PG_INTERNAL},
+ qr{PG_INTERVAL},
+ qr{PG_INTERVALARRAY},
+ qr{PG_LANGUAGE_HANDLER},
+ qr{PG_LINE},
+ qr{PG_LINEARRAY},
+ qr{PG_LSEG},
+ qr{PG_LSEGARRAY},
+ qr{PG_MACADDR},
+ qr{PG_MACADDRARRAY},
+ qr{PG_MONEY},
+ qr{PG_MONEYARRAY},
+ qr{PG_NAME},
+ qr{PG_NAMEARRAY},
+ qr{PG_NUMERIC},
+ qr{PG_NUMERICARRAY},
+ qr{PG_OID},
+ qr{PG_OIDARRAY},
+ qr{PG_OIDVECTOR},
+ qr{PG_OIDVECTORARRAY},
+ qr{PG_OPAQUE},
+ qr{PG_PATH},
+ qr{PG_PATHARRAY},
+ qr{PG_PG_ATTRIBUTE},
+ qr{PG_PG_CLASS},
+ qr{PG_PG_PROC},
+ qr{PG_PG_TYPE},
+ qr{PG_POINT},
+ qr{PG_POINTARRAY},
+ qr{PG_POLYGON},
+ qr{PG_POLYGONARRAY},
+ qr{PG_RECORD},
+ qr{PG_REFCURSOR},
+ qr{PG_REFCURSORARRAY},
+ qr{PG_REGCLASS},
+ qr{PG_REGCLASSARRAY},
+ qr{PG_REGCONFIG},
+ qr{PG_REGCONFIGARRAY},
+ qr{PG_REGDICTIONARY},
+ qr{PG_REGDICTIONARYARRAY},
+ qr{PG_REGOPER},
+ qr{PG_REGOPERARRAY},
+ qr{PG_REGOPERATOR},
+ qr{PG_REGOPERATORARRAY},
+ qr{PG_REGPROC},
+ qr{PG_REGPROCARRAY},
+ qr{PG_REGPROCEDURE},
+ qr{PG_REGPROCEDUREARRAY},
+ qr{PG_REGTYPE},
+ qr{PG_REGTYPEARRAY},
+ qr{PG_RELTIME},
+ qr{PG_RELTIMEARRAY},
+ qr{PG_SMGR},
+ qr{PG_TEXT},
+ qr{PG_TEXTARRAY},
+ qr{PG_TID},
+ qr{PG_TIDARRAY},
+ qr{PG_TIME},
+ qr{PG_TIMEARRAY},
+ qr{PG_TIMESTAMP},
+ qr{PG_TIMESTAMPARRAY},
+ qr{PG_TIMESTAMPTZ},
+ qr{PG_TIMESTAMPTZARRAY},
+ qr{PG_TIMETZ},
+ qr{PG_TIMETZARRAY},
+ qr{PG_TINTERVAL},
+ qr{PG_TINTERVALARRAY},
+ qr{PG_TRIGGER},
+ qr{PG_TSQUERY},
+ qr{PG_TSQUERYARRAY},
+ qr{PG_TSVECTOR},
+ qr{PG_TSVECTORARRAY},
+ qr{PG_TXID_SNAPSHOT},
+ qr{PG_TXID_SNAPSHOTARRAY},
+ qr{PG_UNKNOWN},
+ qr{PG_UUID},
+ qr{PG_UUIDARRAY},
+ qr{PG_VARBIT},
+ qr{PG_VARBITARRAY},
+ qr{PG_VARCHAR},
+ qr{PG_VARCHARARRAY},
+ qr{PG_VOID},
+ qr{PG_XID},
+ qr{PG_XIDARRAY},
+ qr{PG_XML},
+ qr{PG_XMLARRAY},
+
];
pod_coverage_ok("DBD::Pg", {trustme => $trusted_names}, "DBD::Pg pod
coverage okay");
}
Modified: DBD-Pg/trunk/types.c
==============================================================================
--- DBD-Pg/trunk/types.c (original)
+++ DBD-Pg/trunk/types.c Thu Jan 10 07:37:08 2008
@@ -551,6 +551,34 @@
system("mv $file.tmp $file");
print "Wrote $file\n";
+## Rewrite 99_pod.t
+$file = 't/99_pod.t';
+open $oldfh, '<', $file or die qq{Could not open "$file": $!\n};
+open $newfh, '>', "$file.tmp" or die qq{Could not write to "$file.tmp": $!\n};
+$step = 0;
+while (<$oldfh>) {
+ if (0 == $step) {
+ if (/types.c/) {
+ print $newfh $_;
+ for (sort { $pgtype{$a}{define} cmp $pgtype{$b}{define}
} keys %pgtype) {
+ print $newfh "\t\t qr{$pgtype{$_}{define}},\n";
+ }
+ print $newfh "\n";
+ $step = 1;
+ next;
+ }
+ }
+ elsif (1 == $step) {
+ next unless /;/;
+ $step = 2;
+ }
+ print $newfh $_;
+}
+close $newfh;
+close $oldfh;
+system("mv $file.tmp $file");
+print "Wrote $file\n";
+
## Rewrite types.c
$file = "types.c";
