view release on metacpan or  search on metacpan

t/seleniumrc.t  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 5;
use lib 'lib';


my $command;
BEGIN {
    # mock system() for testing
    package Alien::SeleniumRC;
    use subs 'system';

    package main;
    *Alien::SeleniumRC::system = sub { $command = shift; return 0; };

    use_ok 'Alien::SeleniumRC';
}

$Alien::SeleniumRC::VERBOSE = 0; # keep tests quiet

Jar_location: {
    is Alien::SeleniumRC::find_jar_location(), 'lib/Alien/SeleniumRC/selenium-server.jar';
}

my $java = 'java';
#$java = 'sudo /usr/libexec/StartupItemContext `which java`' if $^O eq 'darwin';
Starting_server: {
    Alien::SeleniumRC::start();
    like $command, qr($java -jar \S+/+selenium-server\.jar\s*$);
    Alien::SeleniumRC::start('-port 8888');
    like $command, qr($java -jar \S+/+selenium-server\.jar\s-port 8888$);
}

Server_help: {
    Alien::SeleniumRC::help();
    like $command, qr($java -jar \S+/+selenium-server\.jar\s-help$);
}