This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
XS-APItest/t/call.t: make loops more flexible
authorDavid Mitchell <davem@iabyn.com>
Wed, 10 Jun 2015 15:20:00 +0000 (16:20 +0100)
committerDavid Mitchell <davem@iabyn.com>
Fri, 19 Jun 2015 07:44:18 +0000 (08:44 +0100)
commita1f85fba6cf7499b0b79f72dea735d683ee0c946
treea1f0416ed68e1d1edc85751ba2bc1b910ab446d4
parent334ea179145c48d0a781ab77c8b4d619e0036cf6
XS-APItest/t/call.t: make loops more flexible

There's a loop which tests eval_pv, eval_sv, call_sv with various
types of argument. Currently the argument is determined by an integer
in a loop (0..3) with various values derived on an ad-hoc basis
from that index. Instead put all the data into an array of arrays
and iterate over that instead.

Similarly for the function names (eval_pv et al), loop over the names
rather than over 0..2.

This should make no functional change to what is tested, but makes the
test code clearer and more expandable.
ext/XS-APItest/t/call.t