#!/usr/bin/env perl
use strict;
BEGIN {
use_ok('BEGIN::Lift');
}
sub foo;
our $EXCEPTION;
BEGIN {
eval {
BEGIN::Lift::install(
('main', 'foo') => sub { $_[0] * 2 }
);
1;
} or do {
$EXCEPTION = "$@";
};
like(
$EXCEPTION,
qr/Cannot install the lifted keyword \(foo\) into package \(main\) when that typeglob \(\*main\:\:foo\) already exists/,
'... got the error expected'
);
}
done_testing;
1;