| 
      
            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();  |