| Lines 17-23
          
      
      
        Link Here | 
        
          | 17 |  | 17 |  | 
        
          | 18 | use Modern::Perl; | 18 | use Modern::Perl; | 
        
          | 19 |  | 19 |  | 
          
            
              | 20 | use Test::More tests => 9; | 20 | use Test::More tests => 10; | 
        
          | 21 | use Test::MockObject; | 21 | use Test::MockObject; | 
        
          | 22 | use Test::Exception; | 22 | use Test::Exception; | 
        
          | 23 |  | 23 |  | 
  
    | Lines 336-338
          subtest 'Koha::Exceptions::Plugin tests' => sub {
      
      
        Link Here | 
        
          | 336 |     # stringify the exception | 336 |     # stringify the exception | 
        
          | 337 |     is( "$@", "Calling 'upgrade' died for plugin $plugin_class", 'Exception stringified correctly' ); | 337 |     is( "$@", "Calling 'upgrade' died for plugin $plugin_class", 'Exception stringified correctly' ); | 
        
          | 338 | }; | 338 | }; | 
          
            
              | 339 | -  | 339 |  | 
            
              |  |  | 340 | subtest 'Koha::Exception tests' => sub { | 
            
              | 341 |  | 
            
              | 342 |     plan tests => 8; | 
            
              | 343 |  | 
            
              | 344 |     use Koha::Exception; | 
            
              | 345 |  | 
            
              | 346 |     use Exception::Class ( | 
            
              | 347 |         'Koha::Exceptions::Weird' => { | 
            
              | 348 |             isa         => 'Koha::Exception', | 
            
              | 349 |             description => 'Weird exception!', | 
            
              | 350 |             fields      => [ 'a', 'b' ] | 
            
              | 351 |         } | 
            
              | 352 |     ); | 
            
              | 353 |  | 
            
              | 354 |     my $exception_message = "This is a message"; | 
            
              | 355 |  | 
            
              | 356 |     throws_ok | 
            
              | 357 |         { Koha::Exceptions::Weird->throw( $exception_message ) } | 
            
              | 358 |         'Koha::Exception', | 
            
              | 359 |         'Exception is thrown :-D'; | 
            
              | 360 |  | 
            
              | 361 |     is( "$@", $exception_message, 'Exception not stringified if manually passed' ); | 
            
              | 362 |  | 
            
              | 363 |     throws_ok | 
            
              | 364 |         { Koha::Exceptions::Weird->throw( a => "A", b => "B" ) } | 
            
              | 365 |         'Koha::Exception', | 
            
              | 366 |         'Exception is thrown :-D'; | 
            
              | 367 |  | 
            
              | 368 |     is( | 
            
              | 369 |         "$@", | 
            
              | 370 |         "Exception 'Koha::Exceptions::Weird' thrown 'Weird exception!' with a => A, b => B\n", | 
            
              | 371 |         'Exception stringified correctly' | 
            
              | 372 |     ); | 
            
              | 373 |  | 
            
              | 374 |     throws_ok | 
            
              | 375 |         { Koha::Exceptions::Weird->throw( a => "A" ) } | 
            
              | 376 |         'Koha::Exception', | 
            
              | 377 |         'Exception is thrown :-D'; | 
            
              | 378 |  | 
            
              | 379 |     is( | 
            
              | 380 |         "$@", | 
            
              | 381 |         "Exception 'Koha::Exceptions::Weird' thrown 'Weird exception!' with a => A\n", | 
            
              | 382 |         'Exception stringified correctly, b skipped entirely' | 
            
              | 383 |     ); | 
            
              | 384 |  | 
            
              | 385 |     throws_ok | 
            
              | 386 |         { Koha::Exceptions::Weird->throw() } | 
            
              | 387 |         'Koha::Exception', | 
            
              | 388 |         'Exception is thrown :-D'; | 
            
              | 389 |  | 
            
              | 390 |     is( | 
            
              | 391 |         "$@", | 
            
              | 392 |         "Exception 'Koha::Exceptions::Weird' thrown 'Weird exception!'\n", | 
            
              | 393 |         'Exception stringified correctly' | 
            
              | 394 |     ); | 
            
              | 395 | }; |