compiler.tests.alien: Test demonstrates padding bytes breaking struct= on linux32...

diff --git a/basis/compiler/tests/alien.factor b/basis/compiler/tests/alien.factor
index 52ad0bf1a4a96238ce781421e026b76da7c79ab0..3589ab7e89e8ebe09ff93b6138c860bd83757627 100755 (executable)
--- a/basis/compiler/tests/alien.factor
+++ b/basis/compiler/tests/alien.factor
@@ -890,9 +890,9 @@ os windows? [
 
     FUNCTION: bool-and-ptr ffi_test_61 ( ) ;
 
-    {
-        S{ bool-and-ptr { b t } { ptr f } }
-    } [ ffi_test_61 ] unit-test
+    ! { S{ bool-and-ptr { b t } { ptr f } } } [ ffi_test_61 ] unit-test
+    { t } [ ffi_test_61 bool-and-ptr? ] unit-test
+    { { t f } } [ ffi_test_61 [ b>> ] [ ptr>> ] bi 2array ] unit-test
 
 ] unless