for (@tests) {
my ($key, $var, $init, $test, $exp) = @$_;
for (@tests) {
my ($key, $var, $init, $test, $exp) = @$_;
isa_ok $op, $exp->[1], $desc;
is $op->name, $exp->[0], "$desc gets the right op info";
} else {
isa_ok $op, $exp->[1], $desc;
is $op->name, $exp->[0], "$desc gets the right op info";
} else {