r62163 - in /trunk/libapp-daemon-perl: Changes Daemon.pm META.yml README debian/changelog t/001Basic.t t/002Params.t

[carnil-guest at users.alioth.debian.org]

Author: carnil-guest
Date: Sun Aug 29 09:52:23 2010
New Revision: 62163

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=62163
Log:
new upstream release

Modified:
    trunk/libapp-daemon-perl/Changes
    trunk/libapp-daemon-perl/Daemon.pm
    trunk/libapp-daemon-perl/META.yml
    trunk/libapp-daemon-perl/README
    trunk/libapp-daemon-perl/debian/changelog
    trunk/libapp-daemon-perl/t/001Basic.t
    trunk/libapp-daemon-perl/t/002Params.t

Modified: trunk/libapp-daemon-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-daemon-perl/Changes?rev=62163&op=diff
==============================================================================
--- trunk/libapp-daemon-perl/Changes (original)
+++ trunk/libapp-daemon-perl/Changes Sun Aug 29 09:52:23 2010
@@ -1,4 +1,7 @@
 Revision history for Perl extension App::Daemon.
+
+0.11 (08/28/2010)
+    (ms) Fixed test suite.
 
 0.10 (08/19/2010)
     (ms) Writing pid file before dropping privileges (just like logfile).

Modified: trunk/libapp-daemon-perl/Daemon.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-daemon-perl/Daemon.pm?rev=62163&op=diff
==============================================================================
--- trunk/libapp-daemon-perl/Daemon.pm (original)
+++ trunk/libapp-daemon-perl/Daemon.pm Sun Aug 29 09:52:23 2010
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.10';
+our $VERSION = '0.11';
 
 use Getopt::Std;
 use Pod::Usage;

Modified: trunk/libapp-daemon-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-daemon-perl/META.yml?rev=62163&op=diff
==============================================================================
--- trunk/libapp-daemon-perl/META.yml (original)
+++ trunk/libapp-daemon-perl/META.yml Sun Aug 29 09:52:23 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               App-Daemon
-version:            0.10
+version:            0.11
 abstract:           Start an Application as a Daemon
 author:
     - Mike Schilli <m at perlmeister.com>

Modified: trunk/libapp-daemon-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-daemon-perl/README?rev=62163&op=diff
==============================================================================
--- trunk/libapp-daemon-perl/README (original)
+++ trunk/libapp-daemon-perl/README Sun Aug 29 09:52:23 2010
@@ -1,5 +1,5 @@
 ######################################################################
-    App::Daemon 0.10
+    App::Daemon 0.11
 ######################################################################
 
 NAME

Modified: trunk/libapp-daemon-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-daemon-perl/debian/changelog?rev=62163&op=diff
==============================================================================
--- trunk/libapp-daemon-perl/debian/changelog (original)
+++ trunk/libapp-daemon-perl/debian/changelog Sun Aug 29 09:52:23 2010
@@ -1,4 +1,4 @@
-libapp-daemon-perl (0.10-1) UNRELEASED; urgency=low
+libapp-daemon-perl (0.11-1) UNRELEASED; urgency=low
 
   * New upstream release
   * Refresh debian/copyright: Explicitly refer to GPL-1 license text in

Modified: trunk/libapp-daemon-perl/t/001Basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-daemon-perl/t/001Basic.t?rev=62163&op=diff
==============================================================================
--- trunk/libapp-daemon-perl/t/001Basic.t (original)
+++ trunk/libapp-daemon-perl/t/001Basic.t Sun Aug 29 09:52:23 2010
@@ -1,39 +1,34 @@
-use Test::More tests => 4;
+use Test::More tests => 3;
 
 use App::Daemon qw(daemonize cmd_line_parse);
 use File::Temp qw(tempfile);
 use Fcntl qw/:flock/;
+use Log::Log4perl qw(:easy);
+
+Log::Log4perl->easy_init({ level => $DEBUG, layout => "%F-%L> %m%n" });
 
 my($fh, $tempfile) = tempfile();
-my($pf, $pidfile) = tempfile();
 
   # Turdix locks temp files, so unlock them just in case
 flock $fh, LOCK_UN;
-flock $pf, LOCK_UN;
 
 ok(1, "loaded ok");
 
 open(OLDERR, ">&STDERR");
 open(STDERR, ">$tempfile");
 
- at ARGV = ("-X", "-p", $pidfile);
+ at ARGV = ("-X");
 daemonize();
 
 close STDERR;
 open(STDERR, ">&OLDERR");
 close OLDERR;
 
-ok(1, "running in foreground with -X");
+ok(1, "Running in foreground with -X");
 
-open PIDFILE, "<$pidfile";
-my $pid = <PIDFILE>;
-chomp $pid;
-close PIDFILE;
-
-is($pid, $$, "check pid");
-
-open FILE, "<$tempfile";
+open FILE, "<$tempfile" or
+    die "Cannot open tempfile $tempfile ($!)";
 my $data = join '', <FILE>;
 close FILE;
 
-like($data, qr/Written to $pidfile/, "log message");
+like($data, qr/Running in foreground/, "log message");

Modified: trunk/libapp-daemon-perl/t/002Params.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-daemon-perl/t/002Params.t?rev=62163&op=diff
==============================================================================
--- trunk/libapp-daemon-perl/t/002Params.t (original)
+++ trunk/libapp-daemon-perl/t/002Params.t Sun Aug 29 09:52:23 2010
@@ -1,15 +1,16 @@
-use Test::More tests => 4;
+use Test::More tests => 3;
 
 use App::Daemon qw(daemonize cmd_line_parse);
 use File::Temp qw(tempfile);
 use Fcntl qw/:flock/;
 
+use Log::Log4perl qw(:easy);
+Log::Log4perl->easy_init({ level => $DEBUG, layout => "%F-%L> %m%n" });
+
 my($fh, $tempfile) = tempfile();
-my($pf, $pidfile) = tempfile();
 
 # Turdix locks temp files, so unlock them just in case
 flock $fh, LOCK_UN;
-flock $pf, LOCK_UN;
 
 ok(1, "loaded ok");
 
@@ -18,7 +19,6 @@
 
 @ARGV = ();
 $App::Daemon::background = 0;
-$App::Daemon::pidfile    = $pidfile;
 daemonize();
 
 close STDERR;
@@ -27,15 +27,8 @@
 
 ok(1, "running in foreground");
 
-open PIDFILE, "<$pidfile";
-my $pid = <PIDFILE>;
-chomp $pid;
-close PIDFILE;
-
-is($pid, $$, "check pid");
-
 open FILE, "<$tempfile";
 my $data = join '', <FILE>;
 close FILE;
 
-like($data, qr/Written to $pidfile/, "log message");
+like($data, qr/Running in foreground/, "log message");