use strict;
use warnings;

use Test::More;

if ( $ENV{REGRESSION_TESTS} ) {
    plan tests => 8;
}
else {
    plan skip_all => 'Regression tests are not enabled.';
}

# We will test deprecated API and don't want the warnings
# cluttering STDERR
$SIG{__WARN__} = sub {};

use RPC::ExtDirect::Config;

my @methods = qw(router_path poll_path remoting_var polling_var);

my %expected_get_for = (
    router_path  => '/extdirectrouter',
    poll_path    => '/extdirectevents',
    remoting_var => 'Ext.app.REMOTING_API',
    polling_var  => 'Ext.app.POLLING_API',
);

for my $method ( @methods ) {
    my $get_sub  = 'get_'.$method;

    my $result   = eval { RPC::ExtDirect::Config->$get_sub() };
    my $expected = $expected_get_for{ $method };

    is $@,      '',        "$method get eval $@";
    is $result, $expected, "$method get result";
};