view release on metacpan or  search on metacpan

t/02-exceptions.t  view on Meta::CPAN

use strict;
use warnings;

use lib 't/lib';

use Test::More tests => 3;
use Test::Fatal;
use App::Environ;
use App::Environ::Config;

t_module_class_not_specified();
t_event_name_not_specified();
t_config_not_initialized();


sub t_module_class_not_specified {
  like(
    exception {
      App::Environ->register;
    },
    qr/Module class must be specified/,
    'module class not specified'
  );

  return;
}

sub t_event_name_not_specified {
  like(
    exception {
      App::Environ->send_event;
    },
    qr/Event name must be specified/,
    'event name notspecified'
  );

  return;

}

sub t_config_not_initialized {
  like(
    exception {
      App::Environ::Config->instance;
    },
    qr/must be initialized first/,
    'config not initialized'
  );

  return;
}