• Files
• Commits
• Log
• Graph
• Stats

#!/usr/bin/perl

use Test::WWW::Mechanize::CGIApp;
use Test::Builder::Tester;

use strict;
use warnings;

use Data::Printer;
use POSIX;

use Test::More;

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();

do_login();

{ # scan plate request with no vials registered:
    scan_plate();
    $mech->text_contains(
        'Warning: unknown vial(s) present',
        'OK: detected unknown vial IDs',
    );
}
{
    # manually add data to request_storage table:
    my $data = _plate_data();
    my %h = (
        sample        => 'dna',
        volume        => 200,
        source        => 'liquid',
        method        => 'Qiagen',
        vialId        => undef, # supplied in loop
        request_id    => 1,
        specimen_id   => 1,
        part_number   => 1,
        vial_location => undef, # supplied in loop
        concentration => 50,
    );
    while ( ($h{vial_location}, $h{vialId}) = each %$data ) {
        $h{part_number}++; # create unique
        $dbix->insert('request_storage', \%h);
    }
}


{ # scan new plate:
    scan_plate();
    import_data();
    $mech->text_contains(
        'storage location: RealTime/1/1',
        'OK: expected storage_location',
    );
}


{ # repeat:
    scan_plate();
    $mech->text_contains(
        'Rack exists in storage',
        'OK: rack already exists in storage',
    );
    # void plate:
    $mech->form_name('import-data');
    $mech->click_button( name => 'void_plate' );            #  print_and_exit();

    $mech->text_contains(
        'Confirm you want to remove all vials from plate',
        'OK: confirmation message loaded',
    );
    $mech->form_name('import-data');
    $mech->field( confirm_void_plate => 1 );
    $mech->submit();                                          # print_and_exit();
    $mech->text_contains(
        'successfully decoupled all vials from plate',
        'OK: successfully removed vials from plate',
    );
}

# fill RealTime/1/1 location (previous action emptied it):
{
    my $location = 'RealTime/1/1';
    my $plateId  = 'SA00000001';  # starting point
    for ( 1 .. 4 ) {
        my %h = (
            plateId => $plateId++,
            storage_location => $location,
        );
        $dbix->insert('storage_racks', \%h);
    }
    scan_plate();                                            # print_and_exit();
    import_data();                                           # print_and_exit();
    # auto-allocation selects next available tray (1/2):
    $mech->text_contains(
        'storage location: RealTime/1/2',
        'OK: expected storage_location',
    );
}

void_plate(); # do plate voiding action through dbix
{ # add 3 plates to RealTime/1/2 (last action removed solitary plate):
    my $location = 'RealTime/1/2';
    my $plateId  = 'SA00000005';  # starting point
    for ( 1 .. 3 ) {
        my %h = (
            plateId => $plateId++,
            storage_location => $location,
        );
        $dbix->insert('storage_racks', \%h);
    }
    scan_plate();                                            # print_and_exit();
    import_data();                                           # print_and_exit();
    # auto-allocation selects last space in 1/2:
    $mech->text_contains(
        'storage location: RealTime/1/2',
        'OK: expected storage_location',
    );
}

void_plate(); # do plate voiding action through dbix
{ # add more trays, retain empty space in 1/2 due to voiding, check this space re-allocated:
    my $location = 'RealTime/1/3';
    my $plateId  = 'SA00000008';  # starting point
    for ( 1 .. 4 ) {
        my %h = (
            plateId => $plateId++,
            storage_location => $location,
        );
        $dbix->insert('storage_racks', \%h);
    }
    scan_plate();                                            # print_and_exit();
    import_data();                                           # print_and_exit();
    # auto-allocation selects last space in 1/2 NOT 1/3:
    $mech->text_contains(
        'storage location: RealTime/1/2',
        'OK: expected storage_location',
    );
}

# void plate again, remove 1 from 1/1, check space re-allocated:
void_plate(); # do plate voiding action through dbix
{
    $dbix->delete('storage_racks', { plateId => 'SA00000001'});
    scan_plate();                                            # print_and_exit();
    import_data();                                           # print_and_exit();
    # auto-allocation selects last space in 1/1:
    $mech->text_contains(
        'storage location: RealTime/1/1',
        'OK: expected storage_location',
    );
}
done_testing(20);

sub scan_plate {
    $mech->get_ok('/storage/read_xtr_96');                   # print_and_exit();
    $mech->form_name('do_scan');
    $mech->submit();                                         # print_and_exit();
}

sub import_data {
    $mech->form_name('import-data');
    $mech->field( storage_location => 'RealTime' );
    $mech->click_button( name => 'import' );                 # print_and_exit();
}

sub void_plate { # do plate voiding action through dbix:
    # no need to specify rack_id as all are the same:
    $dbix->update('request_storage',
        { rack_id => undef, vial_location => undef } );
    $dbix->delete('storage_racks', { plateId => 'SA01234567' }); # test data plateId
}

sub _plate_data {
    my $i = 1000000001; # 10 digit number
    my @cells = map { $_ . '01' .. $_ . '12' } ( 'A' .. 'H' ); # p @cells;
    my %h = map { $_ => $i++ } @cells; # p %h;
    return \%h;
}