view release on metacpan or  search on metacpan

t/03-filepid.t  view on Meta::CPAN

#!/usr/bin/perl -w
#########################################################################
#
# Serż Minus (Sergey Lepenkov), <abalama@cpan.org>
#
# Copyright (C) 1998-2026 D&D Corporation
#
# This program is distributed under the terms of the Artistic License 2.0
#
#########################################################################
use strict;
use Test::More;

use_ok qw/Acme::Ghost::FilePid/;

# Regular mode
{
    my $fp = Acme::Ghost::FilePid->new(file => "test03.pid");
    is $fp->pid, $$, 'current process by default';
    ok $fp->save, 'writing file';
    is $fp->running, $$, 'we are running';
    ok $fp->remove, 'deleted file';
    #note explain $fp;
}

# Autoremove mode
{
    my $fp = Acme::Ghost::FilePid->new(file => "test03.tmp", autoremove => 1);
    ok $fp->save, 'writing file';
    is $fp->running, $$, 'we are running';
}

# Autosave and Autoremove mode
{
    my $fp = Acme::Ghost::FilePid->new(file => "test03.tmp", auto => 1);
    is $fp->running, $$, 'we are running';
}

# Fork mode
my $file = 'child03.tmp';
unlink $file if -e $file;
if (my $child = fork) { # Parent PID
    sleep 1;
    my $p = Acme::Ghost::FilePid->new(file => $file, autoremove => 1);
    note sprintf "Parent PID: %s; Parent Owner: %s", $p->pid, $p->owner;
    $p->save unless $p->running;
    ok $p->running, 'child process is running';
    #note explain $p;
    waitpid $child, 0;
    done_testing;
} else { # child process
    my $p = Acme::Ghost::FilePid->new(file => $file, autoremove => 1); # hope for the best
    unless ($p->running) {
       $p->save;
       note sprintf "Start child process (Child PID: %s; Child Owner: %s)", $p->pid, $p->owner;
       sleep 3;
       note sprintf "Finish child process (Child PID: %s; Child Owner: %s)", $p->pid, $p->owner;
    }
    #note 'parent is running' if $p->running;
}

__END__

prove -lv t/03-filepid.t