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 |
- |
|
|