1 package Test::MooseX::Daemonize;
5 our $AUTHORITY = 'cpan:PERIGRIN';
18 Sub::Exporter::setup_exporter(
21 groups => { default => \@exports }
26 our $Test = Test::Builder->new;
29 my ( $daemon, $msg ) = @_;
30 unless ( my $pid = fork ) {
35 sleep(1); # Punt on sleep time, 1 seconds should be enough
36 $Test->ok( $daemon->pidfile->does_file_exist, $msg )
38 'Pidfile (' . $daemon->pidfile->file . ') not found.' );
42 sub check_test_output {
44 open( my $stdout_in, '<', $app->test_output )
45 or die "can't open test output: $!";
46 while ( my $line = <$stdout_in> ) {
49 if ( $line =~ /\A((not\s+)?ok)(?:\s+-)(?:\s+(.*))\z/ ) {
50 my ( $status, $not, $text ) = ( $1, $2, $3 );
53 # We don't just call ok(!$not), because that generates diagnostics of
54 # its own for failures. We only want the diagnostics from the child.
55 my $orig_no_diag = $Test->no_diag;
57 $Test->ok(!$not, $text);
58 $Test->no_diag($orig_no_diag);
60 elsif ( $line =~ s/\A#\s?// ) {
64 $Test->diag("$label: $line (unrecognised)\n");
69 package Test::MooseX::Daemonize::Testable;
78 after daemonize => sub {
79 $Test->use_numbers(0);
81 open my $out, '>', $_[0]->test_output or die "Cannot open test output: $!";
82 my $fileno = fileno $out;
83 open STDERR, ">&=", $fileno
84 or die "Can't redirect STDERR";
86 open STDOUT, ">&=", $fileno
87 or die "Can't redirect STDOUT";
90 $Test->failure_output($out);
91 $Test->todo_output($out);
101 Test::MooseX::Daemonize - Tool to help test MooseX::Daemonize applications
105 This document describes MooseX::Daemonize version 0.0.1
109 use File::Spec::Functions;
110 use File::Temp qw(tempdir);
112 my $dir = tempdir( CLEANUP => 1 );
114 ## Try to make sure we are in the test directory
116 my $file = catfile( $dir, "im_alive" );
117 my $daemon = FileMaker->new( pidbase => $dir, filename => $file );
119 daemonize_ok( $daemon, 'child forked okay' );
120 ok( -e $file, "$file exists" );
124 This module provides some basic Test::Builder compatible test methods to
125 use when writing tests for you MooseX::Daemonize based modules.
127 =head1 EXPORTED FUNCTIONS
131 =item B<daemonize_ok ( $daemon, ?$msg )>
133 This will attempt to daemonize your C<$daemon> returning ok on
134 success and not ok on failure.
136 =item B<check_test_output ( $daemon )>
138 This is expected to be used with a C<$daemon> which does the
139 B<Test::MooseX::Daemonize::Testable> role (included in this package
140 see the source for more info). It will collect the test output
141 from your daemon and apply it in the parent process by mucking
142 around with L<Test::Builder> stuff, again, read the source for
143 more info. If we get time we will document this more thoroughly.
147 =head1 INCOMPATIBILITIES
151 =head1 BUGS AND LIMITATIONS
153 No bugs have been reported.
155 Please report any bugs or feature requests to
156 C<bug-acme-dahut-call@rt.cpan.org>, or through the web interface at
157 L<http://rt.cpan.org>.
165 Chris Prather C<< <perigrin@cpan.org> >>
167 =head1 LICENCE AND COPYRIGHT
169 Copyright (c) 2007-2011, Chris Prather C<< <perigrin@cpan.org> >>. All rights reserved.
171 This module is free software; you can redistribute it and/or
172 modify it under the same terms as Perl itself. See L<perlartistic>.
174 =head1 DISCLAIMER OF WARRANTY
176 BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
177 FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
178 OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
179 PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER
180 EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
181 WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE
182 ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH
183 YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL
184 NECESSARY SERVICING, REPAIR, OR CORRECTION.
186 IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
187 WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
188 REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE
189 LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL,
190 OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE
191 THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
192 RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
193 FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
194 SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF