mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

Fix "coding:" cookies in the test suite.

Browse source 
* test-suite/tests/bytevectors.test, test-suite/tests/keywords.test,
  test-suite/tests/procprop.test, test-suite/tests/srfi-35.test,
  test-suite/tests/srfi-88.test: Add "coding:" cookie on the first line.
This commit is contained in:
Ludovic Courtès 2010-03-02 23:36:29 +01:00
parent d900a8557d
commit b8ed3de36e
5 changed files with 13 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,6 +1,6 @@
;;;; bytevectors.test --- Exercise the R6RS bytevector API. ;;;; bytevectors.test --- R6RS bytevectors. -*- mode: scheme; coding: iso-8859-1; -*-
;;;; ;;;;
;;;; Copyright (C) 2009 Free Software Foundation, Inc. ;;;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
;;;; Ludovic Courtès ;;;; Ludovic Courtès
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
@ -696,9 +696,3 @@
(pass-if "bitvector > 8" (pass-if "bitvector > 8"
(let ((bv (uniform-array->bytevector (make-bitvector 9 #t)))) (let ((bv (uniform-array->bytevector (make-bitvector 9 #t))))
(= (bytevector-length bv) 2)))) (= (bytevector-length bv) 2))))
;;; Local Variables:
;;; coding: latin-1
;;; mode: scheme
;;; End:

8
test-suite/tests/keywords.test
View file

@ -1,6 +1,6 @@
;;;; keywords.test --- Keywords -*- Scheme -*- ;;;; keywords.test --- Keywords. -*- mode: scheme; coding: utf-8; -*-
;;;; ;;;;
;;;; Copyright (C) 2009 Free Software Foundation, Inc. ;;;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -24,7 +24,3 @@
(pass-if "printing" (pass-if "printing"
(string=? (with-output-to-string (lambda () (write #:this))) (string=? (with-output-to-string (lambda () (write #:this)))
"#:this"))) "#:this")))
;;; Local Variables:
;;; coding: latin-1
;;; End:

11
test-suite/tests/procprop.test
View file

@ -1,7 +1,7 @@
;;;; procprop.test --- Procedure properties -*- Scheme -*- ;;;; procprop.test --- Procedure properties -*- mode: scheme; coding: utf-8; -*-
;;;; Ludovic Courtès <ludo@gnu.org> ;;;; Ludovic Courtès <ludo@gnu.org>
;;;; ;;;;
;;;; Copyright (C) 2009 Free Software Foundation, Inc. ;;;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -53,8 +53,3 @@
(pass-if "list" (pass-if "list"
(equal? (procedure-property list 'arity) (equal? (procedure-property list 'arity)
'(0 0 #t)))) '(0 0 #t))))
;;; Local Variables:
;;; coding: latin-1
;;; End:

11
test-suite/tests/srfi-35.test
View file

@ -1,7 +1,7 @@
;;;; srfi-35.test --- Test suite for SRFI-35 -*- Scheme -*- ;;;; srfi-35.test --- SRFI-35. -*- mode: scheme; coding: utf-8; -*-
;;;; Ludovic Courtès <ludo@gnu.org> ;;;; Ludovic Courtès <ludo@gnu.org>
;;;; ;;;;
;;;; Copyright (C) 2007, 2008, 2009 Free Software Foundation, Inc. ;;;; Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -316,8 +316,3 @@
(pass-if "(c2-b v5)" (pass-if "(c2-b v5)"
(equal? (c2-b v5) "b2"))) (equal? (c2-b v5) "b2")))
;;; Local Variables:
;;; coding: latin-1
;;; End:

11
test-suite/tests/srfi-88.test
View file

@ -1,7 +1,7 @@
;;;; srfi-88.test --- Test suite for SRFI-88 -*- Scheme -*- ;;;; srfi-88.test --- SRFI-88. -*- mode: scheme; coding: utf-8; -*-
;;;; Ludovic Courtès <ludo@gnu.org> ;;;; Ludovic Courtès <ludo@gnu.org>
;;;; ;;;;
;;;; Copyright (C) 2008 Free Software Foundation, Inc. ;;;; Copyright (C) 2008, 2010 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -51,8 +51,3 @@
;; `#{extended symbol}#:'. ;; `#{extended symbol}#:'.
(string=? "" (string=? ""
(keyword->string (string->keyword ""))))) (keyword->string (string->keyword "")))))
;;; Local Variables:
;;; coding: latin-1
;;; End: