|
Packit |
b3426c |
#define PERL_NO_GET_CONTEXT 1
|
|
Packit |
b3426c |
#include "EXTERN.h"
|
|
Packit |
b3426c |
#include "perl.h"
|
|
Packit |
b3426c |
#include "rv2cvopcv_callchecker0.h"
|
|
Packit |
b3426c |
#include "XSUB.h"
|
|
Packit |
b3426c |
|
|
Packit |
b3426c |
#define PERL_VERSION_DECIMAL(r,v,s) (r*1000000 + v*1000 + s)
|
|
Packit |
b3426c |
#define PERL_DECIMAL_VERSION \
|
|
Packit |
b3426c |
PERL_VERSION_DECIMAL(PERL_REVISION,PERL_VERSION,PERL_SUBVERSION)
|
|
Packit |
b3426c |
#define PERL_VERSION_GE(r,v,s) \
|
|
Packit |
b3426c |
(PERL_DECIMAL_VERSION >= PERL_VERSION_DECIMAL(r,v,s))
|
|
Packit |
b3426c |
|
|
Packit |
b3426c |
MODULE = t::rv2cvopcv PACKAGE = t::rv2cvopcv
|
|
Packit |
b3426c |
|
|
Packit |
b3426c |
PROTOTYPES: DISABLE
|
|
Packit |
b3426c |
|
|
Packit |
b3426c |
void
|
|
Packit |
b3426c |
test_rv2cv_op_cv()
|
|
Packit |
b3426c |
PROTOTYPE:
|
|
Packit |
b3426c |
PREINIT:
|
|
Packit |
b3426c |
GV *troc_gv;
|
|
Packit |
b3426c |
CV *troc_cv;
|
|
Packit |
b3426c |
OP *o;
|
|
Packit |
b3426c |
CODE:
|
|
Packit |
b3426c |
#define croak_fail() croak("fail at " __FILE__ " line %d", __LINE__)
|
|
Packit |
b3426c |
troc_gv = gv_fetchpv("t::rv2cvopcv::test_rv2cv_op_cv", 0, SVt_PVGV);
|
|
Packit |
b3426c |
troc_cv = get_cv("t::rv2cvopcv::test_rv2cv_op_cv", 0);
|
|
Packit |
b3426c |
(void) gv_fetchpv("t::rv2cvopcv::wibble", 0, SVt_PVGV);
|
|
Packit |
b3426c |
o = newCVREF(0, newGVOP(OP_GV, 0, troc_gv));
|
|
Packit |
b3426c |
if (rv2cv_op_cv(o, 0) != troc_cv) croak_fail();
|
|
Packit |
b3426c |
if (rv2cv_op_cv(o, RV2CVOPCV_RETURN_NAME_GV) != (CV*)troc_gv)
|
|
Packit |
b3426c |
croak_fail();
|
|
Packit |
b3426c |
o->op_private |= OPpENTERSUB_AMPER;
|
|
Packit |
b3426c |
if (rv2cv_op_cv(o, 0)) croak_fail();
|
|
Packit |
b3426c |
if (rv2cv_op_cv(o, RV2CVOPCV_RETURN_NAME_GV)) croak_fail();
|
|
Packit |
b3426c |
o->op_private &= ~OPpENTERSUB_AMPER;
|
|
Packit |
b3426c |
if (cUNOPx(o)->op_first->op_private & OPpEARLY_CV) croak_fail();
|
|
Packit |
b3426c |
if (rv2cv_op_cv(o, RV2CVOPCV_MARK_EARLY) != troc_cv) croak_fail();
|
|
Packit |
b3426c |
if (cUNOPx(o)->op_first->op_private & OPpEARLY_CV) croak_fail();
|
|
Packit |
b3426c |
op_free(o);
|
|
Packit |
b3426c |
o = newSVOP(OP_CONST, 0, newSVpv("t::rv2cvopcv::test_rv2cv_op_cv", 0));
|
|
Packit |
b3426c |
o->op_private = OPpCONST_BARE;
|
|
Packit |
b3426c |
o = newCVREF(0, o);
|
|
Packit |
b3426c |
if (rv2cv_op_cv(o, 0) != troc_cv) croak_fail();
|
|
Packit |
b3426c |
if (rv2cv_op_cv(o, RV2CVOPCV_RETURN_NAME_GV) != (CV*)troc_gv)
|
|
Packit |
b3426c |
croak_fail();
|
|
Packit |
b3426c |
o->op_private |= OPpENTERSUB_AMPER;
|
|
Packit |
b3426c |
if (rv2cv_op_cv(o, 0)) croak_fail();
|
|
Packit |
b3426c |
if (rv2cv_op_cv(o, RV2CVOPCV_RETURN_NAME_GV)) croak_fail();
|
|
Packit |
b3426c |
op_free(o);
|
|
Packit |
b3426c |
o = newCVREF(0, newSVOP(OP_CONST, 0, newRV_inc((SV*)troc_cv)));
|
|
Packit |
b3426c |
#if PERL_VERSION_GE(5,11,2)
|
|
Packit |
b3426c |
if (rv2cv_op_cv(o, 0) != troc_cv) croak_fail();
|
|
Packit |
b3426c |
if (rv2cv_op_cv(o, RV2CVOPCV_RETURN_NAME_GV) != (CV*)troc_gv)
|
|
Packit |
b3426c |
croak_fail();
|
|
Packit |
b3426c |
#else /* <5.11.2 */
|
|
Packit |
b3426c |
if (rv2cv_op_cv(o, 0)) croak_fail();
|
|
Packit |
b3426c |
if (rv2cv_op_cv(o, RV2CVOPCV_RETURN_NAME_GV)) croak_fail();
|
|
Packit |
b3426c |
#endif /* <5.11.2 */
|
|
Packit |
b3426c |
o->op_private |= OPpENTERSUB_AMPER;
|
|
Packit |
b3426c |
if (rv2cv_op_cv(o, 0)) croak_fail();
|
|
Packit |
b3426c |
if (rv2cv_op_cv(o, RV2CVOPCV_RETURN_NAME_GV)) croak_fail();
|
|
Packit |
b3426c |
o->op_private &= ~OPpENTERSUB_AMPER;
|
|
Packit |
b3426c |
if (cUNOPx(o)->op_first->op_private & OPpEARLY_CV) croak_fail();
|
|
Packit |
b3426c |
#if PERL_VERSION_GE(5,11,2)
|
|
Packit |
b3426c |
if (rv2cv_op_cv(o, RV2CVOPCV_MARK_EARLY) != troc_cv) croak_fail();
|
|
Packit |
b3426c |
#else /* <5.11.2 */
|
|
Packit |
b3426c |
if (rv2cv_op_cv(o, RV2CVOPCV_MARK_EARLY)) croak_fail();
|
|
Packit |
b3426c |
#endif /* <5.11.2 */
|
|
Packit |
b3426c |
if (cUNOPx(o)->op_first->op_private & OPpEARLY_CV) croak_fail();
|
|
Packit |
b3426c |
op_free(o);
|
|
Packit |
b3426c |
o = newCVREF(0, newUNOP(OP_RAND, 0, newSVOP(OP_CONST, 0, newSViv(0))));
|
|
Packit |
b3426c |
if (rv2cv_op_cv(o, 0)) croak_fail();
|
|
Packit |
b3426c |
if (rv2cv_op_cv(o, RV2CVOPCV_RETURN_NAME_GV)) croak_fail();
|
|
Packit |
b3426c |
o->op_private |= OPpENTERSUB_AMPER;
|
|
Packit |
b3426c |
if (rv2cv_op_cv(o, 0)) croak_fail();
|
|
Packit |
b3426c |
if (rv2cv_op_cv(o, RV2CVOPCV_RETURN_NAME_GV)) croak_fail();
|
|
Packit |
b3426c |
o->op_private &= ~OPpENTERSUB_AMPER;
|
|
Packit |
b3426c |
if (cUNOPx(o)->op_first->op_private & OPpEARLY_CV) croak_fail();
|
|
Packit |
b3426c |
if (rv2cv_op_cv(o, RV2CVOPCV_MARK_EARLY)) croak_fail();
|
|
Packit |
b3426c |
if (cUNOPx(o)->op_first->op_private & OPpEARLY_CV) croak_fail();
|
|
Packit |
b3426c |
op_free(o);
|
|
Packit |
b3426c |
o = newUNOP(OP_RAND, 0, newSVOP(OP_CONST, 0, newSViv(0)));
|
|
Packit |
b3426c |
if (rv2cv_op_cv(o, 0)) croak_fail();
|
|
Packit |
b3426c |
if (rv2cv_op_cv(o, RV2CVOPCV_RETURN_NAME_GV)) croak_fail();
|
|
Packit |
b3426c |
op_free(o);
|
|
Packit |
b3426c |
#undef croak_fail
|