123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960 |
- use strict;
- use warnings;
- # TODO: find another way to do this checking, this is so fragile
- use Selenium::Remote::Commands;
- use Selenium::Remote::Spec;
- use Test::More;
- unless($ENV{RELEASE_TESTING}) {
- plan(skip_all=>"Author tests not required for installation.");
- }
- my $comm = Selenium::Remote::Commands->new->get_cmds;
- for my $command (keys %{$comm}) {
- my $found_command = 0;
- for my $file (
- qw{lib/Selenium/Remote/Driver.pm
- lib/Selenium/Remote/WebElement.pm
- lib/Selenium/Firefox.pm}
- ) {
- open(my $fh, '<', $file) or die "Couldn't open file $file";
- for (<$fh>) {
- if (/'?command'?\s*=>\s*'$command'/
- or /{'?commands'?}->\{'?$command'?}/) {
- pass("find $command");
- $found_command = 1;
- }
- }
- }
- if (!$found_command && $command !~ /Gecko|screenshot/i) {
- fail("find $command");
- }
- }
- note "*************** WD3 methods ********************";
- $comm = Selenium::Remote::Spec->new->get_cmds;
- for my $command (keys %{$comm}) {
- my $found_command = 0;
- for my $file (
- qw{lib/Selenium/Remote/Driver.pm
- lib/Selenium/Remote/WebElement.pm
- lib/Selenium/Firefox.pm}
- ) {
- open(my $fh, '<', $file) or die "Couldn't open file $file";
- for (<$fh>) {
- if (/'?command'?\s*=>\s*'$command'/
- or /{'?commands'?}->\{'?$command'?}/) {
- pass("find $command");
- $found_command = 1;
- }
- }
- }
- if (!$found_command && $command !~ /Gecko|screenshot/i) {
- fail("find $command");
- }
- }
- done_testing;
- 1;
|