init III

Perl OTRS/Kernel/cpan-lib/Selenium/Remote/Mock/Commands.pm

@@ -0,0 +1,143 @@
+package Selenium::Remote::Mock::Commands;
+$Selenium::Remote::Mock::Commands::VERSION = '1.33';
+# ABSTRACT: utility class to mock Selenium::Remote::Commands
+
+use strict;
+use warnings;
+
+use Moo;
+extends 'Selenium::Remote::Commands';
+
+
+# override get_params so we do not rewrite the parameters
+
+sub get_params {
+    my $self    = shift;
+    my $args    = shift;
+    my $data    = {};
+    my $command = delete $args->{command};
+    $data->{'url'}                = $self->get_url($command);
+    $data->{'method'}             = $self->get_method($command);
+    $data->{'no_content_success'} = $self->get_no_content_success($command);
+    $data->{'url_params'}         = $args;
+    return $data;
+}
+
+sub get_method_name_from_parameters {
+    my $self        = shift;
+    my $params      = shift;
+    my $method_name = '';
+    my $cmds        = $self->get_cmds();
+    foreach my $cmd ( keys %{$cmds} ) {
+        if (   ( $cmds->{$cmd}->{method} eq $params->{method} )
+            && ( $cmds->{$cmd}->{url} eq $params->{url} ) )
+        {
+            $method_name = $cmd;
+            last;
+        }
+    }
+    return $method_name;
+}
+
+1;
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+Selenium::Remote::Mock::Commands - utility class to mock Selenium::Remote::Commands
+
+=head1 VERSION
+
+version 1.33
+
+=head1 DESCRIPTION
+
+Utility class to be for testing purposes, with L<Selenium::Remote::Mock::RemoteConnection> only.
+
+=for Pod::Coverage *EVERYTHING*
+
+=head1 SEE ALSO
+
+Please see those modules/websites for more information related to this module.
+
+=over 4
+
+=item *
+
+L<Selenium::Remote::Driver|Selenium::Remote::Driver>
+
+=back
+
+=head1 BUGS
+
+Please report any bugs or feature requests on the bugtracker website
+L<https://github.com/teodesian/Selenium-Remote-Driver/issues>
+
+When submitting a bug or request, please include a test-file or a
+patch to an existing test-file that illustrates the bug or desired
+feature.
+
+=head1 AUTHORS
+
+Current Maintainers:
+
+=over 4
+
+=item *
+
+Daniel Gempesaw <gempesaw@gmail.com>
+
+=item *
+
+Emmanuel Peroumalnaïk <peroumalnaik.emmanuel@gmail.com>
+
+=back
+
+Previous maintainers:
+
+=over 4
+
+=item *
+
+Luke Closs <cpan@5thplane.com>
+
+=item *
+
+Mark Stosberg <mark@stosberg.com>
+
+=back
+
+Original authors:
+
+=over 4
+
+=item *
+
+Aditya Ivaturi <ivaturi@gmail.com>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2010-2011 Aditya Ivaturi, Gordon Child
+
+Copyright (c) 2014-2017 Daniel Gempesaw
+
+Licensed under the Apache License, Version 2.0 (the "License");
+you may not use this file except in compliance with the License.
+You may obtain a copy of the License at
+
+http://www.apache.org/licenses/LICENSE-2.0
+
+Unless required by applicable law or agreed to in writing, software
+distributed under the License is distributed on an "AS IS" BASIS,
+WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+See the License for the specific language governing permissions and
+limitations under the License.
+
+=cut