#!/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 => 2; my $secs = 30; ok(Slim::Test::Base->startServer, 'Started SqueezeCenter'); sleep $secs; # Server should be alive at this point ok(Slim::Test::Base->serverIsAlive, 'SqueezeCenter is alive');