The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More 0.88;
use File::Spec::Functions qw/catfile/;

use App::Ylastic::CostAgent;

my @cases = (
  {
    label => 'Valid config', 
    file => 'config.ini',
  },
  {
    label => 'Valid with dashed AWS account numbers', 
    file => 'config-dashes.ini',
  },
);

for my $c ( @cases ) {
  my $file = catfile( 't', 'data', $c->{file} );
  my $obj = new_ok( 'App::Ylastic::CostAgent', [config_file => $file], $c->{label} );
}

done_testing;