use strict;
use warnings;

### after: use lib qw(@RT_LIB_PATH@);
use lib qw(/opt/rt4/local/lib /opt/rt4/lib)

BEGIN {
    $INC{'RT/CustomFieldValues/ExternalConditonCF.pm'} = __FILE__;
    package RT::CustomFieldValues::ExternalConditonCF;
    use strict;
    use warnings;

    use base qw(RT::CustomFieldValues::External);

    sub SourceDescription {
        return 'External values for CF';
    }

    sub ExternalValues {
        my $self = shift;
        my @res = (
            {name => 'Passed', sortorder => 0},
            {name => 'Failed', sortorder => 1},
            {name => 'Schrödingerized', sortorder => 2},
        );
        return (\@res);
    }

    1;
}

package main;

use RT::Extension::ConditionalCustomFields::Test tests => 28;

use WWW::Mechanize::PhantomJS;

RT->Config->Set(CustomFieldValuesSources => 'RT::CustomFieldValues::ExternalConditonCF');
RT->Config->Set('RestrictReferrer', undef);

my $cf_condition = RT::CustomField->new(RT->SystemUser);
$cf_condition->Create(Name => 'Condition', Type => 'Select', MaxValues => 1, RenderType => 'Dropdown', Queue => 'General', ValuesClass => 'RT::CustomFieldValues::ExternalConditonCF');
my $cf_values = $cf_condition->Values->ItemsArrayRef;

my $cf_conditioned_by = RT::CustomField->new(RT->SystemUser);
$cf_conditioned_by->Create(Name => 'ConditionedBy', Type => 'Freeform', MaxValues => 1, Queue => 'General');

my $cf_conditioned_by_child = RT::CustomField->new(RT->SystemUser);
$cf_conditioned_by_child->Create(Name => 'Child', Type => 'Freeform', MaxValues => 1, Queue => 'General', BasedOn => $cf_conditioned_by->id);

my ($base, $m) = RT::Extension::ConditionalCustomFields::Test->started_ok;
ok($m->login, 'Logged in agent');

$m->follow_link_ok({ id => 'admin-custom-fields-create' }, 'CustomField create link');
$m->content_lacks('Customfield is conditioned by', 'No ConditionedBy on CF creation');

$m->get_ok($m->rt_base_url . 'Admin/CustomFields/Modify.html?id=' . $cf_condition->id, 'Condition CF modify form');
my $cf_condition_form = $m->form_name('ModifyCustomField');
my $cf_condition_CF_select = $cf_condition_form->find_input('ConditionalCF');
my @cf_condition_CF_values = $cf_condition_CF_select->possible_values;
is($cf_condition_CF_values[0], '', 'No other select CF');

$m->get_ok($m->rt_base_url . 'Admin/CustomFields/Modify.html?id=' . $cf_conditioned_by->id, 'ConditionBy CF modify form');
my $cf_conditioned_by_form = $m->form_name('ModifyCustomField');
my $cf_conditioned_by_CF_select = $cf_conditioned_by_form->find_input('ConditionalCF');
my @cf_conditioned_by_CF_options = $cf_conditioned_by_CF_select->possible_values;
is(scalar(@cf_conditioned_by_CF_options), 3, 'Can be conditioned by select cf');
is($cf_conditioned_by_CF_options[0], '', 'Can be conditioned by nothing');
is($cf_conditioned_by_CF_options[1], $cf_conditioned_by_child->id, 'Can be conditioned by Child CF');
is($cf_conditioned_by_CF_options[2], $cf_condition->id, 'Can be conditioned by Condition CF');

my $mjs = WWW::Mechanize::PhantomJS->new();
$mjs->driver->ua->timeout(600);
$mjs->get($m->rt_base_url . '?user=root;pass=password');
$mjs->get($m->rt_base_url . 'Admin/CustomFields/Modify.html?id=' . $cf_conditioned_by->id);
ok($mjs->content =~ /Customfield is conditioned by/, 'Can be conditioned by select cf (with js)');

@cf_conditioned_by_CF_options = $mjs->xpath('//select[@name="ConditionalCF"]/option');
is($cf_conditioned_by_CF_options[0]->get_value, '', 'Can be conditioned by nothing (with js)');
is($cf_conditioned_by_CF_options[1]->get_value, $cf_conditioned_by_child->id, 'Can be conditioned by Child CF (with js)');
is($cf_conditioned_by_CF_options[2]->get_value, $cf_condition->id, 'Can be conditioned by Condition CF (with js)');

$cf_conditioned_by_CF_select = $mjs->xpath('//select[@name="ConditionalCF"]', single => 1);
$mjs->field($cf_conditioned_by_CF_select, $cf_condition->id);
$mjs->eval_in_page("jQuery('select[name=ConditionalCF]').trigger('change');");

my @cf_conditioned_by_CFV_options = $mjs->xpath('//input[@name="ConditionedBy"]');
is(scalar(@cf_conditioned_by_CFV_options), 3, 'Three values available for conditioned by');
is($cf_conditioned_by_CFV_options[0]->get_value, $cf_values->[0]->Name, 'First value for conditioned by');
is($cf_conditioned_by_CFV_options[1]->get_value, $cf_values->[1]->Name, 'Second value for conditioned by');
is($cf_conditioned_by_CFV_options[2]->get_value, $cf_values->[2]->Name, 'Third value for conditioned by');

my $cf_conditioned_by_CFV_1 = $mjs->xpath('//input[@value="' . $cf_values->[0]->Name . '"]', single => 1);
$cf_conditioned_by_CFV_1->click;
my $cf_conditioned_by_CFV_2 = $mjs->xpath('//input[@value="' . $cf_values->[2]->Name . '"]', single => 1);
$cf_conditioned_by_CFV_2->click;
$mjs->click('Update');
my $conditioned_by = $cf_conditioned_by->ConditionedBy;
is($conditioned_by->{CF}, $cf_condition->id, 'ConditionedBy CF');
is(scalar(@{$conditioned_by->{vals}}), 2, 'ConditionedBy two vals');
is($conditioned_by->{vals}->[0], $cf_values->[0]->Name, 'ConditionedBy first val');
is($conditioned_by->{vals}->[1], $cf_values->[2]->Name, 'ConditionedBy second val');