perl-compiler/t/issue81.t

#! /usr/bin/env perl
# http://code.google.com/p/perl-compiler/issues/detail?id=81
# store cv prototypes
use Test::More tests => 3;
use strict;
BEGIN {
  unshift @INC, 't';
  require "test.pl";
}
my $name='ccode81i';
my $script = <<'EOF';
sub int::check {1}    #create int package for types
sub x(int,int) { @_ } #cvproto
print "o" if prototype \&x eq "int,int";
sub y($) { @_ } #cvproto
print "k" if prototype \&y eq "\$";
EOF

use B::C;
my $todo = ($B::C::VERSION lt '1.37' ? "TODO " : "");
plctestok(1, $name, $script, "${todo}BC cvproto");
ctestok(2, "C", $name, $script, "${todo}C cvproto");
$todo = ($B::C::VERSION lt '1.43' ? "TODO " : "");
ctestok(3, "CC", $name, $script, "${todo}CC cvproto");