#!/usr/bin/perl -w

# $Id$
# 
# Basic check of the WebUI

use strict;
use lib qw(lib);

use Slim::Test::Base;
use Test::More;

eval "use Test::WWW::Mechanize 1.00";
plan skip_all => "Test::WWW::Mechanize 1.00 required for WWW::Mechanize testing" if $@;

plan tests => 2;

my $mech = Test::WWW::Mechanize->new;

$mech->get_ok('http://localhost:9000/', 'Fetched http://localhost:9000/');

$mech->title_like(qr/SqueezeCenter/, "Found 'SqueezeCenter' in index title.");