#!/usr/bin/perl

use Test::WWW::Mechanize::CGIApp;
use Data::Printer;
use Test::More;

use strict;
use warnings;

=begin # tests:
Load records into registration form using request_form table pre-populated
with NGIS request details. Does not actually regsiter a new request. Tests for
correct operation of required_external_reference function. Tests for presence
& absence of required_external_ref session key
=cut

BEGIN {
    require 't/test-lib.pl';
}

my $mech = get_mech();

my $dbh;

eval {
    $dbh = get_dbh() or die 'no database handle recieved from get_dbh';
};

warn $@ if $@;

my $dbix = get_dbix();
my $cfg  = get_config(); # p $cfg->{settings}; exit;

drop_and_recreate($_) for qw/request_form/;
do_login();

my $ngis_id_1 = 'D000001';
my $ngis_id_2 = 'D000002';

{ # new db entries:
    # GeNEQ location (check it exist or create new):
    unless ( $dbix->select( 'referral_sources', 1,
            { organisation_code => 'GENEQN' } )->list ) {
        $dbix->insert('parent_organisations', { parent_code => 'GENEQN',
            description => 'GENEQ NEWCASTLE', referral_type_id => 3 });
        my $parent_id = get_last_insert_id('parent_organisations');
        my %h = ( display_name => 'GeNEQ Newcastle', organisation_code => 'GENEQN',
            parent_organisation_id => $parent_id, referral_type_id => 3 );
        $dbix->insert('referral_sources', \%h);
    }
    unless ( $dbix->select( 'referral_sources', 1,
            { organisation_code => 'GENEQS' } )->list ) {
        $dbix->insert('parent_organisations', { parent_code => 'GENEQS',
            description => 'GENEQ SHEFFIELD', referral_type_id => 3 });
        my $parent_id = get_last_insert_id('parent_organisations');
        my %h = ( display_name => 'GeNEQ Sheffield', organisation_code => 'GENEQS',
            parent_organisation_id => $parent_id, referral_type_id => 3 );
        $dbix->insert('referral_sources', \%h);
    }
    # referrer & referrer_department for GeNEQ location (check exist or create new):
    unless ( $dbix->select( 'referrers', 1,
            { national_code => 'C2345678' })->list ) {
        $dbix->insert('referrers', { name => 'White A', national_code => 'C2345678',
            referral_type_id => 1 });
        my $ref_id = get_last_insert_id('referrers');
        $dbix->select('parent_organisations', 'id', { parent_code => 'GENEQN' })
            ->into(my $parent_id);
        $dbix->insert('referrer_department', { parent_organisation_id => $parent_id,
            referrer_id => $ref_id, hospital_department_code => 823 }); # haem OK for this
    }
    # referrer & referrer_department for GeNEQ location (check exist or create new):
    unless ( $dbix->select( 'referrers', 1,
            { national_code => 'C3456789' })->list ) {
        $dbix->insert('referrers', { name => 'Silver A', national_code => 'C3456789',
            referral_type_id => 1 });
        my $ref_id = get_last_insert_id('referrers');
        $dbix->select('parent_organisations', 'id', { parent_code => 'GENEQS' })
            ->into(my $parent_id);
        $dbix->insert('referrer_department', { parent_organisation_id => $parent_id,
            referrer_id => $ref_id, hospital_department_code => 823 }); # haem OK for this
    }
    { # register 2 new request_form rows:
        {
            my $ref_src_id = $dbix->select('referral_sources', 'id', 
                { organisation_code => 'GENEQN' })->list;
            my %h = ( # patient already registered in patients:
                id => $ngis_id_2, last_name => 'brown', first_name => 'stan',
                dob => '1960-04-10', gender => 'M', nhs_number => 2222222222,
                location_name => 'GeNEQ Newcastle', location_id => $ref_src_id,
                user_id => 1, referrer => 'White A [Molecular Genetics]',
                requested_by => 'Black T'
            );
            $dbix->insert('request_form', \%h);
        }
        {
            my $ref_src_id = $dbix->select('referral_sources', 'id', 
                { organisation_code => 'GENEQS' })->list;
            my %h = ( # patient doesn't already exist:
                id => $ngis_id_1, last_name => 'gray', first_name => 'olive',
                dob => '1966-07-11', gender => 'F', nhs_number => 3333333333,
                location_name => 'GeNEQ Sheffield', location_id => $ref_src_id,
                user_id => 1, referrer => 'Silver E [Molecular Genetics]',
                requested_by => 'Brown S'
            );
            $dbix->insert('request_form', \%h);
        }
    }
}
{ # new request for patient not already registered:
    $mech->get_ok('/register');                              # print_and_exit();
    $mech->form_name('request_form');

    $mech->submit_form( fields => { id => $ngis_id_1 } );    # print_and_exit();
    $mech->content_contains( 'Found 0 records', 'OK: record loaded');
    # session has required_external_ref key:
    $mech->get_ok('/test/dump_session');                     # print_and_exit();
    $mech->content_contains('required_external_ref',
        'OK: session contains expected key');
    # back to form:
    $mech->back();                                           # print_and_exit();
    $mech->submit();
    $mech->content_contains( 'New request', 'OK: patient record not loaded'); # print_and_exit();
    is( $mech->field('external_reference'),
       $ngis_id_1, 'OK: expected NGIS id loaded as external ref' );

    # session no longer contains required_external_ref:
    $mech->get_ok('/test/dump_session');                     # print_and_exit();
    $mech->content_lacks('required_external_ref',
        'OK: expected session key cleared');
}
{ # new request for patient who *is* already registered:
    $mech->get_ok('/register');                              # print_and_exit();
    $mech->form_name('request_form');

    $mech->submit_form( fields => { id => $ngis_id_2 } );    # print_and_exit();
    $mech->text_contains( 'Found 1 record', 'OK: patient record loaded');
    # session has required_external_ref key:
    $mech->get_ok('/test/dump_session');                     # print_and_exit();
    $mech->content_contains('required_external_ref',
        'OK: session contains expected key');                # print_and_exit();

    # back to form:
    $mech->back();                                           # print_and_exit();
    $mech->follow_link_ok( { url_regex => qr/select/i },
        'select patient using link' );                       # print_and_exit();
    $mech->text_contains('Add new location', 'OK: have new location textbox');

    $dbix->select('referral_sources', 'id', { organisation_code => 'GENEQN' })
        ->into( my $ref_src_id ); # warn $ref_src_id;
    $mech->field( referral_source_id => $ref_src_id ); # don't need unit num or location name
    $mech->submit();                                         # print_and_exit();

    $mech->content_contains( 'New request', 'OK: record loaded' ); # print_and_exit();
    is( $mech->field('external_reference'),
       $ngis_id_2, 'OK: expected NGIS id loaded as external ref' );
    # session no longer contains required_external_ref:
    $mech->get_ok('/test/dump_session');                     # print_and_exit();
    $mech->content_lacks('required_external_ref',
        'OK: expected session key cleared');
}
{ # register same patient as above but to other location, check NGIS id NOT loaded:
    $mech->get_ok('/register');                              # print_and_exit();
    $mech->form_name('register');

    $mech->submit_form( fields => { patient_no => 2222222222 } );  # print_and_exit();
    $mech->text_contains( 'Found 1 record', 'OK: patient record loaded');
    # session does not contain required_external_ref:
    $mech->get_ok('/test/dump_session');                     # print_and_exit();
    $mech->content_lacks('required_external_ref',
        'OK: session does not contain required_external_ref key');

    # back to form:
    $mech->back();                                           # print_and_exit();
    $mech->follow_link_ok( { url_regex => qr/select/i },
        'select patient using link' );                       # print_and_exit();
    $mech->text_contains('Add new location', 'OK: have new location textbox');

    # there are 2 'new' links, select 1st:
    $mech->follow_link_ok( { text => 'New', n => 1 }, 'following 1st link to New' ); # print_and_exit();
    $mech->text_contains( 'Newtown General Infirmary', 'OK: expected location found');
    is( $mech->field('external_reference'), '', 'OK: external ref field blank');
    # repeat and select 2nd link (GeNEQ Newcastle location):
    $mech->get_ok('/register');                              # print_and_exit();
    $mech->form_name('register');

    $mech->submit_form( fields => { patient_no => 2222222222 } ); # print_and_exit();
    $mech->text_contains( 'Found 1 record', 'OK: patient record loaded' );
    # session does not contain required_external_ref:
    $mech->get_ok('/test/dump_session');                     # print_and_exit();
    $mech->content_lacks('required_external_ref',
        'OK: session does not contain required_external_ref key');

    # back to form:
    $mech->back();                                           # print_and_exit();
    $mech->follow_link_ok( { url_regex => qr/select/i },
        'select patient using link' );                        # print_and_exit();
    # there are 2 'new' links, select 2nd:
    $mech->follow_link_ok( { text => 'New', n => 2 }, 'following 2nd link to New' ); # print_and_exit();
    $mech->text_contains( 'GeNEQ Newcastle', 'OK: expected location found');
    is( $mech->field('external_reference'), '', 'OK: external ref field blank');
}

done_testing(39);