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 'no_plan';

BEGIN { chdir 't' if -d 't'; }


my $Class   = 'Config::Auto';

use_ok( $Class );

### find a config file based on $0
{   my $obj = $Class->new( path => ['src'] );
    ok( $obj,                   "Object created" );
    isa_ok( $obj, $Class,       "   Object" );

    my $file = $obj->file;
    ok( $file,                  "   File found: $file" );
    ok( -e $file,               "   File exists" );
}