#!/usr/bin/perl -w

# $Id$
# 
# Basic start of a SqueezeCenter instance.

use strict;
use lib qw(lib);

use Slim::Test::Base;
use Test::More tests => 3;

my $secs = 30;

# Server should be alive at this point
ok(Slim::Test::Base->serverIsAlive, 'SqueezeCenter is alive');

ok(Slim::Test::Base->stopServer, 'Stopped SqueezeCenter');

# And now check that it's dead.
for (my $i = 0; $i < $secs; $i++) {

	if (Slim::Test::Base->serverIsAlive) {
		sleep 1;
		next;
	}

	ok(1, 'SqueezeCenter is now dead');
	last;
}