use base qw
/ DynaLoader Exporter /;
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
# Export everything since these functions are only used by a test script
our @EXPORT = qw( print_double print_int print_long
print_float print_long_double have_long_double print_flush
mpushp mpushn mpushi mpushu
mxpushp mxpushn mxpushi mxpushu
call_sv call_pv call_method eval_sv eval_pv require_pv
G_SCALAR G_ARRAY G_VOID G_DISCARD G_EVAL G_NOARGS
G_KEEPERR G_NODEBUG G_METHOD
bootstrap XS
::APItest
$VERSION;
XS::APItest - Test the perl C API
This module tests the perl C API. Currently tests that C<printf>
This module can be used to check that the perl C API is behaving
correctly. This module provides test functions and an associated
test script that verifies the output.
This module is not meant to be installed.
Exports all the test functions:
Test that a double-precision floating point number is formatted
Output is sent to STDOUT.
=item B<print_long_double>
Test that a C<long double> is formatted correctly by
C<printf>. Takes no arguments - the test value is hard-wired
into the function (as "7").
Output is sent to STDOUT.
=item B<have_long_double>
Determine whether a C<long double> is supported by Perl. This should
be used to determine whether to test C<print_long_double>.
print_long_double() if have_long_double;
Test that an C<NV> is formatted correctly by
Output is sent to STDOUT.
Test that an C<IV> is formatted correctly by
Output is sent to STDOUT.
Test that an C<UV> is formatted correctly by
Output is sent to STDOUT.
Test that an C<int> is formatted correctly by
Output is sent to STDOUT.
Test that an C<long> is formatted correctly by
Output is sent to STDOUT.
Test that a single-precision floating point number is formatted
Output is sent to STDOUT.
=item B<call_sv>, B<call_pv>, B<call_method>
These exercise the C calls of the same names. Everything after the flags
arg is passed as the the args to the called function. They return whatever
the C function itself pushed onto the stack, plus the return value from
the function; for example
call_sv( sub { @_, 'c' }, G_ARRAY, 'a', 'b'); # returns 'a', 'b', 'c', 3
call_sv( sub { @_ }, G_SCALAR, 'a', 'b'); # returns 'b', 1
Evaluates the passed SV. Result handling is done the same as for
Exercises the C function of the same name in scalar context. Returns the
same SV that the C function returns.
Exercises the C function of the same name. Returns nothing.
L<XS::Typemap>, L<perlapi>.
Tim Jenness, E<lt>t.jenness@jach.hawaii.eduE<gt>,
Christian Soeller, E<lt>csoelle@mph.auckland.ac.nzE<gt>,
Hugo van der Sanden E<lt>hv@crypt.compulink.co.ukE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2002,2004 Tim Jenness, Christian Soeller, Hugo van der Sanden.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.