8 use base qw/ DynaLoader Exporter /;
10 # Items to export into callers namespace by default. Note: do not export
11 # names by default without a very good reason. Use EXPORT_OK instead.
12 # Do not simply export all your public functions/methods/constants.
14 # Export everything since these functions are only used by a test script
15 our @EXPORT = qw( print_double print_int print_long
16 print_float print_long_double have_long_double print_flush
17 mpushp mpushn mpushi mpushu
18 mxpushp mxpushn mxpushi mxpushu
21 our $VERSION = '0.04';
23 bootstrap XS::APItest $VERSION;
30 XS::APItest - Test the perl C API
39 This module tests the perl C API. Currently tests that C<printf>
44 This module can be used to check that the perl C API is behaving
45 correctly. This module provides test functions and an associated
46 test script that verifies the output.
48 This module is not meant to be installed.
52 Exports all the test functions:
58 Test that a double-precision floating point number is formatted
59 correctly by C<printf>.
63 Output is sent to STDOUT.
65 =item B<print_long_double>
67 Test that a C<long double> is formatted correctly by
68 C<printf>. Takes no arguments - the test value is hard-wired
69 into the function (as "7").
73 Output is sent to STDOUT.
75 =item B<have_long_double>
77 Determine whether a C<long double> is supported by Perl. This should
78 be used to determine whether to test C<print_long_double>.
80 print_long_double() if have_long_double;
84 Test that an C<NV> is formatted correctly by
89 Output is sent to STDOUT.
93 Test that an C<IV> is formatted correctly by
98 Output is sent to STDOUT.
102 Test that an C<UV> is formatted correctly by
107 Output is sent to STDOUT.
111 Test that an C<int> is formatted correctly by
116 Output is sent to STDOUT.
120 Test that an C<long> is formatted correctly by
125 Output is sent to STDOUT.
129 Test that a single-precision floating point number is formatted
130 correctly by C<printf>.
134 Output is sent to STDOUT.
140 L<XS::Typemap>, L<perlapi>.
144 Tim Jenness, E<lt>t.jenness@jach.hawaii.eduE<gt>,
145 Christian Soeller, E<lt>csoelle@mph.auckland.ac.nzE<gt>,
146 Hugo van der Sanden E<lt>hv@crypt.compulink.co.ukE<gt>
148 =head1 COPYRIGHT AND LICENSE
150 Copyright (C) 2002 Tim Jenness, Christian Soeller, Hugo van der Sanden.
153 This library is free software; you can redistribute it and/or modify
154 it under the same terms as Perl itself.