In article <[EMAIL PROTECTED]>,
[EMAIL PROTECTED] (Jarkko Hietaniemi) wrote:
> - stabilize XS::APItest on Win32
I don't know much about what is going on in APItest, but I get this on
Mac OS:
1..11
ok 1 - use XS::APItest;
ok 2 - saving STDOUT
ok 3 - redirecting STDOUT
ok 4 - restore STDOUT
ok 5 - open foo.out
# Test output by reading from file
ok 6 - captured at least four output lines
ok 7 - print_double
ok 8 - print_int
ok 9 - print_long
ok 10 - print_float
not ok 11 - print_long_double
# Failed test (::ext:XS:APItest:t:printf.t at line 52)
# got: undef
# expected: '7.000'
# Looks like you failed 1 tests of 11.
It looks like maybe I am lying in config.h and saying I have long
doubles, when I don't. Sure enough, config.h has HAS_LONG_DOUBLES
undefined. What gives?
int
have_long_double()
CODE:
#ifdef HAS_LONG_DOUBLE
RETVAL = 1;
#else
RETVAL = 0;
#endif
Ooops, no OUTPUT! On Linux and Mac OS, I get this:
[pudge@yaz perltest]$ ./perl -Ilib -MXS::APItest -le 'print
have_long_double()'
*main::have_long_double
I expect 1 or 0. Patch:
--- APItest.xs.old Wed Jun 12 22:43:10 2002
+++ APItest.xs Wed Jun 12 23:57:24 2002
@@ -20,6 +20,8 @@
#else
RETVAL = 0;
#endif
+ OUTPUT:
+ RETVAL
void
print_long_double()
Now I am happy on XS::APItest.
--
Chris Nandor [EMAIL PROTECTED] http://pudge.net/
Open Source Development Network [EMAIL PROTECTED] http://osdn.com/
