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

(-)a/t/db_dependent/Biblio/BuildBiblioDataForExport.t (-15 / +10 lines)
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
- 

Return to bug 13345