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

(-)a/t/db_dependent/Barcodes.t (-11 lines)
Lines 17-23 my %thash = ( Link Here
17
    EAN13 => ['0000000695152','892685001928'],
17
    EAN13 => ['0000000695152','892685001928'],
18
);
18
);
19
19
20
print "\n";
21
my ($obj1,$obj2,$format,$value,$initial,$serial,$re,$next,$previous,$temp);
20
my ($obj1,$obj2,$format,$value,$initial,$serial,$re,$next,$previous,$temp);
22
my @formats = sort keys %thash;
21
my @formats = sort keys %thash;
23
foreach (@formats) {
22
foreach (@formats) {
Lines 28-41 foreach (@formats) { Link Here
28
        ok($_ eq ($format = $obj1->autoBarcode()),  "$pre autoBarcode()    : " . ($format || 'FAILED') );
27
        ok($_ eq ($format = $obj1->autoBarcode()),  "$pre autoBarcode()    : " . ($format || 'FAILED') );
29
        ok($initial= $obj1->initial(),              "$pre initial()        : " . ($initial|| 'FAILED') );
28
        ok($initial= $obj1->initial(),              "$pre initial()        : " . ($initial|| 'FAILED') );
30
        $temp = $obj1->db_max();
29
        $temp = $obj1->db_max();
31
        diag ".    $pre db_max()         : " . ($temp   || 'Database Empty or No Matches') ;
32
        ok($temp   = $obj1->max(),                  "$pre max()            : " . ($temp   || 'FAILED') );
30
        ok($temp   = $obj1->max(),                  "$pre max()            : " . ($temp   || 'FAILED') );
33
        ok($value  = $obj1->value(),                "$pre value()          : " . ($value  || 'FAILED') );
31
        ok($value  = $obj1->value(),                "$pre value()          : " . ($value  || 'FAILED') );
34
        ok($serial = $obj1->serial(),               "$pre serial()         : " . ($serial || 'FAILED') );
32
        ok($serial = $obj1->serial(),               "$pre serial()         : " . ($serial || 'FAILED') );
35
        ok($temp   = $obj1->is_max(),               "$pre obj1->is_max() [obj1 should currently be max]");
33
        ok($temp   = $obj1->is_max(),               "$pre obj1->is_max() [obj1 should currently be max]");
36
        diag "Creating new Barcodes object (obj2) based on the old one (obj1)\n";
37
        ok($obj2   = $obj1->new(),                  "$pre Barcode Creation : obj2 = obj1->new()");
34
        ok($obj2   = $obj1->new(),                  "$pre Barcode Creation : obj2 = obj1->new()");
38
        diag ".    $pre obj2->value: " . $obj2->value . "\n";
39
        ok(not($obj1->is_max()),                    "$pre obj1->is_max() [obj1 should no longer be max]");
35
        ok(not($obj1->is_max()),                    "$pre obj1->is_max() [obj1 should no longer be max]");
40
        ok(    $obj2->is_max(),                     "$pre obj2->is_max() [obj2 should currently be max]");
36
        ok(    $obj2->is_max(),                     "$pre obj2->is_max() [obj2 should currently be max]");
41
        ok($obj2->serial == $obj1->serial + 1,      "$pre obj2->serial()   : " . ($obj2->serial || 'FAILED'));
37
        ok($obj2->serial == $obj1->serial + 1,      "$pre obj2->serial()   : " . ($obj2->serial || 'FAILED'));
Lines 44-66 foreach (@formats) { Link Here
44
        ok($next->previous()->value() eq $obj1->value(),  "$pre Roundtrip, value : " . ($obj1->value || 'FAILED'));
40
        ok($next->previous()->value() eq $obj1->value(),  "$pre Roundtrip, value : " . ($obj1->value || 'FAILED'));
45
        ok($previous->next()->value() eq $obj2->value(),  "$pre Roundtrip, value : " . ($obj2->value || 'FAILED'));
41
        ok($previous->next()->value() eq $obj2->value(),  "$pre Roundtrip, value : " . ($obj2->value || 'FAILED'));
46
    }
42
    }
47
    print "\n";
48
}
43
}
49
44
50
diag "\nTesting with valid inputs:\n";
51
foreach $format (@formats) {
45
foreach $format (@formats) {
52
    my $pre = sprintf '(%-12s)', $format;
46
    my $pre = sprintf '(%-12s)', $format;
53
    foreach my $testval (@{$thash{ $format }}) {
47
    foreach my $testval (@{$thash{ $format }}) {
54
        ok($obj1 = C4::Barcodes->new($format,$testval),    "$pre Barcode Creation : new('$format','$testval')");
48
        ok($obj1 = C4::Barcodes->new($format,$testval),    "$pre Barcode Creation : new('$format','$testval')");
55
        if ($format eq 'hbyymmincr') {
49
        if ($format eq 'hbyymmincr') {
56
            diag "\nExtra tests for hbyymmincr\n";
57
            $obj2 = $obj1->new();
50
            $obj2 = $obj1->new();
58
            my $branch;
51
            my $branch;
59
            ok($branch = $obj1->branch(),   "$pre branch() : " . ($branch || 'FAILED') );
52
            ok($branch = $obj1->branch(),   "$pre branch() : " . ($branch || 'FAILED') );
60
            ok($branch eq $obj2->branch(),  "$pre branch extended to derived object : " . ($obj2->branch || 'FAILED'));
53
            ok($branch eq $obj2->branch(),  "$pre branch extended to derived object : " . ($obj2->branch || 'FAILED'));
61
        }
54
        }
62
        print "\n";
63
    }
55
    }
64
}
56
}
65
66
diag "done.\n";
67
- 

Return to bug 13673