#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

use Test::Most tests => 5;
use lib qw ( lib );

use_ok('My::NewModule::Apache');

my $apache_config_path = 't/conf/etc/apache2/sites-available';
my $virtual_host_name = 'aac.example.com.conf';
my $config_file = "$apache_config_path/$virtual_host_name";

is($config_file,'t/conf/etc/apache2/sites-available/aac.example.com.conf',"Our config file is: $config_file");

my $conf = new Apache::Admin::Config ( "$config_file", -indent => 2 )
    or die $Apache::Admin::Config::ERROR;

$conf->save('-reformat');

isa_ok($conf,'Apache::Admin::Config');

my @result = $conf->select( 'section' );
foreach my $result ( @result ){
  isa_ok($result,'Apache::Admin::Config::Tree');
  is($result->name,'VirtualHost','Found our Virtual Host container for ' . $result->value);
  # print 'Name: ' . $result->name . ' : ' . $result->value . "\n";
  # warn Dumper( $result );
  foreach my $child ( $result->select( 'directive' ) ){
    # isa_ok($child,'Apache::Admin::Config::Tree');

    print 'Directive: ' . $child->name . ' : ' . $child->value . "\n";
  }
  foreach my $section_child ( $result->select( 'section' ) ){
    # isa_ok($section_child,'Apache::Admin::Config::Tree');
    print 'Section: ' . $section_child->name . ' : ' . $section_child->value . "\n";
    warn Dumper( $section_child->select('directive') ); # ->select('directive') );
    foreach my $x ( @{$section_child->select('directive')} ){
      print $x->name . "\n";
    }
  }

}

# warn Dumper($conf->section('VirtualHost'));