Alien-Selenium

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

---
name: Alien-Selenium
version: 0.09
author:
  - |-
    Mattia Barbon <mbarbon@cpan.org>
    Dominique Quatravaux <domq@cpan.org>
abstract: installing and finding the Selenium Web test framework
license: perl
resources:
  license: http://dev.perl.org/licenses/
requires:
  File::Copy: 0
build_requires:
  Archive::Zip: 1
  Test::Builder: 0
  Test::More: 0
provides:

README.txt  view on Meta::CPAN

Alien::Selenium automatically installs the Selenium
web testing framework.

Copyright (c) 2005, 2006 Mattia Barbon and Dominique Quatravaux.
This package is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

Please notice that Selenium and JsUnit come with their own license.

To install:

    perl Build.PL                    # But see below

inc/My/Module/Build.pm  view on Meta::CPAN

   make your time

=for My::Tests::Below "great justice" end

produces a helpful message in packages that have a Makefile.PL (see
L<Module::Build/create_makefile_pl> for how to do that). You won't get
signal if you use a "traditional" style Makefile.PL (but on the other
hand the rest of I<My::Module::Build> will not work either, so don't
do that).

This easter egg was a feature of an old GNU-make based build framework
that I created in a former life.  So there.

=cut

sub do_create_makefile_pl {
  my ($self, %args) = @_;
  warn("Cannot take off any Zig, sorry"),
      return $self->SUPER::do_create_makefile_pl(%args) if ($args{fh});
  $args{file} ||= 'Makefile.PL';
  my $retval = $self->SUPER::do_create_makefile_pl(%args);

inc/My/Tests/Below.pm  view on Meta::CPAN

=head2 How it works

The test code is written in L<perlmodlib> style, that is, at the
bottom of the Perl module to test, after an __END__ marker. This way
of organizing test code is not unlike L<Test::Inline>, by Adam Kennedy
et al, in that it keeps code, documentation and tests in the same
place, encouraging developers to modify all three at once.

I like to use L<Test::Group> for the unit perlmodlib-style unit tests,
because counting and recounting my tests drives me nuts :-). However
C<My::Tests::Below> itself is testing-framework agnostic (its own
self-test suite, for instance, uses only plain old L<Test::More>).

Invoking C<require My::Tests::Below> from anywhere (the idiomatic form
is shown in L</SYNOPSIS>) results in the block of code after the
__END__ marker being run at once. Due to the way this construct abuses
the Perl module mechanism, My::Tests::Below cannot be require()d or
use()d for any other purpose, hence the funny name.

=head3 Why not use Test::Inline then?

lib/Alien/Selenium.pm  view on Meta::CPAN

use strict;
use warnings;

use File::Copy ();
use File::Path ();
use File::Basename qw(dirname);

=head1 NAME

Alien::Selenium - installing and finding the Selenium Web test framework

=head1 SYNOPSIS

    use Alien::Selenium;

    my $version = Alien::Selenium->version;
    my $path    = Alien::Selenium->path;

    Alien::Selenium->install( $destination_directory );