mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-05 09:10:18 +02:00
Code Activity

update cross-compilation test

Browse source 
(Best-ability ChangeLog annotation added by Christopher Allan Webber.)

* test-suite/tests/cross-compilation.test (test-target): Update it.
This commit is contained in:
Robin Templeton 2015-05-10 17:11:40 -04:00 • committed by Christopher Allan Webber
parent e3d13813aa
commit 898e00b6cf
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/cross-compilation.test
View file

@ -56,8 +56,8 @@
(string=? (native-os) (target-os))) (string=? (native-os) (target-os)))
(native-word-size) (native-word-size)
word-size)) word-size))
(bv (compile '(hello-world) #:to 'bytecode))) (bv+constants (compile '(hello-world) #:to 'bytecode)))
(and=> (parse-elf bv) (and=> (parse-elf (car bv+constants))
(lambda (elf) (lambda (elf)
(and (equal? (elf-byte-order elf) endian) (and (equal? (elf-byte-order elf) endian)
(equal? (elf-word-size elf) word-size))))))))) (equal? (elf-word-size elf) word-size)))))))))