• Files
• Commits
• Log
• Graph
• Stats

#!/usr/bin/perl

use Test::Class::Load qw(t/lib/DataFor);
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 $dbname = 'lims_test';
my $dbix = get_dbix($dbname);
my $cfg  = get_config(); # p $cfg->{settings}; exit;

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

# new db entries for NGIS data:
drop_and_recreate($_) for qw/request_form/;
my $ngis_data = NGIS->new( dbix => $dbix )->run($ngis_id_1, $ngis_id_2);

do_login();

{ # 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);