|
Lines 10-27
use C4::Context;
Link Here
|
| 10 |
use C4::Items; |
10 |
use C4::Items; |
| 11 |
use C4::Record; |
11 |
use C4::Record; |
| 12 |
use Koha::DateUtils; |
12 |
use Koha::DateUtils; |
|
|
13 |
use Koha::Item; |
| 13 |
|
14 |
|
| 14 |
my $dbh = C4::Context->dbh; |
15 |
my $schema = Koha::Database->new()->schema(); |
| 15 |
$dbh->{AutoCommit} = 0; |
16 |
$schema->storage->txn_begin(); |
| 16 |
$dbh->{RaiseError} = 1; |
|
|
| 17 |
|
17 |
|
| 18 |
my $module_biblio = Test::MockModule->new('C4::Biblio'); |
|
|
| 19 |
|
| 20 |
#my $title = q|The art of computer programming μΣ会é|; |
| 21 |
my $title = q|The art of computer programming|; |
18 |
my $title = q|The art of computer programming|; |
| 22 |
my $record = new_record(); |
19 |
my $record = new_record(); |
| 23 |
my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $record, q|| ); |
20 |
my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $record, q|| ); |
| 24 |
AddItem({ homebranch => 'CPL', holdingbranch => 'CPL', itype => 'CANNOT', barcode => 'my new barcode' }, $biblionumber); |
21 |
Koha::Item->new({ homebranch => 'CPL', holdingbranch => 'CPL', itype => 'CANNOT', barcode => 'my new barcode', biblionumber => $biblionumber })->store; |
|
|
22 |
|
| 25 |
|
23 |
|
| 26 |
subtest 'csv' => sub { |
24 |
subtest 'csv' => sub { |
| 27 |
plan tests => 1; |
25 |
plan tests => 1; |
|
Lines 65-71
subtest 'ris' => sub {
Link Here
|
| 65 |
biblionumbers => [ $biblionumber ], |
63 |
biblionumbers => [ $biblionumber ], |
| 66 |
format => 'ris', |
64 |
format => 'ris', |
| 67 |
}); |
65 |
}); |
| 68 |
is( $ris_data->{records_file}, qq|TY - BOOK\r\nAU - Knuth, Donald Ervin\r\nTI - $title\r\nKW - Computer programming\r\nKW - Computer algorithms\r\nER - \r\n|,); |
66 |
is( $ris_data->{records_file}, qq|TY - BOOK\r\nAU - Knuth,Donald Ervin\r\nTI - $title\r\nKW - Computer programming\r\nKW - Computer algorithms\r\nER - \r\n|,); |
| 69 |
}; |
67 |
}; |
| 70 |
|
68 |
|
| 71 |
subtest 'bibtex' => sub { |
69 |
subtest 'bibtex' => sub { |
|
Lines 74-88
subtest 'bibtex' => sub {
Link Here
|
| 74 |
biblionumbers => [ $biblionumber ], |
72 |
biblionumbers => [ $biblionumber ], |
| 75 |
format => 'bibtex', |
73 |
format => 'bibtex', |
| 76 |
}); |
74 |
}); |
| 77 |
is( $bibtex_data->{records_file}, qq|\@book{$biblionumber, |
75 |
my $expected = qq|\@book{$biblionumber,\n\tauthor = {Knuth, Donald Ervin},\n\ttitle = {The art of computer programming}\n}\n|; |
| 78 |
author = {Knuth, Donald Ervin}, |
76 |
is( $bibtex_data->{records_file}, $expected); |
| 79 |
title = {The art of computer programming} |
|
|
| 80 |
} |
| 81 |
|); |
| 82 |
}; |
77 |
}; |
| 83 |
|
78 |
|
| 84 |
sub insert_csv_profile { |
79 |
sub insert_csv_profile { |
| 85 |
my ( $params ) = @_; |
80 |
my ( $params ) = @_; |
|
|
81 |
my $dbh = C4::Context->dbh; |
| 86 |
$dbh->do(q| |
82 |
$dbh->do(q| |
| 87 |
INSERT INTO export_format(profile, description, content, csv_separator, field_separator, subfield_separator, encoding, type) VALUES (?, ?, ?, ?, ?, ?, ?, ?) |
83 |
INSERT INTO export_format(profile, description, content, csv_separator, field_separator, subfield_separator, encoding, type) VALUES (?, ?, ?, ?, ?, ?, ?, ?) |
| 88 |
|, {}, ("TEST_PROFILE4", "my desc", $params->{csv_content}, '|', ';', ',', 'utf8', 'marc') |
84 |
|, {}, ("TEST_PROFILE4", "my desc", $params->{csv_content}, '|', ';', ',', 'utf8', 'marc') |
|
Lines 136-139
sub new_record {
Link Here
|
| 136 |
return $record; |
132 |
return $record; |
| 137 |
} |
133 |
} |
| 138 |
|
134 |
|
| 139 |
done_testing; |
135 |
$schema->storage->txn_rollback(); |
| 140 |
- |
|
|