steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

compiler.tests.alien: Don't test ffi calls 61-63 on Windows.

db4
Doug Coleman 2014-11-09 10:52:16 -08:00
parent 1107edcc52
commit 564a67ce7e
1 changed files with 45 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

86
basis/compiler/tests/alien.factor
View File

@ -587,34 +587,34 @@ FUNCTION: test_struct_14 ffi_test_44 ( ) ; inline
! C99 tests ! C99 tests
os windows? [ os windows? [
FUNCTION: complex-float ffi_test_45 ( int x ) ; FUNCTION: complex-float ffi_test_45 ( int x ) ;
[ C{ 3.0 0.0 } ] [ 3 ffi_test_45 ] unit-test [ C{ 3.0 0.0 } ] [ 3 ffi_test_45 ] unit-test
FUNCTION: complex-double ffi_test_46 ( int x ) ; FUNCTION: complex-double ffi_test_46 ( int x ) ;
[ C{ 3.0 0.0 } ] [ 3 ffi_test_46 ] unit-test [ C{ 3.0 0.0 } ] [ 3 ffi_test_46 ] unit-test
FUNCTION: complex-float ffi_test_47 ( complex-float x, complex-double y ) ; FUNCTION: complex-float ffi_test_47 ( complex-float x, complex-double y ) ;
[ C{ 4.0 4.0 } ] [ [ C{ 4.0 4.0 } ] [
C{ 1.0 2.0 } C{ 1.0 2.0 }
C{ 1.5 1.0 } ffi_test_47 C{ 1.5 1.0 } ffi_test_47
] unit-test ] unit-test
! Reported by jedahu ! Reported by jedahu
STRUCT: bool-field-test STRUCT: bool-field-test
{ name c-string } { name c-string }
{ on bool } { on bool }
{ parents short } ; { parents short } ;
FUNCTION: short ffi_test_48 ( bool-field-test x ) ; FUNCTION: short ffi_test_48 ( bool-field-test x ) ;
[ 123 ] [ [ 123 ] [
bool-field-test <struct> bool-field-test <struct>
123 >>parents 123 >>parents
ffi_test_48 ffi_test_48
] unit-test ] unit-test
] unless ] unless
@ -884,32 +884,36 @@ TUPLE: some-tuple x ;
[ ] [ anton's-regression ] unit-test [ ] [ anton's-regression ] unit-test
STRUCT: bool-and-ptr os windows? [
{ b bool }
{ ptr void* } ;
FUNCTION: bool-and-ptr ffi_test_61 ( ) ; STRUCT: bool-and-ptr
{ b bool }
{ ptr void* } ;
{ FUNCTION: bool-and-ptr ffi_test_61 ( ) ;
S{ bool-and-ptr { b t } { ptr f } }
} [ ffi_test_61 ] unit-test
STRUCT: uint-pair {
{ a uint } S{ bool-and-ptr { b t } { ptr f } }
{ b uint } ; } [ ffi_test_61 ] unit-test
FUNCTION: uint-pair ffi_test_62 ( ) ; STRUCT: uint-pair
{ a uint }
{ b uint } ;
{ FUNCTION: uint-pair ffi_test_62 ( ) ;
S{ uint-pair { a 0xabcdefab } { b 0x12345678 } }
} [ ffi_test_62 ] unit-test
STRUCT: ulonglong-pair {
{ a ulonglong } S{ uint-pair { a 0xabcdefab } { b 0x12345678 } }
{ b ulonglong } ; } [ ffi_test_62 ] unit-test
FUNCTION: ulonglong-pair ffi_test_63 ( ) ; STRUCT: ulonglong-pair
{ a ulonglong }
{ b ulonglong } ;
{ FUNCTION: ulonglong-pair ffi_test_63 ( ) ;
S{ ulonglong-pair { a 0xabcdefabcdefabcd } { b 0x1234567891234567 } }
} [ ffi_test_63 ] unit-test {
S{ ulonglong-pair { a 0xabcdefabcdefabcd } { b 0x1234567891234567 } }
} [ ffi_test_63 ] unit-test
] unless