From c9caa6c88d2b48f62ae0485518ff2a7f2cef5f29 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 6 Dec 2011 18:09:02 +0100 Subject: [PATCH] fix asm-to-bytecode.test * test-suite/tests/asm-to-bytecode.test (%objcode-cookie-size) (test-target): The objcode version embedded in the cookie is not an effective version, so elide it from the test. --- test-suite/tests/asm-to-bytecode.test | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/test-suite/tests/asm-to-bytecode.test b/test-suite/tests/asm-to-bytecode.test index edb9bfd99..1132a41b1 100644 --- a/test-suite/tests/asm-to-bytecode.test +++ b/test-suite/tests/asm-to-bytecode.test @@ -130,7 +130,7 @@ (string=? (target-os) os))))))) (define %objcode-cookie-size - (string-length "GOOF----LE-8-2.0")) + (string-length "GOOF----LE-8")) (define (test-target triplet endian word-size) (pass-if (format #f "target `~a' honored" triplet) @@ -153,7 +153,7 @@ #f))) (write-objcode (bytecode->objcode b) p) (let ((cookie (make-bytevector %objcode-cookie-size)) - (expected (format #f "GOOF----~a-~a-~a" + (expected (format #f "GOOF----~a-~a" (cond ((eq? endian (endianness little)) "LE") ((eq? endian (endianness big)) @@ -161,8 +161,7 @@ (else (error "unknown endianness" endian))) - word-size - (effective-version)))) + word-size))) (bytevector-copy! (get-objcode) 0 cookie 0 %objcode-cookie-size) (string=? (utf8->string cookie) expected)))))))))