RPM Package Manager, CVS Repository
http://rpm5.org/cvs/
____________________________________________________________________________
Server: rpm5.org Name: Olivier Thauvin
Root: /v/rpm/cvs Email: [EMAIL PROTECTED]
Module: rpm Date: 05-Aug-2007 03:42:54
Branch: HEAD Handle: 2007080502425301
Added files:
rpm/perl/t 00.pod.coverage.t 00.pod.t
Modified files:
rpm/perl Makefile.am RPM_Header.xs
Log:
- add pod test to perl module, if availlable on the system
Summary:
Revision Changes Path
1.12 +1 -0 rpm/perl/Makefile.am
1.4 +2 -2 rpm/perl/RPM_Header.xs
1.1 +16 -0 rpm/perl/t/00.pod.coverage.t
1.1 +14 -0 rpm/perl/t/00.pod.t
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: rpm/perl/Makefile.am
============================================================================
$ cvs diff -u -r1.11 -r1.12 Makefile.am
--- rpm/perl/Makefile.am 5 Aug 2007 01:08:55 -0000 1.11
+++ rpm/perl/Makefile.am 5 Aug 2007 01:42:53 -0000 1.12
@@ -11,6 +11,7 @@
RPM/Constant.pm RPM_Constant.xs t/02.rpmconstant.t \
RPM_Header.xs RPM/Header.pm t/03.header.t \
RPM_Ts.xs \
+ t/00.pod.coverage.t t/00.pod.t \
hdlist-test.hdr test-rpm-1.0-1.noarch.rpm test-rpm-1.0-1.src.rpm
noinst_DATA = .made_mod
@@ .
patch -p0 <<'@@ .'
Index: rpm/perl/RPM_Header.xs
============================================================================
$ cvs diff -u -r1.3 -r1.4 RPM_Header.xs
--- rpm/perl/RPM_Header.xs 5 Aug 2007 00:31:35 -0000 1.3
+++ rpm/perl/RPM_Header.xs 5 Aug 2007 01:42:53 -0000 1.4
@@ -107,7 +107,7 @@
int
-op_spaceship(h1, h2, ...)
+_op_spaceship(h1, h2, ...)
Header h1
Header h2
CODE:
@@ -138,7 +138,7 @@
# fedora use HEADER_MAGIC_NO, too bad, set no_header_magic make the function
# compatible
int
-Header_write(h, fp, no_header_magic = 0)
+write(h, fp, no_header_magic = 0)
Header h
FILE * fp
int no_header_magic
@@ .
patch -p0 <<'@@ .'
Index: rpm/perl/t/00.pod.coverage.t
============================================================================
$ cvs diff -u -r0 -r1.1 00.pod.coverage.t
--- /dev/null 2007-08-05 03:34:42 +0200
+++ 00.pod.coverage.t 2007-08-05 03:42:54 +0200
@@ -0,0 +1,16 @@
+#!/bin/env perl
+
+use Test::More;
+eval "use Test::Pod::Coverage";
+plan skip_all => "Test::Pod::Coverage required for testing pod coverage" if
$@;
+
+plan tests => 3;
+
+SKIP: {
+ skip "RPM no yet finished", 1;
+pod_coverage_ok( "RPM", "RPM is covered" );
+}
+
+pod_coverage_ok( "RPM::Constant", "RPM::Constant is covered" );
+pod_coverage_ok( "RPM::Header", "RPM::Header is covered" );
+
@@ .
patch -p0 <<'@@ .'
Index: rpm/perl/t/00.pod.t
============================================================================
$ cvs diff -u -r0 -r1.1 00.pod.t
--- /dev/null 2007-08-05 03:34:42 +0200
+++ 00.pod.t 2007-08-05 03:42:54 +0200
@@ -0,0 +1,14 @@
+#!/bin/env perl
+
+use strict;
+use Test::More;
+
+eval "use Test::Pod 1.00";
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+
+my @poddirs = qw( blib script );
+
+all_pod_files_ok(
+ #all_pod_files( @poddirs )
+);
+
@@ .
______________________________________________________________________
RPM Package Manager http://rpm5.org
CVS Sources Repository rpm-cvs@rpm5.org
