#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Deep;
use Win32::ServiceManager;
ok(my $sm = Win32::ServiceManager->new, 'instantiate');
cmp_deeply(
[$sm->_nssm_install(qw(foo bar baz))],
[qw(nssm.exe install foo bar baz)],
'nssm install seems to work',
);
cmp_deeply(
[$sm->_sc_install(qw(foo bar baz))],
[qw(sc create foo), 'binpath= "bar" baz'],
'sc install seems to work',
);
cmp_deeply(
[$sm->_sc_configure(qw(foo Foo MSSQL\Apache2.2))],
[qw(sc config foo),
'DisplayName= "Foo"',
'type= own start= auto depend= "MSSQL\Apache2.2"',
],
'sc configure seems to work',
);
cmp_deeply(
[$sm->_sc_configure(qw(foo Foo), [qw(MSSQL Apache2.2)])],
[qw(sc config foo),
'DisplayName= "Foo"',
'type= own start= auto depend= "MSSQL\Apache2.2"',
],
'sc configure with arrayref deps seems to work',
);
done_testing;