#! /usr/bin/env perl
# GH #390 wrong PERL_MAGIC_backref REFCOUNTED mg_flags
use strict;
my @plan;
BEGIN {
if ($ENV{PERL_CORE}) {
unshift @INC, ('t', '../../lib');
} else {
unshift @INC, 't', "blib/arch", "blib/lib";
}
require TestBC;
if ($^O eq 'MSWin32' and $ENV{APPVEYOR}) {
@plan = (skip_all => 'Overlong tests, timeout on Appveyor CI');
} else {
@plan = (tests => 1);
}
}
use Test::More @plan;
#use B::C ();
#my $todo = ($B::C::VERSION le '1.56') ? "TODO" : "";
my $todo = "TODO";
ctestok(1,'C,-O3','ccode390i',<<'EOF',$todo.' \#390 backref REFCOUNTED flag');
print test(); print test();
sub test() {
*test = sub () { "k" };
"o";
}
EOF