Lines Matching refs:op
21 # Read the op names and descriptions directly from opcode.pl
22 my @op;
38 my ($op, $opname) = split /\t+/;
39 push @op, [$op, $opname, $code{$op}];
43 plan(tests => scalar @op);
46 my ($op, $opname, $code) = @_;
47 pass("$op : skipped") and return if $code =~ /^SKIP/;
48 pass("$op : skipped") and return if $code =~ m://|~~: && $] < 5.010;
50 $c->deny_only($op);
52 like($@, qr/'\Q$opname\E' trapped by operation mask/, $op);
55 foreach (@op) {