view release on metacpan or  search on metacpan

t/PageAndroid.t  view on Meta::CPAN

use IO::Socket::INET;
use IPC::Cmd qw/can_run/;
use Test::Spec;

plan skip_all => "Release tests not required for installation."
  unless $ENV{RELEASE_TESTING};

my $has_appium_server = IO::Socket::INET->new(
    PeerAddr => 'localhost',
    PeerPort => 4723,
    Timeout => 2
);
plan skip_all => "No Appium server found" unless $has_appium_server;
plan skip_all => 'No adb found' unless can_run('adb');

my $devices = `adb devices`;
my $is_device_available = $devices =~ /device$|emulator/m;
plan skip_all => 'No running android devices found: ' . $devices
  unless $is_device_available;

describe 'Android Page command' => sub {

t/PageIos.t  view on Meta::CPAN

use IO::Socket::INET;
use IPC::Cmd qw/can_run/;
use Test::More;

plan skip_all => "Release tests not required for installation."
  unless $ENV{RELEASE_TESTING};

my $sock = IO::Socket::INET->new(
    PeerAddr => 'localhost',
    PeerPort => 4723,
    Timeout => 4
);
plan skip_all => "No Appium server found" unless $sock;

my $xcrun = can_run('xcrun');
plan skip_all => "No xcrun binary found" unless $xcrun;

my $sdk = `$xcrun --sdk iphonesimulator -show-sdk-version` + 0;

my $test_app = dirname(abs_path(__FILE__)) . '/fixture/TestApp.zip';