In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/779bc08a2d09bac4ec2647fa667f7926626950b1?hp=dcb21ed695e1607e7f38d24d60022fda943f55e2>
- Log ----------------------------------------------------------------- commit 779bc08a2d09bac4ec2647fa667f7926626950b1 Author: Nicholas Clark <[email protected]> Date: Fri Oct 22 08:24:18 2010 +0100 Better diagnostics for XS::APItest::test_cv_getset_call_checker(). ----------------------------------------------------------------------- Summary of changes: ext/XS-APItest/APItest.xs | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index 55aa1de..efd9b3e 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -7,6 +7,7 @@ typedef SV *SVREF; typedef PTR_TBL_t *XS__APItest__PtrTable; #define croak_fail() croak("fail at " __FILE__ " line %d", __LINE__) +#define croak_fail_ne(h, w) croak("fail %p!=%p at " __FILE__ " line %d", (h), (w), __LINE__) /* for my_cxt tests */ @@ -1839,7 +1840,8 @@ test_cv_getset_call_checker() #define check_cc(cv, xckfun, xckobj) \ do { \ cv_get_call_checker((cv), &ckfun, &ckobj); \ - if (ckfun != (xckfun) || ckobj != (xckobj)) croak_fail(); \ + if (ckfun != (xckfun)) croak_fail_ne(FPTR2DPTR(void *, ckfun), xckfun); \ + if (ckobj != (xckobj)) croak_fail_ne(FPTR2DPTR(void *, ckobj), xckobj); \ } while(0) troc_cv = get_cv("XS::APItest::test_rv2cv_op_cv", 0); tsh_cv = get_cv("XS::APItest::test_savehints", 0); -- Perl5 Master Repository
