| Subject: | cygwin test fixes |
cygwin builds out of the box. just some patches to make the tests run smoother.
2004-08-12 20:41:22 rurban@x-ray.at
Builds out of the box. just make the tests run smoother.
--- C-DynaLib-0.55/test.pl~ 1998-04-30 00:02:17.000000000 +0100
+++ C-DynaLib-0.55/test.pl 2004-08-12 19:46:34.930374600 +0100
@@ -47,7 +47,8 @@
$libc = new C::DynaLib($Config{'libc'} || "-lc");
if (! $libc) {
- if ($^O =~ /win32/i) {
+ # cygwin has no shared libc.so, just static. same for libm.so
+ if ($^O =~ /(MSWin32)|(cygwin)/) {
$libc = new C::DynaLib("MSVCRT40") || new C::DynaLib("MSVCRT20");
} elsif ($^O =~ /linux/i) {
# Some glibc versions install "libc.so" as a linker script,
@@ -197,12 +198,15 @@
$got = &$sub(-1);
# Can't do this because it's broken in too many Perl versions:
- # $expected = unpack("I", pack("i", -1));
+ if ($^O eq 'cygwin') {
+ $expected = unpack("I", pack("i", -1));
+ } else {
$expected = 0;
for ($i = 1; $i > 0; $i <<= 1) {
$expected += $i;
}
$expected -= $i;
+ }
assert(1, $got, $expected);
$int_size = length(pack("i",0));