XS::APItest - Test the perl C API
use XS::APItest;
print_double(4);
This module tests the perl C API. Currently tests that printf
works correctly.
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 correctly by printf
.
print_double( $val );
Output is sent to STDOUT.
Test that a long double
is formatted correctly by printf
. Takes no arguments - the test value is hard-wired into the function (as "7").
print_long_double();
Output is sent to STDOUT.
Determine whether a long double
is supported by Perl. This should be used to determine whether to test print_long_double
.
print_long_double() if have_long_double;
Test that an NV
is formatted correctly by printf
.
print_nv( $val );
Output is sent to STDOUT.
Test that an IV
is formatted correctly by printf
.
print_iv( $val );
Output is sent to STDOUT.
Test that an UV
is formatted correctly by printf
.
print_uv( $val );
Output is sent to STDOUT.
Test that an int
is formatted correctly by printf
.
print_int( $val );
Output is sent to STDOUT.
Test that an long
is formatted correctly by printf
.
print_long( $val );
Output is sent to STDOUT.
Test that a single-precision floating point number is formatted correctly by printf
.
print_float( $val );
Output is sent to STDOUT.
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 call_sv()
etc.
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.
Tim Jenness, <t.jenness@jach.hawaii.edu>, Christian Soeller, <csoelle@mph.auckland.ac.nz>, Hugo van der Sanden <hv@crypt.compulink.co.uk>
Copyright (C) 2002,2004 Tim Jenness, Christian Soeller, Hugo van der Sanden. All Rights Reserved.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.