use Sub::Install;
use Test::More 'no_plan';

use strict;
use warnings;

BEGIN { use_ok("Sub::Install"); }

my $code = sub { return 'FOO' };

bless $code, "Sub::Install::Bogus";

Sub::Install::install_sub({
  code => $code,
  as   => 'code',
});

is(code(), "FOO", "installed sub is OK");