update cross-compilation test

[bpt/guile.git] / test-suite / tests / cross-compilation.test

diff --git a/test-suite/tests/cross-compilation.test b/test-suite/tests/cross-compilation.test
index 5438c20..b15c51d 100644 (file)
--- a/test-suite/tests/cross-compilation.test
+++ b/test-suite/tests/cross-compilation.test
@@ -1,6 +1,6 @@
 ;;;; Cross compilation   -*- mode: scheme; coding: utf-8; -*-
 ;;;;
-;;;;   Copyright (C) 2010, 2011, 2012, 2013 Free Software Foundation, Inc.
+;;;;   Copyright (C) 2010-2014 Free Software Foundation, Inc.
 ;;;;
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -56,8 +56,8 @@
                         (string=? (native-os) (target-os)))
                    (native-word-size)
                    word-size))
-              (bv (compile '(hello-world) #:to 'bytecode)))
-          (and=> (parse-elf bv)
+              (bv+constants (compile '(hello-world) #:to 'bytecode)))
+          (and=> (parse-elf (car bv+constants))
                  (lambda (elf)
                    (and (equal? (elf-byte-order elf) endian)
                         (equal? (elf-word-size elf) word-size)))))))))
@@ -79,6 +79,14 @@
                (endianness little) 8)
   (test-target "x86_64-unknown-linux-gnux32"      ; x32 ABI (Debian tuplet)
                (endianness little) 4)
+  (test-target "arm-unknown-linux-androideabi"
+               (endianness little) 4)
+  (test-target "armeb-unknown-linux-gnu"
+               (endianness big) 4)
+  (test-target "aarch64-linux-gnu"
+               (endianness little) 8)
+  (test-target "aarch64_be-linux-gnu"
+               (endianness big) 8)
 
   (pass-if-exception "unknown target" exception:miscellaneous-error
     (with-target "fcpu-unknown-gnu1.0"