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

(-)a/t/db_dependent/Koha_Database.t (-4 / +18 lines)
Lines 1-10 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
#
2
#
3
3
4
use strict;
4
use Modern::Perl;
5
use warnings;
5
use utf8;
6
6
7
use Test::More tests => 9;
7
use Test::More tests => 10;
8
8
9
BEGIN {
9
BEGIN {
10
    use_ok('Koha::Database');
10
    use_ok('Koha::Database');
Lines 25-27 ok( $new_schema = $database->new_schema(), 'Try to get a new schema' ); Link Here
25
ok( $database->set_schema($new_schema), 'Switch to new schema' );
25
ok( $database->set_schema($new_schema), 'Switch to new schema' );
26
ok( $database->restore_schema(),        'Switch back' );
26
ok( $database->restore_schema(),        'Switch back' );
27
27
28
- 
28
# run in a transaction
29
$schema->storage->txn_begin();
30
31
# clear the way
32
$schema->resultset('Category')->search({ categorycode => 'GIFT-RUS' })->delete;
33
my $gift = 'подарок';
34
$schema->resultset('Category')->create({
35
    categorycode => 'GIFT-RUS',
36
    description  => $gift,
37
});
38
my $desc = $schema->resultset('Category')->search({
39
    categorycode => 'GIFT-RUS',
40
})->single->get_column('description');
41
is($desc, $gift, 'stored and retrieved UTF8 string');
42
$schema->storage->txn_rollback();

Return to bug 11906