r24507 - in /branches/upstream/libnet-cups-perl/current: Changes Makefile.PL README extra_t/ extra_t/03_destination.t lib/Net/CUPS.pm lib/Net/CUPS/Destination.pm lib/Net/CUPS/IPP.pm lib/Net/CUPS/PPD.pm t/03_destination.t

gregoa at users.alioth.debian.org gregoa at users.alioth.debian.org
Sat Aug 23 15:43:08 UTC 2008


Author: gregoa
Date: Sat Aug 23 15:43:06 2008
New Revision: 24507

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=24507
Log:
[svn-upgrade] Integrating new upstream version, libnet-cups-perl (0.58)

Added:
    branches/upstream/libnet-cups-perl/current/extra_t/
    branches/upstream/libnet-cups-perl/current/extra_t/03_destination.t
Modified:
    branches/upstream/libnet-cups-perl/current/Changes
    branches/upstream/libnet-cups-perl/current/Makefile.PL
    branches/upstream/libnet-cups-perl/current/README
    branches/upstream/libnet-cups-perl/current/lib/Net/CUPS.pm
    branches/upstream/libnet-cups-perl/current/lib/Net/CUPS/Destination.pm
    branches/upstream/libnet-cups-perl/current/lib/Net/CUPS/IPP.pm
    branches/upstream/libnet-cups-perl/current/lib/Net/CUPS/PPD.pm
    branches/upstream/libnet-cups-perl/current/t/03_destination.t

Modified: branches/upstream/libnet-cups-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-cups-perl/current/Changes?rev=24507&op=diff
==============================================================================
--- branches/upstream/libnet-cups-perl/current/Changes (original)
+++ branches/upstream/libnet-cups-perl/current/Changes Sat Aug 23 15:43:06 2008
@@ -1,4 +1,12 @@
 Revision history for Perl extension Net::CUPS.
+
+
+0.58 Thu Aug 21 10:04:32 2008
+	- No changes to the core in this release.  This release is designed
+	  to address issues with automated testing.  I have removed the
+	  tests for manipulating destinations since they required to have
+      accounts on the CUPS system.  I have also modified the Makefile.PL
+	  to deal with issues in the Perl Testers systems.
 
 0.57 Sun Aug 10 19:19:33 2008
 	+ Special thanks to Mike Eldridge <diz at cpan.org> for submitting a 

Modified: branches/upstream/libnet-cups-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-cups-perl/current/Makefile.PL?rev=24507&op=diff
==============================================================================
--- branches/upstream/libnet-cups-perl/current/Makefile.PL (original)
+++ branches/upstream/libnet-cups-perl/current/Makefile.PL Sat Aug 23 15:43:06 2008
@@ -20,7 +20,9 @@
 	print "Net::CUPS requires the Common Unix Printing System. Check\n";
 	print "your system configuration and then attempt the configure\n";
 	print "process again.\n";
-	exit( 1 );
+	## I would like to exit( 0 ), but apparently this gives me bad
+	## reports from CPAN Testers.  *sigh*
+	exit( 0 );
 }
 else
 {
@@ -36,7 +38,9 @@
 	print "on your system is too old for this module to work properly.\n";
 	print "Please upgrade the version of CUPS on your system to version \n";
 	print "1.2.2 or higher and re-run Makefile.PL to install this module.\n\n";
-	exit( 1 );
+	## I would like to exit( 0 ), but apparently this gives me bad
+	## reports from CPAN Testers.  *sigh*
+	exit( 0 );
 }
 
 ## Grab the CFLAGS ...

Modified: branches/upstream/libnet-cups-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-cups-perl/current/README?rev=24507&op=diff
==============================================================================
--- branches/upstream/libnet-cups-perl/current/README (original)
+++ branches/upstream/libnet-cups-perl/current/README Sat Aug 23 15:43:06 2008
@@ -34,7 +34,7 @@
 COPYRIGHT AND LICENSE
 
 Copyright (C) 2003-2005 D. Hageman <dhageman at dracken.com>
-Copyright (C) 2006-2007 Dracken Technology, Inc. (http://www.dracken.com/)
+Copyright (C) 2006-2008 Dracken Technology, Inc. (http://www.dracken.com/)
 
 SPECIAL THANKS
 

Added: branches/upstream/libnet-cups-perl/current/extra_t/03_destination.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-cups-perl/current/extra_t/03_destination.t?rev=24507&op=file
==============================================================================
--- branches/upstream/libnet-cups-perl/current/extra_t/03_destination.t (added)
+++ branches/upstream/libnet-cups-perl/current/extra_t/03_destination.t Sat Aug 23 15:43:06 2008
@@ -1,0 +1,55 @@
+# Before `make install' is performed this script should be runnable with
+# `make test'. After `make install' it should work as `perl Net-CUPS.t'
+
+#########################
+
+use Test::More tests => 11;
+BEGIN { use_ok('Net::CUPS'); use_ok('Net::CUPS::Destination'); };
+
+#########################
+
+# Insert your test code below, the Test::More module is use()ed here so read
+# its man page ( perldoc Test::More ) for help writing this test script.
+
+my $cups = Net::CUPS->new();
+
+ok( $cups );
+
+$cups->setServer( "localhost" );
+
+ok( $cups->getServer() eq "localhost" );
+
+my @makes = $cups->getPPDMakes();
+
+ok (@makes);
+
+my @ppds = $cups->getAllPPDs();
+
+ok (@ppds);
+
+my $ppd_file = $cups->getPPDFileName($ppds[1]);
+
+ok ($ppd_file);
+
+my $name = "yatp";
+my $location = "nowhere";
+my $printer_info = "blahblah";
+my $device_uri = 'socket://192.168.1.3:9100';
+
+$cups->addDestination($name, $location, $printer_info, $ppd_file, $device_uri);
+
+my $dest = $cups->getDestination( $name );
+
+ok ($dest);
+
+my $description = $dest->getDescription();
+
+ok( $description eq $printer_info );
+
+my $uri = $dest->getUri();
+
+ok( $uri eq $device_uri );
+
+$cups->deleteDestination($name);
+
+ok (! $cups->getDestination($name));

Modified: branches/upstream/libnet-cups-perl/current/lib/Net/CUPS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-cups-perl/current/lib/Net/CUPS.pm?rev=24507&op=diff
==============================================================================
--- branches/upstream/libnet-cups-perl/current/lib/Net/CUPS.pm (original)
+++ branches/upstream/libnet-cups-perl/current/lib/Net/CUPS.pm Sat Aug 23 15:43:06 2008
@@ -959,7 +959,7 @@
 	PPD_VERSION
 );
 
-our $VERSION = '0.57';
+our $VERSION = '0.58';
 
 sub AUTOLOAD {
     # This AUTOLOAD is used to 'autoload' constants from the constant()

Modified: branches/upstream/libnet-cups-perl/current/lib/Net/CUPS/Destination.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-cups-perl/current/lib/Net/CUPS/Destination.pm?rev=24507&op=diff
==============================================================================
--- branches/upstream/libnet-cups-perl/current/lib/Net/CUPS/Destination.pm (original)
+++ branches/upstream/libnet-cups-perl/current/lib/Net/CUPS/Destination.pm Sat Aug 23 15:43:06 2008
@@ -961,7 +961,7 @@
 	PPD_VERSION
 );
 
-our $VERSION = '0.57';
+our $VERSION = '0.58';
 
 sub AUTOLOAD {
     # This AUTOLOAD is used to 'autoload' constants from the constant()

Modified: branches/upstream/libnet-cups-perl/current/lib/Net/CUPS/IPP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-cups-perl/current/lib/Net/CUPS/IPP.pm?rev=24507&op=diff
==============================================================================
--- branches/upstream/libnet-cups-perl/current/lib/Net/CUPS/IPP.pm (original)
+++ branches/upstream/libnet-cups-perl/current/lib/Net/CUPS/IPP.pm Sat Aug 23 15:43:06 2008
@@ -961,7 +961,7 @@
 	PPD_VERSION
 );
 
-our $VERSION = '0.57';
+our $VERSION = '0.58';
 
 sub AUTOLOAD {
     # This AUTOLOAD is used to 'autoload' constants from the constant()

Modified: branches/upstream/libnet-cups-perl/current/lib/Net/CUPS/PPD.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-cups-perl/current/lib/Net/CUPS/PPD.pm?rev=24507&op=diff
==============================================================================
--- branches/upstream/libnet-cups-perl/current/lib/Net/CUPS/PPD.pm (original)
+++ branches/upstream/libnet-cups-perl/current/lib/Net/CUPS/PPD.pm Sat Aug 23 15:43:06 2008
@@ -964,7 +964,7 @@
 	PPD_VERSION
 );
 
-our $VERSION = '0.57';
+our $VERSION = '0.58';
 
 sub AUTOLOAD {
     # This AUTOLOAD is used to 'autoload' constants from the constant()

Modified: branches/upstream/libnet-cups-perl/current/t/03_destination.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-cups-perl/current/t/03_destination.t?rev=24507&op=diff
==============================================================================
--- branches/upstream/libnet-cups-perl/current/t/03_destination.t (original)
+++ branches/upstream/libnet-cups-perl/current/t/03_destination.t Sat Aug 23 15:43:06 2008
@@ -3,7 +3,7 @@
 
 #########################
 
-use Test::More tests => 11;
+use Test::More tests => 7;
 BEGIN { use_ok('Net::CUPS'); use_ok('Net::CUPS::Destination'); };
 
 #########################
@@ -30,26 +30,3 @@
 my $ppd_file = $cups->getPPDFileName($ppds[1]);
 
 ok ($ppd_file);
-
-my $name = "yatp";
-my $location = "nowhere";
-my $printer_info = "blahblah";
-my $device_uri = 'socket://192.168.1.3:9100';
-
-$cups->addDestination($name, $location, $printer_info, $ppd_file, $device_uri);
-
-my $dest = $cups->getDestination( $name );
-
-ok ($dest);
-
-my $description = $dest->getDescription();
-
-ok( $description eq $printer_info );
-
-my $uri = $dest->getUri();
-
-ok( $uri eq $device_uri );
-
-$cups->deleteDestination($name);
-
-ok (! $cups->getDestination($name));




More information about the Pkg-perl-cvs-commits mailing list