#!/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;
use constant TESTS => 40;
=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';
}
ok( get_yaml('required_external_ref') , "have required_external_ref.yml file" ); # check for required yaml file
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( 'YNEGLH Newcastle', 'OK: expected location found');
is( $mech->field('external_reference'), '', 'OK: external ref field blank');
}
done_testing(TESTS);
