mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +02:00
Code Activity

Merge commit 'fdd319e9bd'

Browse source
This commit is contained in:
Andy Wingo 2015-01-22 13:04:34 +01:00
commit 086bbcc874
7 changed files with 41 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

15
test-suite/tests/bytevectors.test
View file

@ -1,7 +1,6 @@
;;;; bytevectors.test --- R6RS bytevectors. -*- mode: scheme; coding: utf-8; -*-
;;;;
;;;; Copyright (C) 2009, 2010, 2011, 2012, 2013,
;;;; 2014 Free Software Foundation, Inc.
;;;; Copyright (C) 2009-2014 Free Software Foundation, Inc.
;;;;
;;;; Ludovic Courtès
;;;;
@ -22,7 +21,8 @@
(define-module (test-bytevector)
:use-module (test-suite lib)
:use-module (system base compile)
:use-module (rnrs bytevectors))
:use-module (rnrs bytevectors)
:use-module (srfi srfi-4))
;;; Some of the tests in here are examples taken from the R6RS Standard
;;; Libraries document.
@ -692,6 +692,15 @@
(let ((bv (uniform-array->bytevector (make-bitvector 33 #t))))
(= (bytevector-length bv) 8))))
(with-test-prefix "srfi-4 homogeneous numeric vectors as bytevectors"
;; This failed prior to Guile 2.0.12.
;; See <http://bugs.gnu.org/18866>.
(pass-if-equal "bytevector-copy on srfi-4 arrays"
(make-bytevector 8 #xFF)
(bytevector-copy (make-u32vector 2 #xFFFFFFFF))))
;;; Local Variables:
;;; eval: (put 'with-test-prefix/c&e 'scheme-indent-function 1)
;;; End: