view release on metacpan or  search on metacpan

t/02_getopt.t  view on Meta::CPAN

my $file = file('', 'tmp', 'foo');

for my $class (qw(Foo Bar)) {
    my $obj = $class->new( dir => "$dir", file => [ '', 'tmp', 'foo' ] );
    isa_ok $obj => $class;
    isa_ok $obj->dir  => 'Path::Class::Dir';
    isa_ok $obj->file => 'Path::Class::File';
    is $obj->dir  => $dir;
    is $obj->file => $file;

    local @ARGV = qw(--dir /tmp --file /tmp/foo);
    my $opt = $class->new_with_options;
    isa_ok $opt => $class;
    isa_ok $opt->dir  => 'Path::Class::Dir';
    isa_ok $opt->file => 'Path::Class::File';
    is $opt->dir  => $dir;
    is $opt->file => $file;
}

done_testing;