X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-Size.git;a=blobdiff_plain;f=t%2Fcode.t;h=eed077908dbde1c34902fbe3ce537568ad3d20ba;hp=f2e1e2625f7e29cb213f4a1f9652beab9727f310;hb=75510c888a93290158c2310b4e24495de6f5c692;hpb=cd50b0d77d60aae0711ec4b6e55f0f706a8d4e41 diff --git a/t/code.t b/t/code.t index f2e1e26..eed0779 100644 --- a/t/code.t +++ b/t/code.t @@ -15,8 +15,13 @@ my $swoosh_size = total_size(\&swoosh); my $crunch_size = total_size(\&crunch); cmp_ok($whack_size, '>', 0, 'CV generated at runtime has a size'); -cmp_ok($zwapp_size, '>', $whack_size, - 'CV stubbed at compiletime is larger (CvOUTSIDE is set and followed)'); +if("$]" >= 5.017) { + cmp_ok($zwapp_size, '==', $whack_size, + 'CV stubbed at compiletime is the same size'); +} else { + cmp_ok($zwapp_size, '>', $whack_size, + 'CV stubbed at compiletime is larger (CvOUTSIDE is set and followed)'); +} cmp_ok(length prototype \&swoosh, '>', 0, 'prototype has a length'); cmp_ok($swoosh_size, '>', $zwapp_size + length prototype \&swoosh, 'prototypes add to the size');