|
Lines 83-104
$schema->storage->txn_begin;
Link Here
|
| 83 |
}; |
83 |
}; |
| 84 |
|
84 |
|
| 85 |
|
85 |
|
| 86 |
$schema->storage->txn_begin; |
|
|
| 87 |
|
| 88 |
subtest 'Test generation of hbyymmincr barcodes from DB values' => sub { |
86 |
subtest 'Test generation of hbyymmincr barcodes from DB values' => sub { |
| 89 |
|
87 |
|
|
|
88 |
$schema->storage->txn_begin; |
| 90 |
plan tests => 5; |
89 |
plan tests => 5; |
| 91 |
|
90 |
|
| 92 |
$builder->schema->resultset( 'Issue' )->delete_all; |
91 |
$builder->schema->resultset( 'Issue' )->delete_all; |
| 93 |
$builder->schema->resultset( 'Item' )->delete_all; |
92 |
$builder->schema->resultset( 'Item' )->delete_all; |
| 94 |
|
93 |
|
| 95 |
my$barcode_branch = $builder->build({ |
94 |
my $branchcode_1 = "LETTERS"; #NOTE: This barcode type supports only letters in the branchcode |
| 96 |
source => 'Branch', |
|
|
| 97 |
branchcode => 'LETTERS', |
| 98 |
}); |
| 99 |
|
| 100 |
my $branchcode_1 = "LETT"; |
| 101 |
print "$branchcode_1\n"; |
| 102 |
my $barcodeobj; |
95 |
my $barcodeobj; |
| 103 |
|
96 |
|
| 104 |
warnings_are { $barcodeobj = C4::Barcodes->new('hbyymmincr'); } |
97 |
warnings_are { $barcodeobj = C4::Barcodes->new('hbyymmincr'); } |
|
Lines 145-150
subtest 'Test generation of hbyymmincr barcodes from DB values' => sub {
Link Here
|
| 145 |
$schema->storage->txn_rollback; |
138 |
$schema->storage->txn_rollback; |
| 146 |
}; |
139 |
}; |
| 147 |
|
140 |
|
|
|
141 |
|
| 142 |
$schema->storage->txn_begin; |
| 143 |
|
| 148 |
$builder->schema->resultset( 'Issue' )->delete_all; |
144 |
$builder->schema->resultset( 'Issue' )->delete_all; |
| 149 |
$builder->schema->resultset( 'Item' )->delete_all; |
145 |
$builder->schema->resultset( 'Item' )->delete_all; |
| 150 |
|
146 |
|
|
Lines 246-250
foreach $format (@formats) {
Link Here
|
| 246 |
} |
242 |
} |
| 247 |
} |
243 |
} |
| 248 |
|
244 |
|
| 249 |
$schema->storage->txn_rollback; |
245 |
$schema->storage->txn_rollback; |
| 250 |
|
246 |
|
| 251 |
- |
|
|