-package Test::MooseX::Daemonize;
use strict;
-
-our $VERSION = '0.11';
-our $AUTHORITY = 'cpan:PERIGRIN';
+use warnings;
+package Test::MooseX::Daemonize;
# BEGIN CARGO CULTING
-use Sub::Exporter;
-use Test::Builder;
-
-
-{
- my @exports = qw[
- daemonize_ok
- check_test_output
- ];
+use Sub::Exporter::ForMethods 'method_installer';
+use Sub::Exporter -setup => {
+ exports => [ qw(daemonize_ok check_test_output) ],
+ groups => { default => [ qw(daemonize_ok check_test_output) ] },
+ installer => method_installer,
+};
- Sub::Exporter::setup_exporter(
- {
- exports => \@exports,
- groups => { default => \@exports }
- }
- );
-}
+use Test::Builder;
our $Test = Test::Builder->new;
# We don't just call ok(!$not), because that generates diagnostics of
# its own for failures. We only want the diagnostics from the child.
- my $num = $Test->current_test;
- $Test->current_test( ++$num );
- $Test->_print("$status $num - $text\n");
+ my $orig_no_diag = $Test->no_diag;
+ $Test->no_diag(1);
+ $Test->ok(!$not, $text);
+ $Test->no_diag($orig_no_diag);
}
elsif ( $line =~ s/\A#\s?// ) {
$Test->diag($line);
}
else {
- $Test->_print_diag("$label: $line (unrecognised)\n");
+ $Test->diag("$label: $line (unrecognised)\n");
}
}
}
package Test::MooseX::Daemonize::Testable;
+
use Moose::Role;
has test_output => (
Test::MooseX::Daemonize - Tool to help test MooseX::Daemonize applications
-=head1 VERSION
-
-This document describes MooseX::Daemonize version 0.0.1
-
=head1 SYNOPSIS
use File::Spec::Functions;
=head1 LICENCE AND COPYRIGHT
-Copyright (c) 2007-2010, Chris Prather C<< <perigrin@cpan.org> >>. All rights reserved.
+Copyright (c) 2007-2011, Chris Prather C<< <perigrin@cpan.org> >>. All rights reserved.
This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself. See L<perlartistic>.