File: 04_magic.t

package info (click to toggle)
libconfig-auto-perl 0.44-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 164 kB
  • sloc: perl: 397; makefile: 2
file content (20 lines) | stat: -rw-r--r-- 456 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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" );
}