view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More 0.88;

use App::Software::License;

local @ARGV = ('--holder=FooBar');

my $app = App::Software::License->new_with_options;

like $app->notice, qr/^\QThis software is Copyright (c)\E/i,
  'Copyright notice generated';

done_testing;

t/options.t  view on Meta::CPAN

if (-e $configfile) {
    diag 'found a config file: ', $configfile, ':';
    local $/;
    open my $fh, '<', $configfile or die "cannot open $configfile: $!";
    diag <$fh>;
}


sub test_opts {
    my ($argv, $re, $desc) = @_;
    local @ARGV = @$argv;
    like(
        App::Software::License->new_with_options->_software_license->notice,
        $re,
        $desc,
    );
}

my @warnings =
grep { !/Specified configfile '.*' does not exist, is empty, or is not readable/s }
warnings {