view release on metacpan or  search on metacpan

t/Opcodes.t  view on Meta::CPAN

#!perl -w
BEGIN { $| = 1 } # Autoflush
use Test::More;

use Opcodes;
use Opcode qw(opset_to_ops full_opset);
use strict;

plan( tests => 18 );

# --- ensure all matching Opcode

my @full_l1  = opset_to_ops(full_opset);
ok @full_l1 == opcodes(), "opcodes == opset_to_ops(full_opset)";
my @full_l2 = map { $_->[1] } opcodes(); # names only
ok "@full_l1" eq "@full_l2", "opnames match, correct order";

# --- opdesc and other opcodes properties

my $gv = opname2code('gv');
ok $gv, "opname2code gv";
ok opdesc($gv) eq "glob value", "opdesc";
@full_l1 = opcodes();
ok @full_l1, "opcodes";