6 use Test::More tests => 126;
10 use_ok('C4::Barcodes');
16 hbyymmincr => ['MAIN'],
20 my ($obj1,$obj2,$format,$value,$initial,$serial,$re,$next,$previous,$temp);
21 my @formats = sort keys %thash;
23 my $pre = sprintf '(%-12s)', $_;
24 ok($obj1 = C4::Barcodes->new($_), "$pre Barcode Creation : new($_)");
25 ok($_ eq ($format = $obj1->autoBarcode()), "$pre autoBarcode() : " . ($format || 'FAILED') );
26 ok($initial= $obj1->initial(), "$pre initial() : " . ($initial|| 'FAILED') );
27 ok($temp = $obj1->db_max(), "$pre db_max() : " . ($temp || 'Database Empty or No Matches') );
28 ok($temp = $obj1->max(), "$pre max() : " . ($temp || 'FAILED') );
29 ok($value = $obj1->value(), "$pre value() : " . ($value || 'FAILED') );
30 ok($serial = $obj1->serial(), "$pre serial() : " . ($serial || 'FAILED') );
31 ok($temp = $obj1->is_max(), "$pre obj1->is_max() [obj1 should currently be max]");
32 diag "Creating new Barcodes object (obj2) based on the old one (obj1)\n";
33 ok($obj2 = $obj1->new(), "$pre Barcode Creation : obj2 = obj1->new()");
34 diag "$pre obj2->value: " . $obj2->value . "\n";
35 ok(not($obj1->is_max()), "$pre obj1->is_max() [obj1 should no longer be max]");
36 ok( $obj2->is_max(), "$pre obj2->is_max() [obj2 should currently be max]");
37 ok($obj2->serial == $obj1->serial + 1, "$pre obj2->serial() : " . ($obj2->serial || 'FAILED'));
38 ok($previous = $obj2->previous(), "$pre obj2->previous() : " . ($previous || 'FAILED'));
39 ok($next = $obj1->next(), "$pre obj1->next() : " . ($next || 'FAILED'));
40 ok($next->previous()->value() eq $obj1->value(), "$pre Roundtrip, value : " . ($obj1->value || 'FAILED'));
41 ok($previous->next()->value() eq $obj2->value(), "$pre Roundtrip, value : " . ($obj2->value || 'FAILED'));
45 diag "\nTesting with valid inputs:\n";
46 foreach $format (@formats) {
47 my $pre = sprintf '(%-12s)', $format;
48 foreach my $testval (@{$thash{ $format }}) {
49 ok($obj1 = C4::Barcodes->new($format,$testval), "$pre Barcode Creation : new('$format','$testval')");
50 if ($format eq 'hbyymmincr') {
51 diag "\nExtra tests for hbyymmincr\n";
54 ok($branch = $obj1->branch(), "$pre branch() : " . ($branch || 'FAILED') );
55 ok($branch eq $obj2->branch(), "$pre branch extended to derived object : " . ($obj2->branch || 'FAILED'));