Prefer using VMG_OP_INFO_* constants in t/35-stash.t

diff --git a/t/35-stash.t b/t/35-stash.t
index 54c6b16b7048e5f55b0a93cfc4063977a5bd864e..13336f7c4cfb042f972ef42e56b60154f6ee6d9d 100644 (file)
--- a/t/35-stash.t
+++ b/t/35-stash.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More;
 
-use Variable::Magic qw/wizard cast dispell VMG_UVAR/;
+use Variable::Magic qw/wizard cast dispell VMG_UVAR VMG_OP_INFO_NAME VMG_OP_INFO_OBJECT/;
 
 my $run;
 if (VMG_UVAR) {
@@ -114,7 +114,7 @@ CB
 
 $code .= ', data => sub { +{ guard => 0 } }';
 
-$wiz = eval $code . ', op_info => 1';
+$wiz = eval $code . ', op_info => ' . VMG_OP_INFO_NAME;
 diag $@ if $@;
 
 {
@@ -128,14 +128,14 @@ eval q{
  meh();
 };
 
-is $@, "ok\n", 'stash: function call with op_info 1 compiled fine';
+is $@, "ok\n", 'stash: function call with op name compiled fine';
 
 {
  no strict 'refs';
  dispell %{"Hlagh::"}, $wiz;
 }
 
-$wiz = eval $code . ', op_info => 2';
+$wiz = eval $code . ', op_info => ' . VMG_OP_INFO_OBJECT;
 diag $@ if $@;
 
 {
@@ -149,7 +149,7 @@ eval q{
  wat();
 };
 
-is $@, "ok\n", 'stash: function call with op_info 2 compiled fine';
+is $@, "ok\n", 'stash: function call with op object compiled fine';
 
 {
  no strict 'refs';