t/SGN/Exception.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5
   6 use SGN::Exception;
   7
   8 {
   9     my $e = SGN::Exception->new( public_message => 'foo foo foo', notify => 0, is_client_error => 1 );
  10     ok( ! $e->is_server_error, 'is not a server error' );
  11     ok( $e->is_client_error, 'IS a client error' );
  12     is( $e->http_status, 400, 'right http status' );
  13     ok( ! $e->notify, 'notify off' );
  14 }
  15
  16 {
  17     my $e = SGN::Exception->new( public_message => 'foo foo foo', notify => 0, is_server_error => 1 );
  18     ok( $e->is_server_error, 'IS a server error' );
  19     ok( ! $e->is_client_error, 'is NOT a client error' );
  20     is( $e->http_status, 500, 'right http status' );
  21     ok( ! $e->notify, 'notify off' );
  22 }
  23
  24 done_testing;