BEGIN { use_ok 'Test::Code' or die }

ok defined *::is_code{CODE},
    '&is_code should be exported to our namespace';
is_code sub { 1 }, sub { 1 }, 
    'Basic subs should match';

is_code sub { 2 }, sub { 1+1 }, 
    '... even if the exact text is not the same';
is_code
    sub { print((3 * 4) + shift) },
    sub { print  3 * 4  + shift  },
    '... and parens that do not affect the meaning should work';

ok defined *::isnt_code{CODE}, 
    '&isnt_code should be exported to our namespace';

# How many people would spot the following bug, eh?  It's something 
# I know I've fallen victim to ...
isnt_code
    sub { print (3 * 4) + shift },
    sub { print  3 * 4  + shift },
    '... and parens that do affect the meaning should fail';

isnt_code
    sub { print for 1 .. 4 },
    sub { for (1 .. 4) { print } },
    'Subtle lexical issues should cause the match to fail (darn it)';