-#!/usr/bin/perl
-
use strict;
use warnings;
-use Test::More 'no_plan';
-use Test::Exception;
+use Test::More;
+use Test::Fatal;
use Test::Moose;
use File::Temp qw(tempdir);
use File::Spec::Functions;
isa_ok($d, 'MyFooDaemon');
does_ok($d, 'MooseX::Daemonize::Core');
-lives_ok {
- $d->start;
-} '... successfully daemonized from (' . $$ . ')';
+is(
+ exception { $d->start },
+ undef,
+ '... successfully daemonized from (' . $$ . ')',
+);
my $p = $d->daemon_pid;
isa_ok($p, 'MooseX::Daemonize::Pid');
unlink $ENV{MX_DAEMON_STDOUT};
unlink $ENV{MX_DAEMON_STDERR};
+done_testing;