#!/usr/bin/perl -w

BEGIN{
    use strict;
    use rcconfig;
    use Test::More tests =>1;
}
END
{
# Selenium RC-Config
    my $rcserver = rcconfig->new();
    my $rchost = $rcserver->get_rchost();
    my $rcport = $rcserver->get_rcport();
    my $rcbrowser = $rcserver->get_rcbrowser();
    my $rcurl = $rcserver->get_rcurl();
    
my $obj = WWW::Selenium -> new(host => $rchost,
                               port => $rcport,
                               browser => $rcbrowser,
                               browser_url => $rcurl);

$obj->start();
is($obj->open("/cosmo_90/"),'OK','Domain oeffnen');
$obj->stop();
}

1;