t/12attributes.t

   1 #!/usr/bin/perl
   2 # vim: et
   3
   4 use strict;
   5 use warnings;
   6
   7 use lib 't/lib';
   8 use lib '../t/lib';
   9
  10 use Test::More qw(no_plan);                      # last test to print
  11 use Test::Moose;
  12
  13 use_ok('MXSimpleConfigTest');
  14
  15 has_attribute_ok('MXSimpleConfigTest', 'extensions', 'extensions attribute is present');
  16
  17 has_attribute_ok('MXSimpleConfigTest', 'plugins', 'plugins attribute is present');
  18
  19 {
  20    my $config_test;
  21    eval { $config_test = MXSimpleConfigTest->new(req_attr => 'foo') };
  22    isa_ok($config_test, "MXSimpleConfigTest", "test config created");
  23    isa_ok($config_test->plugins(), 'ARRAY', 'plugins is an array');
  24    isa_ok($config_test->extensions(), 'ARRAY', 'extentions is an array');
  25 }