View | Details | Raw Unified | Return to bug 13673
Collapse All | Expand All

(-)a/t/db_dependent/Barcodes.t (-7 / +48 lines)
Lines 1-9 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use strict;
3
use Modern::Perl;
4
use warnings;
4
use Test::More tests => 73;
5
use Test::Warn;
6
7
$| = 1;
5
8
6
use Test::More tests => 66;
7
BEGIN {
9
BEGIN {
8
    use FindBin;
10
    use FindBin;
9
    use lib $FindBin::Bin;
11
    use lib $FindBin::Bin;
Lines 21-32 my ($obj1,$obj2,$format,$value,$initial,$serial,$re,$next,$previous,$temp); Link Here
21
my @formats = sort keys %thash;
23
my @formats = sort keys %thash;
22
foreach (@formats) {
24
foreach (@formats) {
23
    my $pre = sprintf '(%-12s)', $_;
25
    my $pre = sprintf '(%-12s)', $_;
24
    ok($obj1 = C4::Barcodes->new($_),           "$pre Barcode Creation : new($_)");
26
    if ($_ eq 'EAN13') {
27
        warning_like { $obj1 = C4::Barcodes->new($_); }
28
                     [ qr/not valid EAN-13 barcode/ ],
29
                     "$pre Expected complaint regarding $_ not being a valid EAN-13 barcode";
30
    }
31
    elsif ($_ eq 'annual') {
32
        warning_like { $obj1 = C4::Barcodes->new($_); }
33
                     [ qr/No max barcode (.*) found\.  Using initial value\./ ],
34
                     "$pre Expected complaint regarding no max barcode found";
35
    }
36
    elsif ($_ eq 'hbyymmincr') {
37
        warning_like { $obj1 = C4::Barcodes->new($_); }
38
                     [ qr/No existing hbyymmincr barcodes found\.  Reverting to initial value\./ ],
39
                     "$pre Expected complaint regarding no hbyymmincr barcodes found";
40
    }
41
    elsif ($_ eq 'incremental') {
42
        $obj1 = C4::Barcodes->new($_);
43
    }
44
    else {
45
        die "This should not happen! ($_)\n";
46
    }
47
    ok($obj1,           "$pre Barcode Creation : new($_)");
25
    SKIP: {
48
    SKIP: {
26
        skip "No Object Returned by new($_)", 17 unless $obj1;
49
        skip "No Object Returned by new($_)", 17 unless $obj1;
27
        ok($_ eq ($format = $obj1->autoBarcode()),  "$pre autoBarcode()    : " . ($format || 'FAILED') );
50
        ok($_ eq ($format = $obj1->autoBarcode()),  "$pre autoBarcode()    : " . ($format || 'FAILED') );
28
        ok($initial= $obj1->initial(),              "$pre initial()        : " . ($initial|| 'FAILED') );
51
        ok($initial= $obj1->initial(),              "$pre initial()        : " . ($initial|| 'FAILED') );
29
        $temp = $obj1->db_max();
52
        if ($_ eq 'hbyymmincr') {
53
            warning_like { $temp = $obj1->db_max(); }
54
                         [ qr/No existing hbyymmincr barcodes found\.  Reverting to initial value\./ ],
55
                         "$pre Expected complaint regarding no hbyymmincr barcodes found";
56
        }
57
        else {
58
            $temp = $obj1->db_max();
59
        }
30
        ok($temp   = $obj1->max(),                  "$pre max()            : " . ($temp   || 'FAILED') );
60
        ok($temp   = $obj1->max(),                  "$pre max()            : " . ($temp   || 'FAILED') );
31
        ok($value  = $obj1->value(),                "$pre value()          : " . ($value  || 'FAILED') );
61
        ok($value  = $obj1->value(),                "$pre value()          : " . ($value  || 'FAILED') );
32
        ok($serial = $obj1->serial(),               "$pre serial()         : " . ($serial || 'FAILED') );
62
        ok($serial = $obj1->serial(),               "$pre serial()         : " . ($serial || 'FAILED') );
Lines 45-56 foreach (@formats) { Link Here
45
foreach $format (@formats) {
75
foreach $format (@formats) {
46
    my $pre = sprintf '(%-12s)', $format;
76
    my $pre = sprintf '(%-12s)', $format;
47
    foreach my $testval (@{$thash{ $format }}) {
77
    foreach my $testval (@{$thash{ $format }}) {
48
        ok($obj1 = C4::Barcodes->new($format,$testval),    "$pre Barcode Creation : new('$format','$testval')");
49
        if ($format eq 'hbyymmincr') {
78
        if ($format eq 'hbyymmincr') {
79
            warning_like { $obj1 = C4::Barcodes->new($format,$testval); }
80
                         [ qr/No existing hbyymmincr barcodes found\.  Reverting to initial value\./ ],
81
                         "$pre Expected complaint regarding no hbyymmincr barcodes found";
82
            ok($obj1,    "$pre Barcode Creation : new('$format','$testval')");
50
            $obj2 = $obj1->new();
83
            $obj2 = $obj1->new();
51
            my $branch;
84
            my $branch;
52
            ok($branch = $obj1->branch(),   "$pre branch() : " . ($branch || 'FAILED') );
85
            ok($branch = $obj1->branch(),   "$pre branch() : " . ($branch || 'FAILED') );
53
            ok($branch eq $obj2->branch(),  "$pre branch extended to derived object : " . ($obj2->branch || 'FAILED'));
86
            ok($branch eq $obj2->branch(),  "$pre branch extended to derived object : " . ($obj2->branch || 'FAILED'));
54
        }
87
        }
88
        elsif ($format eq 'EAN13') {
89
            warning_like { $obj1 = C4::Barcodes->new($format,$testval) }
90
                         [ qr/not valid EAN-13 barcode/ ],
91
                         "$pre Expected complaint regarding $testval not being a valid EAN-13 barcode";
92
            ok($obj1,    "$pre Barcode Creation : new('$format','$testval')");
93
        }
94
        else {
95
            ok($obj1 = C4::Barcodes->new($format,$testval),    "$pre Barcode Creation : new('$format','$testval')");
96
        }
55
    }
97
    }
56
}
98
}
57
- 

Return to bug 13673