#!/usr/bin/env perl -w

use strict;
use warnings 'all';
use Test::More 'no_plan';

use_ok('Apache2::ASP::ConfigLoader');

for( 1...1 )
{
  my $config = Apache2::ASP::ConfigLoader->load;

  is(
    $config->errors->error_handler => 'My::ErrorHandler'
  );
  
  is(
    $config->system->settings->mysetting => 'value'
  );
  is(
    $config->system->settings->mysetting2 => 'value2'
  );
  
  foreach my $setting ( $config->system->settings )
  {
    like $setting->{name}, qr/^mysetting2?$/;
    like $setting->{value}, qr/^value2?$/;
  }# end foreach()
  
  is(
    $ENV{myvar} => 'value'
  );
  is(
    $ENV{myvar2} => 'value2'
  );
}