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
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{ 1.0 2.0 }
C{ 1.5 1.0 } ffi_test_47
] unit-test
[ C{ 4.0 4.0 } ] [
C{ 1.0 2.0 }
C{ 1.5 1.0 } ffi_test_47
] unit-test
! Reported by jedahu
STRUCT: bool-field-test
{ name c-string }
{ on bool }
{ parents short } ;
! Reported by jedahu
STRUCT: bool-field-test
{ name c-string }
{ on bool }
{ parents short } ;
FUNCTION: short ffi_test_48 ( bool-field-test x ) ;
FUNCTION: short ffi_test_48 ( bool-field-test x ) ;
[ 123 ] [
bool-field-test <struct>
123 >>parents
ffi_test_48
] unit-test
[ 123 ] [
bool-field-test <struct>
123 >>parents
ffi_test_48
] unit-test
] unless
@ -884,32 +884,36 @@ TUPLE: some-tuple x ;
[ ] [ anton's-regression ] unit-test
STRUCT: bool-and-ptr
{ b bool }
{ ptr void* } ;
os windows? [
FUNCTION: bool-and-ptr ffi_test_61 ( ) ;
STRUCT: bool-and-ptr
{ b bool }
{ ptr void* } ;
{
S{ bool-and-ptr { b t } { ptr f } }
} [ ffi_test_61 ] unit-test
FUNCTION: bool-and-ptr ffi_test_61 ( ) ;
STRUCT: uint-pair
{ a uint }
{ b uint } ;
{
S{ bool-and-ptr { b t } { ptr f } }
} [ ffi_test_61 ] unit-test
FUNCTION: uint-pair ffi_test_62 ( ) ;
STRUCT: uint-pair
{ a uint }
{ b uint } ;
{
S{ uint-pair { a 0xabcdefab } { b 0x12345678 } }
} [ ffi_test_62 ] unit-test
FUNCTION: uint-pair ffi_test_62 ( ) ;
STRUCT: ulonglong-pair
{ a ulonglong }
{ b ulonglong } ;
{
S{ uint-pair { a 0xabcdefab } { b 0x12345678 } }
} [ ffi_test_62 ] unit-test
FUNCTION: ulonglong-pair ffi_test_63 ( ) ;
STRUCT: ulonglong-pair
{ a ulonglong }
{ b ulonglong } ;
{
S{ ulonglong-pair { a 0xabcdefabcdefabcd } { b 0x1234567891234567 } }
} [ ffi_test_63 ] unit-test
FUNCTION: ulonglong-pair ffi_test_63 ( ) ;
{
S{ ulonglong-pair { a 0xabcdefabcdefabcd } { b 0x1234567891234567 } }
} [ ffi_test_63 ] unit-test
] unless