#! /usr/bin/perl

use strict;
use warnings;
use Selenium::Firefox::Binary;
use Selenium::Chrome;
use Selenium::PhantomJS;
use Selenium::Firefox;
use Test::More;

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

PHANTOMJS: {
    my $version = `phantomjs -v` // '';
    chomp $version;

    skip 'PhantomJS binary not found in path', 3
      unless is_proper_phantomjs_available($version);

    my $phantom = Selenium::PhantomJS->new;
    is( $phantom->browser_name, 'phantomjs', 'binary phantomjs is okay');
    isnt( $phantom->port, 4444, 'phantomjs can start up its own binary');

    ok( Selenium::BinaryModeBuilder::probe_port( $phantom->port ), 'the phantomjs binary is listening on its port');
}

CHROME: {
    # TODO: fix this test, as it's a hack that depends entirely on the
    # node module protractor's included `webdriver-manager` binary.
    $ENV{PATH} .= ':/usr/local/lib/node_modules/protractor/selenium';

    my $chrome = Selenium::Chrome->new;
    ok( $chrome->browser_name eq 'chrome', 'convenience chrome is okay' );
    isnt( $chrome->port, 4444, 'chrome can start up its own binary');

    ok( Selenium::BinaryModeBuilder::probe_port( $chrome->port ), 'the chrome binary is listening on its port');
}

FIREFOX: {
    my $binary = Selenium::Firefox::Binary::firefox_path();
    ok(-x $binary, 'we can find some sort of firefox');

    my $command = Selenium::BinaryModeBuilder::_construct_command('firefox', 1234);
    ok($command =~ /firefox -no-remote/, 'firefox command has proper args');

    my $firefox = Selenium::Firefox->new;
    isnt( $firefox->port, 4444, 'firefox can start up its own binary');
    ok( Selenium::BinaryModeBuilder::probe_port( $firefox->port ), 'the firefox binary is listening on its port');
}

sub is_proper_phantomjs_available {
    my ($ver) = @_;

    $ver =~ s/\.\d$//;
    return $ver >= 1.9;
}

done_testing;