#!perl

# B::Generate.pm comments say "MUST FIX CONSTANTS", 2x, with *emphasis*.
# Whats more, OP_LIST value has changed over releases.
# So we better test for it.

# 1st test is baseline, not even using/testing B::Generate.  This
# insures that we get failure reports until we get right
# release-dependent values, which we reverify using B-Gen in 2nd test

# 2nd test uses a constant declared inside B::Generate, which was
# formerly hard-coded, but now calls B::opnumber().
# The test is rather pedantic

use Test::More tests => 4;
use_ok 'B';
use_ok 'B::Generate';

my $ref = B::opnumber("list");
my $check = &B::OP::OP_LIST;
my $check2 = B::OP::OP_LIST();

# the constness isnt seen w/o hints (&,())
my $check3 = B::OP::OP_LIST;

ok ($ref == $check, "B & B-Gen agree that OP_LIST == $ref");
ok ($ref == $check2, "B & B-Gen agree that OP_LIST == $ref");


__END__