#!/usr/bin/perl

use strict;
use warnings;

use parent qw(Test::Class);
use Test::More;

use lib 'lib';

use Config;
my $perl = $Config{perlpath};
$perl = "$perl -Mt::Utils::IgnoreWarn";

use t::Utils;

sub setup :Test(setup) {
    rebuild_tfiles;
    local_ubic;
}

sub start_list_stop :Test(8) {
    system("$perl bin/ubic-daemon --name=blah 'sleep 100' >>tfiles/log 2>>tfiles/err.log");
    ok -e "tfiles/ubic/ubic-daemon/blah", 'pid file created';
    is slurp('tfiles/log'), '', 'stdout is empty';
    is slurp('tfiles/err.log'), '', 'stderr is empty';

    system("$perl bin/ubic-daemon --list >>tfiles/list.log 2>>tfiles/list.err.log");
    is slurp('tfiles/list.log'), "blah\trunning\n", '--list stdout contains the list of daemons';
    is slurp('tfiles/list.err.log'), '', '--list stderr is empty';

    system("$perl bin/ubic-daemon --stop --name=blah >>tfiles/stop.log 2>>tfiles/stop.err.log");
    ok not(-e "tfiles/ubic/ubic-daemon/blah"), 'stop removes pidfile';
    is slurp('tfiles/stop.log'), '', 'stdout is empty';
    is slurp('tfiles/stop.err.log'), '', 'stderr is empty';
}

__PACKAGE__->new->runtests;