Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: e36f96bd5e
Fetching contributors…

Cannot retrieve contributors at this time

15 lines (11 sloc) 0.256 kB
use lib 't/lib';
use HOpts;
use Test::More tests => 2;
{
my $o = HOpts->new;
is($o->hopts( param => 2 ), '0 2');
eval {
$o->die_in_action;
};
is($@, "Modification of a read-only %hopts attempted at t/lib/HOpts.pm line 16\n");
}
Jump to Line
Something went wrong with that request. Please try again.