[cffi-devel] how to treat expected failures in tests
Robert Goldman
rpgoldman at sift.info
Tue Mar 13 15:40:02 UTC 2012
On 3/12/12 Mar 12 -6:55 PM, Luís Oliveira wrote:
> On Sun, Mar 11, 2012 at 8:22 PM, Anton Vodonosov <avodonosov at yandex.ru> wrote:
>> As for CFFI, you can see that from 14 Lisp / OS combination we've
>> run the tests, only on two of the all the failures are known:
>> http://common-lisp.net/project/cl-test-grid/pivot_lib-lisp_ql.html
>
> Cool stuff!
>
> However, the results are a bit depressing. So many fails. :-) Perhaps
> you could show the ration of failed to total tests and maybe show
> know-fail/unexpected-ok in yellow/orange rather than red.
>
> I wonder if compilation errors could be printed. Error messages like
> this are not very helpful:
> <http://cl-test-grid.appspot.com/blob?key=AMIfv97suboJpeei-uBWzlkqcR7CTlyh0Izhvi7u_29HNBgu80ScYf0Mj6zWPjgbsosA-F0Q12HP8o9S5zhsEelTfss8_3C7sjgcuG_q_grR-jMfXPLLRzu6CNytLoNk23rwqlQ6AsajxTRYFubFbz3iBWl5uo8iZQ>.
>
> Cheers,
>
In the hopes it will be helpful, here are the test results after a git
pull of CFFI today, on Mac OS X, Allegro CL 8.2 64-bit:
21 out of 260 total tests failed: FUNCALL.VARARGS.DOUBLE,
DEFCFUN.UNSIGNED-LONG-LONG, DEFCFUN.NOOP, DEFCFUN.VARARGS.FLOAT,
DEFCFUN.VARARGS.DOUBLE, DEFCFUN.BFF.1, DEFCFUN.BFF.2,
CALLBACKS.BFF.1, CALLBACKS.BFF.2, FOREIGN-GLOBALS.REF.UPPERCASEINT2,
FOREIGN-GLOBALS.REF.UPPER-CASE-INT2,
FOREIGN-GLOBALS.REF.MIXEDCASEINT2,
FOREIGN-GLOBALS.REF.MIXED-CASE-INT2, FOREIGN-ALLOC.10, POINTERP.4,
POINTERP.5, POINTER-EQ.NON-POINTERS.1, POINTER-EQ.NON-POINTERS.2,
NULL-POINTER-P.NON-POINTER.2, STRING.ENCODING.UTF-16.BASIC,
STRING.ENCODINGS.ALL.BASIC.
16 unexpected failures: FUNCALL.VARARGS.DOUBLE, DEFCFUN.VARARGS.FLOAT,
DEFCFUN.VARARGS.DOUBLE, DEFCFUN.BFF.1, DEFCFUN.BFF.2,
CALLBACKS.BFF.2, FOREIGN-GLOBALS.REF.UPPERCASEINT2,
FOREIGN-GLOBALS.REF.UPPER-CASE-INT2,
FOREIGN-GLOBALS.REF.MIXEDCASEINT2,
FOREIGN-GLOBALS.REF.MIXED-CASE-INT2, FOREIGN-ALLOC.10, POINTERP.4,
POINTERP.5, POINTER-EQ.NON-POINTERS.1, POINTER-EQ.NON-POINTERS.2,
NULL-POINTER-P.NON-POINTER.2.
If this is the sort of thing you want, I will generate more of these. I
have a bunch of different CL implementations installed so that I can
test ASDF.
-------------- next part --------------
CL-USER> (asdf:test-system :cffi)
; Loading /Users/rpg/lisp/vendor/bordeaux-threads/bordeaux-threads.asd
;;; Compiling file /Users/rpg/lisp/rt/rt.lisp
;;; Writing fasl file
;;; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/rt/ASDF-TMP-rt.fasl
;;; Fasl write complete
;;; Compiling file
;;; /Users/rpg/lisp/vendor/bordeaux-threads/src/pkgdcl.lisp
;;; Writing fasl file
;;; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/bordeaux-threads/src/ASDF-TMP-pkgdcl.fasl
;;; Fasl write complete
; Fast loading
; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/bordeaux-threads/src/pkgdcl.fasl
;;; Compiling file
;;; /Users/rpg/lisp/vendor/bordeaux-threads/src/bordeaux-threads.lisp
;;; Writing fasl file
;;; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/bordeaux-threads/src/ASDF-TMP-bordeaux-threads.fasl
;;; Fasl write complete
; Fast loading
; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/bordeaux-threads/src/bordeaux-threads.fasl
;;; Compiling file
;;; /Users/rpg/lisp/vendor/bordeaux-threads/src/impl-allegro.lisp
;;; Writing fasl file
;;; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/bordeaux-threads/src/ASDF-TMP-impl-allegro.fasl
;;; Fasl write complete
; Fast loading
; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/bordeaux-threads/src/impl-allegro.fasl
;;; Compiling file
;;; /Users/rpg/lisp/vendor/bordeaux-threads/src/default-implementations.lisp
;;; Writing fasl file
;;; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/bordeaux-threads/src/ASDF-TMP-default-implementations.fasl
;;; Fasl write complete
; Fast loading
; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/rt/rt.fasl
; Fast loading
; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/bordeaux-threads/src/default-implementations.fasl
;;; Compiling file /Users/rpg/lisp/vendor/cffi/tests/package.lisp
;;; Writing fasl file
;;; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-package.fasl
;;; Fasl write complete
; Fast loading
; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/package.fasl
;;; Compiling file /Users/rpg/lisp/vendor/cffi/tests/bindings.lisp
;;; Writing fasl file
;;; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-bindings.fasl
;;; Fasl write complete
; Fast loading
; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/bindings.fasl
; Foreign loading libtest.dylib.
; Foreign loading /Users/rpg/lisp/vendor/cffi/tests/libtest.dylib.
; Foreign loading libtest2.dylib.
; Foreign loading /Users/rpg/lisp/vendor/cffi/tests/libtest2.dylib.
;;; Compiling file /Users/rpg/lisp/vendor/cffi/tests/funcall.lisp
; While compiling (METHOD EXPAND-TO-FOREIGN (T CHECK-NIL-SKIP-TYPE)):
Warning: Variable VAL is never used.
;;; Writing fasl file
;;; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-funcall.fasl
;;; Fasl write complete
Warning: COMPILE-FILE warned while performing
#<COMPILE-OP NIL @ #x10051dd162> on
#<CL-SOURCE-FILE "cffi-tests" "tests" "funcall">.
; Fast loading
; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/funcall.fasl
;;; Compiling file /Users/rpg/lisp/vendor/cffi/tests/defcfun.lisp
Warning: foreign ARG type :CHAR not compatible with lisp type
(INTEGER -128 127)
Warning: foreign RETURN type :CHAR not compatible with lisp type
(INTEGER -128 127)
Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type
(INTEGER 0 255)
Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type
(INTEGER 0 255)
Warning: foreign ARG type :CHAR not compatible with lisp type
(INTEGER -128 127)
Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type
(INTEGER 0 255)
Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type
(INTEGER 0 255)
Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type
(INTEGER 0 255)
Warning: foreign ARG type :CHAR not compatible with lisp type
(INTEGER -128 127)
Warning: foreign ARG type :CHAR not compatible with lisp type
(INTEGER -128 127)
Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type
(INTEGER 0 255)
Warning: foreign ARG type :CHAR not compatible with lisp type
(INTEGER -128 127)
Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type
(INTEGER 0 255)
Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type
(INTEGER 0 255)
Warning: foreign ARG type :CHAR not compatible with lisp type
(INTEGER -128 127)
Warning: foreign ARG type :CHAR not compatible with lisp type
(INTEGER -128 127)
Warning: foreign ARG type :CHAR not compatible with lisp type
(INTEGER -128 127)
Warning: foreign ARG type :CHAR not compatible with lisp type
(INTEGER -128 127)
Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type
(INTEGER 0 255)
Warning: foreign ARG type :CHAR not compatible with lisp type
(INTEGER -128 127)
Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type
(INTEGER 0 255)
Warning: foreign ARG type :CHAR not compatible with lisp type
(INTEGER -128 127)
Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type
(INTEGER 0 255)
Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type
(INTEGER 0 255)
Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type
(INTEGER 0 255)
Warning: foreign ARG type :CHAR not compatible with lisp type
(INTEGER -128 127)
Warning: foreign ARG type :CHAR not compatible with lisp type
(INTEGER -128 127)
Warning: foreign ARG type :CHAR not compatible with lisp type
(INTEGER -128 127)
Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type
(INTEGER 0 255)
Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type
(INTEGER 0 255)
Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type
(INTEGER 0 255)
Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type
(INTEGER 0 255)
Warning: foreign ARG type :CHAR not compatible with lisp type
(INTEGER -128 127)
;;; Writing fasl file
;;; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-defcfun.fasl
;;; Fasl write complete
Warning: COMPILE-FILE failed while performing
#<COMPILE-OP NIL @ #x10051dd162> on
#<CL-SOURCE-FILE "cffi-tests" "tests" "defcfun">.
Warning: COMPILE-FILE warned while performing
#<COMPILE-OP NIL @ #x10051dd162> on
#<CL-SOURCE-FILE "cffi-tests" "tests" "defcfun">.
; Fast loading
; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/defcfun.fasl
;;; Compiling file /Users/rpg/lisp/vendor/cffi/tests/callbacks.lisp
;;; Writing fasl file
;;; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-callbacks.fasl
;;; Fasl write complete
; Fast loading
; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/callbacks.fasl
;;; Compiling file
;;; /Users/rpg/lisp/vendor/cffi/tests/foreign-globals.lisp
;;; Writing fasl file
;;; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-foreign-globals.fasl
;;; Fasl write complete
; Fast loading
; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/foreign-globals.fasl
;;; Compiling file /Users/rpg/lisp/vendor/cffi/tests/memory.lisp
;;; Writing fasl file
;;; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-memory.fasl
;;; Fasl write complete
; Fast loading
; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/memory.fasl
;;; Compiling file /Users/rpg/lisp/vendor/cffi/tests/strings.lisp
;;; Writing fasl file
;;; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-strings.fasl
;;; Fasl write complete
; Fast loading
; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/strings.fasl
;;; Compiling file /Users/rpg/lisp/vendor/cffi/tests/struct.lisp
;;; Writing fasl file
;;; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-struct.fasl
;;; Fasl write complete
; Fast loading
; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/struct.fasl
;;; Compiling file /Users/rpg/lisp/vendor/cffi/tests/union.lisp
;;; Writing fasl file
;;; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-union.fasl
;;; Fasl write complete
; Fast loading
; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/union.fasl
;;; Compiling file /Users/rpg/lisp/vendor/cffi/tests/enum.lisp
;;; Writing fasl file
;;; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-enum.fasl
;;; Fasl write complete
; Fast loading
; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/enum.fasl
;;; Compiling file /Users/rpg/lisp/vendor/cffi/tests/misc-types.lisp
Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type
(INTEGER 0 255)
Warning: foreign ARG type :CHAR not compatible with lisp type
(INTEGER -128 127)
Warning: foreign RETURN type :CHAR not compatible with lisp type
(INTEGER -128 127)
;;; Writing fasl file
;;; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-misc-types.fasl
;;; Fasl write complete
Warning: COMPILE-FILE failed while performing
#<COMPILE-OP NIL @ #x1003a01c22> on
#<CL-SOURCE-FILE "cffi-tests" "tests" "misc-types">.
Warning: COMPILE-FILE warned while performing
#<COMPILE-OP NIL @ #x1003a01c22> on
#<CL-SOURCE-FILE "cffi-tests" "tests" "misc-types">.
; Fast loading
; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/misc-types.fasl
;;; Compiling file /Users/rpg/lisp/vendor/cffi/tests/misc.lisp
;;; Writing fasl file
;;; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-misc.fasl
;;; Fasl write complete
; Fast loading
; /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/misc.fasl
;;; running tests (uncompiled)
Doing 260 pending tests of 260 tests total.
LOAD-CORE-FOUNDATION FUNCALL.CHAR FUNCALL.INT.1 FUNCALL.INT.2
FUNCALL.LONG FUNCALL.LONG-LONG FUNCALL.UNSIGNED-LONG-LONG FUNCALL.FLOAT
FUNCALL.DOUBLE FUNCALL.STRING.1 FUNCALL.STRING.2 FUNCALL.STRING.3
FUNCALL.VARARGS.CHAR FUNCALL.VARARGS.INT FUNCALL.VARARGS.LONG
Test FUNCALL.VARARGS.DOUBLE failed
Form: (WITH-FOREIGN-POINTER-AS-STRING (S 100)
(SETF (MEM-REF S :CHAR) 0)
(FOREIGN-FUNCALL "sprintf" :POINTER S :STRING "%.2f" :DOUBLE
(COERCE PI 'DOUBLE-FLOAT) :INT))
Expected value: "3.14"
Actual value: "0.00".
FUNCALL.VARARGS.STRING FUNCALL.DOUBLE26 FUNCALL.FLOAT26 FUNCALL.F-S-P.1
FUNCALL.NIL-SKIP FUNCALL.POINTER-NOT-NIL
DEFCFUN.PARSE-NAME-AND-OPTIONS.1 DEFCFUN.PARSE-NAME-AND-OPTIONS.2
DEFCFUN.PARSE-NAME-AND-OPTIONS.3 DEFCFUN.PARSE-NAME-AND-OPTIONS.4
DEFCFUN.PARSE-NAME-AND-OPTIONS.5 DEFCFUN.PARSE-NAME-AND-OPTIONS.6
DEFCFUN.PARSE-NAME-AND-OPTIONS.7 DEFCFUN.PARSE-NAME-AND-OPTIONS.8
TRANSLATE-UNDERSCORE-SEPARATED-NAME.TO-SYMBOL
TRANSLATE-UNDERSCORE-SEPARATED-NAME.TO-STRING
TRANSLATE-CAMELCASE-NAME.TO-SYMBOL TRANSLATE-CAMELCASE-NAME.TO-STRING
TRANSLATE-CAMELCASE-NAME.TO-STRING-UPPER
TRANSLATE-CAMELCASE-NAME.TO-SYMBOL-SPECIAL
TRANSLATE-CAMELCASE-NAME.TO-STRING-SPECIAL
TRANSLATE-NAME-FROM-FOREIGN.FUNCTION TRANSLATE-NAME-FROM-FOREIGN.VAR
TRANSLATE-NAME-TO-FOREIGN.FUNCTION TRANSLATE-NAME-TO-FOREIGN.VAR
DEFCFUN.CHAR DEFCFUN.DOCSTRING DEFCFUN.INT DEFCFUN.LONG
DEFCFUN.LONG-LONG
Test DEFCFUN.UNSIGNED-LONG-LONG failed
Form: (LET ((ULLONG-MAX
(1- (EXPT 2
(* 8
(FOREIGN-TYPE-SIZE :UNSIGNED-LONG-LONG))))))
(EQL ULLONG-MAX (ULLONG ULLONG-MAX)))
Expected value: T
Actual value: NIL.
DEFCFUN.FLOAT DEFCFUN.DOUBLE DEFCFUN.STRING.1 DEFCFUN.STRING.2
DEFCFUN.STRING.3 DEFCFUN.NOARGS
Test DEFCFUN.NOOP failed
Form: (NOOP)
Expected values:
Actual value: NIL.
DEFCFUN.VARARGS.DOCSTRINGS DEFCFUN.VARARGS.CHAR DEFCFUN.VARARGS.SHORT
DEFCFUN.VARARGS.INT DEFCFUN.VARARGS.LONG
Test DEFCFUN.VARARGS.FLOAT failed
Form: (WITH-FOREIGN-POINTER-AS-STRING (S 100)
(SPRINTF S "%.2f" :FLOAT (FLOAT PI)))
Expected value: "3.14"
Actual value: "0.00".
Test DEFCFUN.VARARGS.DOUBLE failed
Form: (WITH-FOREIGN-POINTER-AS-STRING (S 100)
(SPRINTF S "%.2f" :DOUBLE (FLOAT PI 1.0d0)))
Expected value: "3.14"
Actual value: "0.00".
DEFCFUN.VARARGS.STRING
Test DEFCFUN.BFF.1 failed
Form: (SUM-127-NO-LL 1442906394 520035521 -4715 50335 -13557.0
-30892.0d0 24061483 -23737.0 22 2348 4986
104895680 8073.0d0 -571698147 102484400
(MAKE-POINTER 507907275) 12733353 7824 -1275845284
13602.0 (MAKE-POINTER 286958390) -8042.0
-773681663 -1289932452 31199 -154985357 -170994216
16845.0d0 177 218969221 2794350893 6068863 26327
127699339 (MAKE-POINTER 184352771) 18512.0d0
-12345.0d0 -179853040 -19981 37268 -792845398 116
-1084653028 50494 (MAKE-POINTER 2105239646)
-1710519651 1557813312 2839.0d0 90 180 30580.0
-532698978 8623 9537.0d0 -10882 54 184357206
14929.0 -8190.0 -25615.0 (MAKE-POINTER 235310526)
(MAKE-POINTER 220476977) 7476055 1576685 -117
-11781 31479 23282640 (MAKE-POINTER 8627281)
-17834.0 10391.0d0 -1904504370 114393659 -17062
637873619 16078 -891210259 8107 0 760.0d0 -21268
104 14133.0 10 588598141 310.0d0 20 1351785456
16159552 -10121.0d0 -25866 24821 68232851 60
-24132.0 -1660411658 13387.0 -786516668 -499825680
-1128144619 111849719 2746091587 -2 95 14488
326328135 64781 18204 150716680 -703859275 103
16809.0d0 852235610 -43 21088 242356110 324325428
-22380 23 24814.0 (MAKE-POINTER 40362014)
-14322.0d0 -1864262539 523684371 -21 49995
-29175.0)
Expected value: 796447501
Actual value: #<EXCL:SYNCHRONOUS-OPERATING-SYSTEM-SIGNAL @
#x1003d7ba32>.
Test DEFCFUN.BFF.2 failed
Form: (SUM-127 (MAKE-POINTER 2746181372) (MAKE-POINTER 177623060)
-32334.0 3158055028 (MAKE-POINTER 242315091)
4288001754991016425 -21047.0d0 287.0d0 18722 243379286
-8677366518541007140 581399424 -13872 4240394881
1353358999 226 969197676 -26207.0d0 6484 11150
1241680089902988480 106068320 61865 2253
(MAKE-POINTER 866809333) -31613 35616 11715 1393601698
8940888681199591845 (MAKE-POINTER 1524606024) 805638893
3315410736 3432596795 (MAKE-POINTER 1490355706)
696175657106383698 -25438.0 1294381547 26724
(MAKE-POINTER 3196569545) 2506913373410783697
-4405955718732597856 4075932032 3224670123
2183829215657835866 1318320964 -22 -3786.0d0 -2017024146
1579225515 -626617701 -1456 (MAKE-POINTER 3561444187)
395687791 1968033632506257320 -1847773261 48853
142937735275669133 -17974.0 (MAKE-POINTER 2791749948)
-14140.0 2707 3691328585 3306.0 1132012981
303633191773289330 (MAKE-POINTER 981183954) 9114.0d0
8664374572369470 -19013.0d0 -10288.0d0
-3679345119891954339 (MAKE-POINTER 3538786709) 23761
-154264605 (MAKE-POINTER 2694396308) 7023 997.0d0
1009561368 241 (MAKE-POINTER 2612292671) 48 1431872408
-32675.0d0 (MAKE-POINTER 1587599336) 958916472 -9857.0d0
111 -14370.0d0 -7308 -967514912 488790941 2146978095
-24111.0d0 13711 86681861 717987770 111
1013402998690933877 17234.0d0 -8772.0 3959216275 -8711
(MAKE-POINTER 3142780851) 9480.0 -3820453146461186120
1616574376 -3336232268263990050 -1906114671562979758
-27925.0d0 9695970875869913114 27033.0d0 1096518219 -12
104 3392025403 -27911 60 89 509297051 -533066551 29158.0
110 54 -9802.0d0 593950442165910888 -79)
Expected value: 7758614658402721936
Actual value: #<EXCL:SYNCHRONOUS-OPERATING-SYSTEM-SIGNAL @
#x1003d82b32>.
DEFCFUN.UNDEFINED DEFCFUN.DOUBLE26 DEFCFUN.FLOAT26 CALLBACKS.CHAR
CALLBACKS.UNSIGNED-CHAR CALLBACKS.SHORT CALLBACKS.UNSIGNED-SHORT
CALLBACKS.INT CALLBACKS.UNSIGNED-INT CALLBACKS.LONG
CALLBACKS.UNSIGNED-LONG CALLBACKS.LONG-LONG
CALLBACKS.UNSIGNED-LONG-LONG CALLBACKS.FLOAT CALLBACKS.DOUBLE
CALLBACKS.POINTER CALLBACKS.STRING CALLBACKS.STRING-NOT-DOCSTRING
CALLBACKS.NIL-FOR-NULL CALLBACKS.QSORT CALLBACKS.VOID
CALLBACKS.FUNCALL.1 CALLBACKS.FUNCALL.2
Test CALLBACKS.BFF.1 failed
Form: (CALL-SUM-127-NO-LL (CALLBACK SUM-127-NO-LL))
Expected value: 2008547941
Actual value: -4558795076986485615.
Test CALLBACKS.BFF.2 failed
Form: (CALL-SUM-127 (CALLBACK SUM-127))
Expected value: 8166570665645582011
Actual value: #<SIMPLE-ERROR @ #x1003dd5842>.
CALLBACKS.NON-EXISTANT CALLBACKS.DOUBLE26 CALLBACKS.DOUBLE26.FUNCALL
CALLBACKS.FLOAT26 CALLBACKS.FLOAT26.FUNCALL CALLBACKS.UNINTERNED
FOREIGN-GLOBALS.REF.CHAR FOREIGN-GLOBALS.REF.UNSIGNED-CHAR
FOREIGN-GLOBALS.REF.SHORT FOREIGN-GLOBALS.REF.UNSIGNED-SHORT
FOREIGN-GLOBALS.REF.INT FOREIGN-GLOBALS.REF.UNSIGNED-INT
FOREIGN-GLOBALS.REF.LONG FOREIGN-GLOBALS.REF.UNSIGNED-LONG
FOREIGN-GLOBALS.REF.FLOAT FOREIGN-GLOBALS.REF.DOUBLE
FOREIGN-GLOBALS.REF.POINTER FOREIGN-GLOBALS.REF.STRING
FOREIGN-GLOBALS.REF.LONG-LONG FOREIGN-GLOBALS.REF.UNSIGNED-LONG-LONG
FOREIGN-GLOBALS.SET.INT FOREIGN-GLOBALS.SET.STRING
FOREIGN-GLOBALS.SET.LONG-LONG FOREIGN-GLOBALS.GET-VAR-POINTER.1
FOREIGN-GLOBALS.GET-VAR-POINTER.2 FOREIGN-GLOBALS.REF.UPPERCASEINT1
FOREIGN-GLOBALS.REF.UPPER-CASE-INT1 FOREIGN-GLOBALS.REF.MIXEDCASEINT1
FOREIGN-GLOBALS.REF.MIXED-CASE-INT1
Test FOREIGN-GLOBALS.REF.UPPERCASEINT2 failed
Form: *UPPERCASEINT2*
Expected value: 12345
Actual value: #<UNBOUND-VARIABLE @ #x1003e702f2>.
Test FOREIGN-GLOBALS.REF.UPPER-CASE-INT2 failed
Form: *UPPER-CASE-INT2*
Expected value: 23456
Actual value: #<UNBOUND-VARIABLE @ #x1003e71c62>.
Test FOREIGN-GLOBALS.REF.MIXEDCASEINT2 failed
Form: *MIXEDCASEINT2*
Expected value: 34567
Actual value: #<UNBOUND-VARIABLE @ #x1003e72f92>.
Test FOREIGN-GLOBALS.REF.MIXED-CASE-INT2 failed
Form: *MIXED-CASE-INT2*
Expected value: 45678
Actual value: #<UNBOUND-VARIABLE @ #x1003e74282>.
FOREIGN-GLOBALS.REF.UPPERCASEINT3 FOREIGN-GLOBALS.REF.UPPER-CASE-INT3
FOREIGN-GLOBALS.REF.MIXEDCASEINT3 FOREIGN-GLOBALS.REF.MIXED-CASE-INT3
FOREIGN-GLOBALS.SYMBOL-NAME FOREIGN-GLOBALS.READ-ONLY.1
DEFCVAR.DOCSTRING FOREIGN-GLOBALS.UNDEFINED.1 FOREIGN-GLOBALS.ERROR.1
DEREF.CHAR DEREF.UNSIGNED-CHAR DEREF.SHORT DEREF.UNSIGNED-SHORT
DEREF.INT DEREF.UNSIGNED-INT DEREF.LONG DEREF.UNSIGNED-LONG
DEREF.LONG-LONG DEREF.UNSIGNED-LONG-LONG DEREF.FLOAT.1 DEREF.FLOAT.2
DEREF.FLOAT.3 DEREF.DOUBLE.1 DEREF.DOUBLE.2 DEREF.DOUBLE.3
DEREF.POINTER.NULL LISP-STRING-TO-FOREIGN.EMPTY
WITH-FOREIGN-POINTER.EVALX2 WITH-FOREIGN-POINTER.CONSTANT-SIZE
MEM-REF.LEFT-TO-RIGHT %MEM-REF.LEFT-TO-RIGHT %MEM-SET.LEFT-TO-RIGHT
MEM-AREF.EVAL-TYPE-X2 MEM-AREF.LEFT-TO-RIGHT MEM-REF.NESTED
MEM-AREF.NESTED DEREF.AGGREGATE DEREF.ARRAY-OF-AGGREGATES POINTER.1
POINTER.2 POINTER.NULL FOREIGN-POINTER-TYPE.NIL MAKE-POINTER.HIGH
INC-POINTER.ZERO FOREIGN-ALLOC.1 FOREIGN-ALLOC.2 FOREIGN-ALLOC.3
FOREIGN-ALLOC.4 FOREIGN-ALLOC.5 FOREIGN-ALLOC.6 FOREIGN-ALLOC.7
FOREIGN-ALLOC.8 FOREIGN-ALLOC.9
Test FOREIGN-ALLOC.10 failed
Form: (FOREIGN-FREE (FOREIGN-ALLOC :CHAR :COUNT 0))
Expected value: NIL
Actual value: 137439369056.
DEREF.NONCONST.CHAR DEREF.NONCONST.UNSIGNED-CHAR DEREF.NONCONST.SHORT
DEREF.NONCONST.UNSIGNED-SHORT DEREF.NONCONST.INT
DEREF.NONCONST.UNSIGNED-INT DEREF.NONCONST.LONG
DEREF.NONCONST.UNSIGNED-LONG DEREF.NONCONST.LONG-LONG
DEREF.NONCONST.UNSIGNED-LONG-LONG DEREF.NONCONST.FLOAT.1
DEREF.NONCONST.FLOAT.2 DEREF.NONCONST.FLOAT.3 DEREF.NONCONST.DOUBLE.1
DEREF.NONCONST.DOUBLE.2 DEREF.NONCONST.DOUBLE.3 MEM-REF.RT.1
MEM-REF.RT.2 INCF-POINTER.1 INCF-POINTER.2 POINTERP.1 POINTERP.2
POINTERP.3
Test POINTERP.4 failed
Form: (POINTERP 42)
Expected value: NIL
Actual value: T.
Test POINTERP.5 failed
Form: (POINTERP 0)
Expected value: NIL
Actual value: T.
POINTERP.6 MEM-REF.SETF.1
Test POINTER-EQ.NON-POINTERS.1 failed
Form: (EXPECTING-ERROR (POINTER-EQ 1 2))
Expected value: :ERROR
Actual value: :NO-ERROR.
Test POINTER-EQ.NON-POINTERS.2 failed
Form: (EXPECTING-ERROR (POINTER-EQ 'A 'B))
Expected value: :ERROR
Actual value: :NO-ERROR.
NULL-POINTER-P.NON-POINTER.1
Test NULL-POINTER-P.NON-POINTER.2 failed
Form: (EXPECTING-ERROR (NULL-POINTER-P 0))
Expected value: :ERROR
Actual value: :NO-ERROR.
NULL-POINTER-P.NON-POINTER.3 STRING.CONVERSION.BASIC
STRING.CONVERSION.BASIC.2 STRING.ENCODING.ASCII
Test STRING.ENCODING.UTF-16.BASIC failed
Form: (WITH-FOREIGN-STRING (S *ASCII-TEST-STRING* :ENCODING :UTF-16)
(FOREIGN-STRING-TO-LISP S :ENCODING :UTF-16))
Expected values: " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~"
190
Actual values: "???????????????????????????????????????????????????????????????????????????????????????????????"
190.
STRING.SHORT-WRITE.1 STRING.ENCODING.UTF-8.BASIC
Test STRING.ENCODINGS.ALL.BASIC failed
Form: (LET (FAILED)
(DOLIST (ENCODING (LIST-LATIN-COMPATIBLE-ENCODINGS) FAILED)
(WITH-FOREIGN-STRING (PTR
*BASIC-LATIN-ALPHABET*
:ENCODING
ENCODING)
(LET ((STRING
(FOREIGN-STRING-TO-LISP PTR :ENCODING ENCODING)))
(UNLESS (STRING= *BASIC-LATIN-ALPHABET* STRING)
(PUSH ENCODING FAILED))))))
Expected value: NIL
Actual value: #<BABEL-ENCODINGS:CHARACTER-OUT-OF-RANGE @ #x10040253d2>.
STRING.ENCODINGS.DEFAULT STRUCT.1 STRUCT.2 STRUCT.3 STRUCT.4
STRUCT.NAMES STRUCT.5 STRUCT.STRING.1 STRUCT.STRING.2
STRUCT.ALIGNMENT.1 STRUCT.ALIGNMENT.2 STRUCT.ALIGNMENT.3
STRUCT.ALIGNMENT.4 STRUCT.ALIGNMENT.5 STRUCT.ALIGNMENT.6
STRUCT.ALIGNMENT.7 STRUCT.NESTED-SETF STRUCT.ALIGNMENT.8
STRUCT-WRAPPER.1 STRUCT-WRAPPER.2 UNION.1 ENUM.1 ENUM.2 ENUM.3
BITFIELD.1 BITFIELD.2 BITFIELD.3 BITFIELD.4 MISC-TYPES.STRING+PTR
MISC-TYPES.BOOLEAN.1 MISC-TYPES.BOOLEAN.2 MISC-TYPES.WRAPPER
MISC-TYPES.SIZED-INTS MISC-TYPES.EXPAND.1 MISC-TYPES.EXPAND.2
MISC-TYPES.EXPAND.3 MISC-TYPES.EXPAND.4 MISC-TYPES.EXPAND.5
MISC-TYPES.EXPAND.6 FOREIGN-SYMBOL-POINTER.1 FOREIGN-SYMBOL-POINTER.2
; Foreign loading libdoesnotexistimsure.
LIBRARY.ERROR.1 LIBRARY.T-CLAUSE SHAREABLE-VECTOR.1 SHAREABLE-VECTOR.2
21 out of 260 total tests failed: FUNCALL.VARARGS.DOUBLE,
DEFCFUN.UNSIGNED-LONG-LONG, DEFCFUN.NOOP, DEFCFUN.VARARGS.FLOAT,
DEFCFUN.VARARGS.DOUBLE, DEFCFUN.BFF.1, DEFCFUN.BFF.2,
CALLBACKS.BFF.1, CALLBACKS.BFF.2, FOREIGN-GLOBALS.REF.UPPERCASEINT2,
FOREIGN-GLOBALS.REF.UPPER-CASE-INT2,
FOREIGN-GLOBALS.REF.MIXEDCASEINT2,
FOREIGN-GLOBALS.REF.MIXED-CASE-INT2, FOREIGN-ALLOC.10, POINTERP.4,
POINTERP.5, POINTER-EQ.NON-POINTERS.1, POINTER-EQ.NON-POINTERS.2,
NULL-POINTER-P.NON-POINTER.2, STRING.ENCODING.UTF-16.BASIC,
STRING.ENCODINGS.ALL.BASIC.
16 unexpected failures: FUNCALL.VARARGS.DOUBLE, DEFCFUN.VARARGS.FLOAT,
DEFCFUN.VARARGS.DOUBLE, DEFCFUN.BFF.1, DEFCFUN.BFF.2,
CALLBACKS.BFF.2, FOREIGN-GLOBALS.REF.UPPERCASEINT2,
FOREIGN-GLOBALS.REF.UPPER-CASE-INT2,
FOREIGN-GLOBALS.REF.MIXEDCASEINT2,
FOREIGN-GLOBALS.REF.MIXED-CASE-INT2, FOREIGN-ALLOC.10, POINTERP.4,
POINTERP.5, POINTER-EQ.NON-POINTERS.1, POINTER-EQ.NON-POINTERS.2,
NULL-POINTER-P.NON-POINTER.2.
;;; running tests (compiled)
Doing 260 pending tests of 260 tests total.
LOAD-CORE-FOUNDATION FUNCALL.CHAR FUNCALL.INT.1 FUNCALL.INT.2
FUNCALL.LONG FUNCALL.LONG-LONG FUNCALL.UNSIGNED-LONG-LONG FUNCALL.FLOAT
FUNCALL.DOUBLE FUNCALL.STRING.1 FUNCALL.STRING.2 FUNCALL.STRING.3
FUNCALL.VARARGS.CHAR FUNCALL.VARARGS.INT FUNCALL.VARARGS.LONG
Test FUNCALL.VARARGS.DOUBLE failed
Form: (WITH-FOREIGN-POINTER-AS-STRING (S 100)
(SETF (MEM-REF S :CHAR) 0)
(FOREIGN-FUNCALL "sprintf" :POINTER S :STRING "%.2f" :DOUBLE
(COERCE PI 'DOUBLE-FLOAT) :INT))
Expected value: "3.14"
Actual value: "0.00".
FUNCALL.VARARGS.STRING FUNCALL.DOUBLE26 FUNCALL.FLOAT26 FUNCALL.F-S-P.1
FUNCALL.NIL-SKIP FUNCALL.POINTER-NOT-NIL
DEFCFUN.PARSE-NAME-AND-OPTIONS.1 DEFCFUN.PARSE-NAME-AND-OPTIONS.2
DEFCFUN.PARSE-NAME-AND-OPTIONS.3 DEFCFUN.PARSE-NAME-AND-OPTIONS.4
DEFCFUN.PARSE-NAME-AND-OPTIONS.5 DEFCFUN.PARSE-NAME-AND-OPTIONS.6
DEFCFUN.PARSE-NAME-AND-OPTIONS.7 DEFCFUN.PARSE-NAME-AND-OPTIONS.8
TRANSLATE-UNDERSCORE-SEPARATED-NAME.TO-SYMBOL
TRANSLATE-UNDERSCORE-SEPARATED-NAME.TO-STRING
TRANSLATE-CAMELCASE-NAME.TO-SYMBOL TRANSLATE-CAMELCASE-NAME.TO-STRING
TRANSLATE-CAMELCASE-NAME.TO-STRING-UPPER
TRANSLATE-CAMELCASE-NAME.TO-SYMBOL-SPECIAL
TRANSLATE-CAMELCASE-NAME.TO-STRING-SPECIAL
TRANSLATE-NAME-FROM-FOREIGN.FUNCTION TRANSLATE-NAME-FROM-FOREIGN.VAR
TRANSLATE-NAME-TO-FOREIGN.FUNCTION TRANSLATE-NAME-TO-FOREIGN.VAR
DEFCFUN.CHAR DEFCFUN.DOCSTRING DEFCFUN.INT DEFCFUN.LONG
DEFCFUN.LONG-LONG
Test DEFCFUN.UNSIGNED-LONG-LONG failed
Form: (LET ((ULLONG-MAX
(1- (EXPT 2
(* 8
(FOREIGN-TYPE-SIZE :UNSIGNED-LONG-LONG))))))
(EQL ULLONG-MAX (ULLONG ULLONG-MAX)))
Expected value: T
Actual value: NIL.
DEFCFUN.FLOAT DEFCFUN.DOUBLE DEFCFUN.STRING.1 DEFCFUN.STRING.2
DEFCFUN.STRING.3 DEFCFUN.NOARGS
Test DEFCFUN.NOOP failed
Form: (NOOP)
Expected values:
Actual value: NIL.
DEFCFUN.VARARGS.DOCSTRINGS DEFCFUN.VARARGS.CHAR DEFCFUN.VARARGS.SHORT
DEFCFUN.VARARGS.INT DEFCFUN.VARARGS.LONG
Test DEFCFUN.VARARGS.FLOAT failed
Form: (WITH-FOREIGN-POINTER-AS-STRING (S 100)
(SPRINTF S "%.2f" :FLOAT (FLOAT PI)))
Expected value: "3.14"
Actual value: "0.00".
Test DEFCFUN.VARARGS.DOUBLE failed
Form: (WITH-FOREIGN-POINTER-AS-STRING (S 100)
(SPRINTF S "%.2f" :DOUBLE (FLOAT PI 1.0d0)))
Expected value: "3.14"
Actual value: "0.00".
DEFCFUN.VARARGS.STRING
Test DEFCFUN.BFF.1 failed
Form: (SUM-127-NO-LL 1442906394 520035521 -4715 50335 -13557.0
-30892.0d0 24061483 -23737.0 22 2348 4986
104895680 8073.0d0 -571698147 102484400
(MAKE-POINTER 507907275) 12733353 7824 -1275845284
13602.0 (MAKE-POINTER 286958390) -8042.0
-773681663 -1289932452 31199 -154985357 -170994216
16845.0d0 177 218969221 2794350893 6068863 26327
127699339 (MAKE-POINTER 184352771) 18512.0d0
-12345.0d0 -179853040 -19981 37268 -792845398 116
-1084653028 50494 (MAKE-POINTER 2105239646)
-1710519651 1557813312 2839.0d0 90 180 30580.0
-532698978 8623 9537.0d0 -10882 54 184357206
14929.0 -8190.0 -25615.0 (MAKE-POINTER 235310526)
(MAKE-POINTER 220476977) 7476055 1576685 -117
-11781 31479 23282640 (MAKE-POINTER 8627281)
-17834.0 10391.0d0 -1904504370 114393659 -17062
637873619 16078 -891210259 8107 0 760.0d0 -21268
104 14133.0 10 588598141 310.0d0 20 1351785456
16159552 -10121.0d0 -25866 24821 68232851 60
-24132.0 -1660411658 13387.0 -786516668 -499825680
-1128144619 111849719 2746091587 -2 95 14488
326328135 64781 18204 150716680 -703859275 103
16809.0d0 852235610 -43 21088 242356110 324325428
-22380 23 24814.0 (MAKE-POINTER 40362014)
-14322.0d0 -1864262539 523684371 -21 49995
-29175.0)
Expected value: 796447501
Actual value: #<EXCL:SYNCHRONOUS-OPERATING-SYSTEM-SIGNAL @
#x10044a2b02>.
Test DEFCFUN.BFF.2 failed
Form: (SUM-127 (MAKE-POINTER 2746181372) (MAKE-POINTER 177623060)
-32334.0 3158055028 (MAKE-POINTER 242315091)
4288001754991016425 -21047.0d0 287.0d0 18722 243379286
-8677366518541007140 581399424 -13872 4240394881
1353358999 226 969197676 -26207.0d0 6484 11150
1241680089902988480 106068320 61865 2253
(MAKE-POINTER 866809333) -31613 35616 11715 1393601698
8940888681199591845 (MAKE-POINTER 1524606024) 805638893
3315410736 3432596795 (MAKE-POINTER 1490355706)
696175657106383698 -25438.0 1294381547 26724
(MAKE-POINTER 3196569545) 2506913373410783697
-4405955718732597856 4075932032 3224670123
2183829215657835866 1318320964 -22 -3786.0d0 -2017024146
1579225515 -626617701 -1456 (MAKE-POINTER 3561444187)
395687791 1968033632506257320 -1847773261 48853
142937735275669133 -17974.0 (MAKE-POINTER 2791749948)
-14140.0 2707 3691328585 3306.0 1132012981
303633191773289330 (MAKE-POINTER 981183954) 9114.0d0
8664374572369470 -19013.0d0 -10288.0d0
-3679345119891954339 (MAKE-POINTER 3538786709) 23761
-154264605 (MAKE-POINTER 2694396308) 7023 997.0d0
1009561368 241 (MAKE-POINTER 2612292671) 48 1431872408
-32675.0d0 (MAKE-POINTER 1587599336) 958916472 -9857.0d0
111 -14370.0d0 -7308 -967514912 488790941 2146978095
-24111.0d0 13711 86681861 717987770 111
1013402998690933877 17234.0d0 -8772.0 3959216275 -8711
(MAKE-POINTER 3142780851) 9480.0 -3820453146461186120
1616574376 -3336232268263990050 -1906114671562979758
-27925.0d0 9695970875869913114 27033.0d0 1096518219 -12
104 3392025403 -27911 60 89 509297051 -533066551 29158.0
110 54 -9802.0d0 593950442165910888 -79)
Expected value: 7758614658402721936
Actual value: #<EXCL:SYNCHRONOUS-OPERATING-SYSTEM-SIGNAL @
#x10044ca4b2>.
DEFCFUN.UNDEFINED DEFCFUN.DOUBLE26 DEFCFUN.FLOAT26 CALLBACKS.CHAR
CALLBACKS.UNSIGNED-CHAR CALLBACKS.SHORT CALLBACKS.UNSIGNED-SHORT
CALLBACKS.INT CALLBACKS.UNSIGNED-INT CALLBACKS.LONG
CALLBACKS.UNSIGNED-LONG CALLBACKS.LONG-LONG
CALLBACKS.UNSIGNED-LONG-LONG CALLBACKS.FLOAT CALLBACKS.DOUBLE
CALLBACKS.POINTER CALLBACKS.STRING CALLBACKS.STRING-NOT-DOCSTRING
CALLBACKS.NIL-FOR-NULL CALLBACKS.QSORT CALLBACKS.VOID
CALLBACKS.FUNCALL.1 CALLBACKS.FUNCALL.2
Test CALLBACKS.BFF.1 failed
Form: (CALL-SUM-127-NO-LL (CALLBACK SUM-127-NO-LL))
Expected value: 2008547941
Actual value: -4558794935252564847.
Test CALLBACKS.BFF.2 failed
Form: (CALL-SUM-127 (CALLBACK SUM-127))
Expected value: 8166570665645582011
Actual value: 1869687968912265330.
CALLBACKS.NON-EXISTANT CALLBACKS.DOUBLE26 CALLBACKS.DOUBLE26.FUNCALL
CALLBACKS.FLOAT26 CALLBACKS.FLOAT26.FUNCALL CALLBACKS.UNINTERNED
FOREIGN-GLOBALS.REF.CHAR FOREIGN-GLOBALS.REF.UNSIGNED-CHAR
FOREIGN-GLOBALS.REF.SHORT FOREIGN-GLOBALS.REF.UNSIGNED-SHORT
FOREIGN-GLOBALS.REF.INT FOREIGN-GLOBALS.REF.UNSIGNED-INT
FOREIGN-GLOBALS.REF.LONG FOREIGN-GLOBALS.REF.UNSIGNED-LONG
FOREIGN-GLOBALS.REF.FLOAT FOREIGN-GLOBALS.REF.DOUBLE
FOREIGN-GLOBALS.REF.POINTER FOREIGN-GLOBALS.REF.STRING
FOREIGN-GLOBALS.REF.LONG-LONG FOREIGN-GLOBALS.REF.UNSIGNED-LONG-LONG
FOREIGN-GLOBALS.SET.INT FOREIGN-GLOBALS.SET.STRING
FOREIGN-GLOBALS.SET.LONG-LONG FOREIGN-GLOBALS.GET-VAR-POINTER.1
FOREIGN-GLOBALS.GET-VAR-POINTER.2 FOREIGN-GLOBALS.REF.UPPERCASEINT1
FOREIGN-GLOBALS.REF.UPPER-CASE-INT1 FOREIGN-GLOBALS.REF.MIXEDCASEINT1
FOREIGN-GLOBALS.REF.MIXED-CASE-INT1
; While compiling (:ANONYMOUS-LAMBDA 148):
Warning: Free reference to undeclared variable *UPPERCASEINT2* assumed
special.
Test FOREIGN-GLOBALS.REF.UPPERCASEINT2 failed
Form: *UPPERCASEINT2*
Expected value: 12345
Actual value: #<UNBOUND-VARIABLE @ #x1004766e52>.
; While compiling (:ANONYMOUS-LAMBDA 149):
Warning: Free reference to undeclared variable *UPPER-CASE-INT2*
assumed special.
Test FOREIGN-GLOBALS.REF.UPPER-CASE-INT2 failed
Form: *UPPER-CASE-INT2*
Expected value: 23456
Actual value: #<UNBOUND-VARIABLE @ #x100476e542>.
; While compiling (:ANONYMOUS-LAMBDA 150):
Warning: Free reference to undeclared variable *MIXEDCASEINT2* assumed
special.
Test FOREIGN-GLOBALS.REF.MIXEDCASEINT2 failed
Form: *MIXEDCASEINT2*
Expected value: 34567
Actual value: #<UNBOUND-VARIABLE @ #x1004775c02>.
; While compiling (:ANONYMOUS-LAMBDA 151):
Warning: Free reference to undeclared variable *MIXED-CASE-INT2*
assumed special.
Test FOREIGN-GLOBALS.REF.MIXED-CASE-INT2 failed
Form: *MIXED-CASE-INT2*
Expected value: 45678
Actual value: #<UNBOUND-VARIABLE @ #x100477d2c2>.
FOREIGN-GLOBALS.REF.UPPERCASEINT3 FOREIGN-GLOBALS.REF.UPPER-CASE-INT3
FOREIGN-GLOBALS.REF.MIXEDCASEINT3 FOREIGN-GLOBALS.REF.MIXED-CASE-INT3
FOREIGN-GLOBALS.SYMBOL-NAME FOREIGN-GLOBALS.READ-ONLY.1
DEFCVAR.DOCSTRING FOREIGN-GLOBALS.UNDEFINED.1 FOREIGN-GLOBALS.ERROR.1
DEREF.CHAR DEREF.UNSIGNED-CHAR DEREF.SHORT DEREF.UNSIGNED-SHORT
DEREF.INT DEREF.UNSIGNED-INT DEREF.LONG DEREF.UNSIGNED-LONG
DEREF.LONG-LONG DEREF.UNSIGNED-LONG-LONG DEREF.FLOAT.1 DEREF.FLOAT.2
DEREF.FLOAT.3 DEREF.DOUBLE.1 DEREF.DOUBLE.2 DEREF.DOUBLE.3
DEREF.POINTER.NULL LISP-STRING-TO-FOREIGN.EMPTY
WITH-FOREIGN-POINTER.EVALX2 WITH-FOREIGN-POINTER.CONSTANT-SIZE
MEM-REF.LEFT-TO-RIGHT %MEM-REF.LEFT-TO-RIGHT %MEM-SET.LEFT-TO-RIGHT
MEM-AREF.EVAL-TYPE-X2 MEM-AREF.LEFT-TO-RIGHT MEM-REF.NESTED
MEM-AREF.NESTED DEREF.AGGREGATE DEREF.ARRAY-OF-AGGREGATES POINTER.1
POINTER.2 POINTER.NULL FOREIGN-POINTER-TYPE.NIL MAKE-POINTER.HIGH
INC-POINTER.ZERO FOREIGN-ALLOC.1 FOREIGN-ALLOC.2 FOREIGN-ALLOC.3
FOREIGN-ALLOC.4 FOREIGN-ALLOC.5 FOREIGN-ALLOC.6 FOREIGN-ALLOC.7
FOREIGN-ALLOC.8 FOREIGN-ALLOC.9
Test FOREIGN-ALLOC.10 failed
Form: (FOREIGN-FREE (FOREIGN-ALLOC :CHAR :COUNT 0))
Expected value: NIL
Actual value: 137439369376.
DEREF.NONCONST.CHAR DEREF.NONCONST.UNSIGNED-CHAR DEREF.NONCONST.SHORT
DEREF.NONCONST.UNSIGNED-SHORT DEREF.NONCONST.INT
DEREF.NONCONST.UNSIGNED-INT DEREF.NONCONST.LONG
DEREF.NONCONST.UNSIGNED-LONG DEREF.NONCONST.LONG-LONG
DEREF.NONCONST.UNSIGNED-LONG-LONG DEREF.NONCONST.FLOAT.1
DEREF.NONCONST.FLOAT.2 DEREF.NONCONST.FLOAT.3 DEREF.NONCONST.DOUBLE.1
DEREF.NONCONST.DOUBLE.2 DEREF.NONCONST.DOUBLE.3 MEM-REF.RT.1
MEM-REF.RT.2 INCF-POINTER.1 INCF-POINTER.2 POINTERP.1 POINTERP.2
POINTERP.3
Test POINTERP.4 failed
Form: (POINTERP 42)
Expected value: NIL
Actual value: T.
Test POINTERP.5 failed
Form: (POINTERP 0)
Expected value: NIL
Actual value: T.
POINTERP.6 MEM-REF.SETF.1
Test POINTER-EQ.NON-POINTERS.1 failed
Form: (EXPECTING-ERROR (POINTER-EQ 1 2))
Expected value: :ERROR
Actual value: :NO-ERROR.
Test POINTER-EQ.NON-POINTERS.2 failed
Form: (EXPECTING-ERROR (POINTER-EQ 'A 'B))
Expected value: :ERROR
Actual value: :NO-ERROR.
NULL-POINTER-P.NON-POINTER.1
Test NULL-POINTER-P.NON-POINTER.2 failed
Form: (EXPECTING-ERROR (NULL-POINTER-P 0))
Expected value: :ERROR
Actual value: :NO-ERROR.
NULL-POINTER-P.NON-POINTER.3 STRING.CONVERSION.BASIC
STRING.CONVERSION.BASIC.2 STRING.ENCODING.ASCII
Test STRING.ENCODING.UTF-16.BASIC failed
Form: (WITH-FOREIGN-STRING (S *ASCII-TEST-STRING* :ENCODING :UTF-16)
(FOREIGN-STRING-TO-LISP S :ENCODING :UTF-16))
Expected values: " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~"
190
Actual values: "???????????????????????????????????????????????????????????????????????????????????????????????"
190.
STRING.SHORT-WRITE.1 STRING.ENCODING.UTF-8.BASIC
Test STRING.ENCODINGS.ALL.BASIC failed
Form: (LET (FAILED)
(DOLIST (ENCODING (LIST-LATIN-COMPATIBLE-ENCODINGS) FAILED)
(WITH-FOREIGN-STRING (PTR
*BASIC-LATIN-ALPHABET*
:ENCODING
ENCODING)
(LET ((STRING
(FOREIGN-STRING-TO-LISP PTR :ENCODING ENCODING)))
(UNLESS (STRING= *BASIC-LATIN-ALPHABET* STRING)
(PUSH ENCODING FAILED))))))
Expected value: NIL
Actual value: #<BABEL-ENCODINGS:CHARACTER-OUT-OF-RANGE @ #x1003fb3602>.
STRING.ENCODINGS.DEFAULT STRUCT.1 STRUCT.2 STRUCT.3 STRUCT.4
STRUCT.NAMES STRUCT.5 STRUCT.STRING.1 STRUCT.STRING.2
STRUCT.ALIGNMENT.1 STRUCT.ALIGNMENT.2 STRUCT.ALIGNMENT.3
STRUCT.ALIGNMENT.4 STRUCT.ALIGNMENT.5 STRUCT.ALIGNMENT.6
STRUCT.ALIGNMENT.7 STRUCT.NESTED-SETF STRUCT.ALIGNMENT.8
STRUCT-WRAPPER.1 STRUCT-WRAPPER.2 UNION.1 ENUM.1 ENUM.2 ENUM.3
BITFIELD.1 BITFIELD.2 BITFIELD.3 BITFIELD.4 MISC-TYPES.STRING+PTR
MISC-TYPES.BOOLEAN.1 MISC-TYPES.BOOLEAN.2 MISC-TYPES.WRAPPER
MISC-TYPES.SIZED-INTS MISC-TYPES.EXPAND.1 MISC-TYPES.EXPAND.2
MISC-TYPES.EXPAND.3 MISC-TYPES.EXPAND.4 MISC-TYPES.EXPAND.5
MISC-TYPES.EXPAND.6 FOREIGN-SYMBOL-POINTER.1 FOREIGN-SYMBOL-POINTER.2
; Foreign loading libdoesnotexistimsure.
LIBRARY.ERROR.1 LIBRARY.T-CLAUSE SHAREABLE-VECTOR.1 SHAREABLE-VECTOR.2
21 out of 260 total tests failed: FUNCALL.VARARGS.DOUBLE,
DEFCFUN.UNSIGNED-LONG-LONG, DEFCFUN.NOOP, DEFCFUN.VARARGS.FLOAT,
DEFCFUN.VARARGS.DOUBLE, DEFCFUN.BFF.1, DEFCFUN.BFF.2,
CALLBACKS.BFF.1, CALLBACKS.BFF.2, FOREIGN-GLOBALS.REF.UPPERCASEINT2,
FOREIGN-GLOBALS.REF.UPPER-CASE-INT2,
FOREIGN-GLOBALS.REF.MIXEDCASEINT2,
FOREIGN-GLOBALS.REF.MIXED-CASE-INT2, FOREIGN-ALLOC.10, POINTERP.4,
POINTERP.5, POINTER-EQ.NON-POINTERS.1, POINTER-EQ.NON-POINTERS.2,
NULL-POINTER-P.NON-POINTER.2, STRING.ENCODING.UTF-16.BASIC,
STRING.ENCODINGS.ALL.BASIC.
16 unexpected failures: FUNCALL.VARARGS.DOUBLE, DEFCFUN.VARARGS.FLOAT,
DEFCFUN.VARARGS.DOUBLE, DEFCFUN.BFF.1, DEFCFUN.BFF.2,
CALLBACKS.BFF.2, FOREIGN-GLOBALS.REF.UPPERCASEINT2,
FOREIGN-GLOBALS.REF.UPPER-CASE-INT2,
FOREIGN-GLOBALS.REF.MIXEDCASEINT2,
FOREIGN-GLOBALS.REF.MIXED-CASE-INT2, FOREIGN-ALLOC.10, POINTERP.4,
POINTERP.5, POINTER-EQ.NON-POINTERS.1, POINTER-EQ.NON-POINTERS.2,
NULL-POINTER-P.NON-POINTER.2.
T
CL-USER>
More information about the cffi-devel
mailing list