view release on metacpan or  search on metacpan

t/16-namespace_clean.t  view on Meta::CPAN

#!perl
use strict;
use warnings all => 'FATAL';
use Test::More;
use Test::More;
use FindBin qw/ $Bin /;
use lib "$Bin/lib";

local $ENV{TEST_FORCE_COLUMN_SIZE} = 78;

BEGIN {
    use Module::Runtime qw(use_module);
    eval { use_module("TestNamespaceClean") }
        or plan skip_all => "This test needs namespace::clean";
}

ok( TestNamespaceClean->new, 'TestNamespaceClean is a package' );

{
    local @ARGV = ( '--foo', '12' );
    my $i = TestNamespaceClean->new_with_options;
    is $i->foo, 12, 'value save properly';
}

done_testing;