view release on metacpan or  search on metacpan

t/Commands.t  view on Meta::CPAN

#! /usr/bin/perl

use strict;
use warnings;
use JSON;
use Test::More;
use Appium::Element;
use Cwd qw/abs_path/;

BEGIN: {
    my $test_lib = abs_path(__FILE__);
    $test_lib =~ s/(.*)\/.*\.t$/$1\/lib/;
    push @INC, $test_lib;
    require MockAppium;

    unless (use_ok('Appium::Commands')) {
        BAIL_OUT("Couldn't load Appium::Commands");
        exit;
    }
}


my $mock_appium = MockAppium->new;

my @implemented = qw/
                        app_strings
                        background_app
                        close_app
                        complex_find
                        contexts
                        current_activity
                        current_context
                        end_test_coverage
                        hide_keyboard
                        install_app
                        is_app_installed
                        launch_app
                        lock
                        is_locked
                        network_connection
                        open_notifications
                        press_keycode
                        pull_file
                        pull_folder
                        push_file
                        long_press_keycode
                        remove_app
                        reset
                        set_network_connection
                        shake
                    /;

my $cmds = Appium::Commands->new->get_cmds;

DRIVER_COMMANDS: {
    foreach my $command (@implemented) {
        ok($mock_appium->can($command), 'Appium can ' . $command);

        my ($res, undef) = $mock_appium->$command( 'fake', 'args' );
        delete $cmds->{ $res->{command} };
    }
}

SWITCH_TO_COMMANDS: {
    my @switch_to_implemented = qw/ context /;

    foreach my $command (@switch_to_implemented) {
        ok($mock_appium->switch_to->can($command), 'SwitchTo can ' . $command);

        my ($res) = $mock_appium->switch_to->$command;
        delete $cmds->{ $res->{command} };
    }
}

ELEMENT_COMMANDS: {
    $mock_appium->_type('Android');
    my $elem = Appium::Element->new(
        id => 0,
        driver => $mock_appium
    );

    my @element_implemented = qw/
                                    tap
                                    set_value
                                /;
    foreach my $command (@element_implemented) {
        ok($elem->can($command), 'Appium::Element can ' . $command);

        my ($res) = $elem->$command('');
        delete $cmds->{ $res->{command} };
    }
}

# There are 77 commands that we inherit from S::R::Commands. We add
# our own, and then delete them one by one in each foreach loop
# above. A few are aliased to more expressive commands ( tap vs click,
# for example) and will subtract from the total. By the time we get
# here, there should only be the original 77 left, minus however many
# aliases are set.