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; };