Permalink
Browse files

cffi-tests: fix bug in ullong(); mark expected failure.

DEFCFUN.UNSIGNED-LONG-LONG fails on Allegro: lp#914500.
  • Loading branch information...
1 parent b8211e7 commit 3a9775cce4ae5491424192f6184f3d0dbd1d097d @luismbo luismbo committed Jan 10, 2012
Showing with 4 additions and 1 deletion.
  1. +3 −0 tests/defcfun.lisp
  2. +1 −1 tests/libtest.c
View
3 tests/defcfun.lisp
@@ -174,6 +174,9 @@
(defcfun "ullong" :unsigned-long-long
(n :unsigned-long-long))
+ #+allegro ; lp#914500
+ (pushnew 'defcfun.unsigned-long-long rt::*expected-failures*)
+
(deftest defcfun.unsigned-long-long
(let ((ullong-max (1- (expt 2 (* 8 (foreign-type-size :unsigned-long-long))))))
(eql ullong-max (ullong ullong-max)))
View
2 tests/libtest.c
@@ -87,7 +87,7 @@ long long my_llabs(long long n)
DLLEXPORT
unsigned long long ullong(unsigned long long n)
{
- return n == ULLONG_MAX ? n : -1;
+ return n == ULLONG_MAX ? n : 42;
}
/*

0 comments on commit 3a9775c

Please sign in to comment.