use strict;

use Test::More 'no_plan';
use File::Spec;

use Bigtop::Keywords;

#----------------------------------------------------------------------
# Make sure the docs exist
#----------------------------------------------------------------------

my $base_dir = File::Spec->catdir( qw( docs keyword_cookbook ) );
my $doc_for  = Bigtop::Keywords->get_full_doc_hash();

if ( -d $base_dir ) {
    pass( 'Keyword cookbook dir found' );
}
else {
    fail( 'Keyword cookbook missing, quitting' );
    exit;
}

foreach my $keyword_type ( keys %{ $doc_for } ) {
    foreach my $keyword ( keys %{ $doc_for->{ $keyword_type } } ) {
        my $subdir = File::Spec->catdir( $base_dir, $keyword_type, $keyword );
        if ( -d $subdir ) {
            pass( "$subdir present" );

            my $discuss = File::Spec->catfile( $subdir, 'discussion' );
            my $example = File::Spec->catfile( $subdir, 'example' );

            if ( -f $discuss ) { pass( "$discuss exists" ); }
            else               { fail( "$discuss absent" ); }

            if ( -f $example ) { pass( "$example exists" ); }
            else               { fail( "$example absent" ); }
        }
        else {
            fail( "$subdir absent" );
        }
    }
}