package XS::APItest; use 5.008; use strict; use warnings; use Carp; 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 ); our $VERSION = '0.01'; bootstrap XS::APItest $VERSION; 1; __END__ =head1 NAME XS::APItest - Test the perl C API =head1 SYNOPSIS use XS::APItest; print_double(4); =head1 ABSTRACT This module tests the perl C API. Currently tests that C works correctly. =head1 DESCRIPTION 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. =head2 EXPORT Exports all the test functions: =over 4 =item B Test that a double-precision floating point number is formatted correctly by C. print_double( $val ); Output is sent to STDOUT. =item B Test that a C is formatted correctly by C. Takes no arguments - the test value is hard-wired into the function (as "7"). print_long_double(); Output is sent to STDOUT. =item B Determine whether a C is supported by Perl. This should be used to determine whether to test C. print_long_double() if have_long_double; =item B Test that an C is formatted correctly by C. print_nv( $val ); Output is sent to STDOUT. =item B Test that an C is formatted correctly by C. print_iv( $val ); Output is sent to STDOUT. =item B Test that an C is formatted correctly by C. print_uv( $val ); Output is sent to STDOUT. =item B Test that an C is formatted correctly by C. print_int( $val ); Output is sent to STDOUT. =item B Test that an C is formatted correctly by C. print_long( $val ); Output is sent to STDOUT. =item B Test that a single-precision floating point number is formatted correctly by C. print_float( $val ); Output is sent to STDOUT. =back =head1 SEE ALSO L, L. =head1 AUTHORS Tim Jenness, Et.jenness@jach.hawaii.eduE, Christian Soeller, Ecsoelle@mph.auckland.ac.nzE, Hugo van der Sanden Ehv@crypt.compulink.co.ukE =head1 COPYRIGHT AND LICENSE Copyright (C) 2002 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. =cut