1use Sub::Install;
2use Test::More 'no_plan';
3
4use strict;
5use warnings;
6
7BEGIN { use_ok("Sub::Install"); }
8
9my $code = sub { return 'FOO' };
10
11bless $code, "Sub::Install::Bogus";
12
13Sub::Install::install_sub({
14  code => $code,
15  as   => 'code',
16});
17
18is(code(), "FOO", "installed sub is OK");
19
20