[uim-commit] r2278 - branches/r5rs/sigscheme/test

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-29 16:43:17 -0800 (Tue, 29 Nov 2005)
New Revision: 2278

Modified:
   branches/r5rs/sigscheme/test/bigloo-bchar.scm
   branches/r5rs/sigscheme/test/gauche-euc-jp.scm
   branches/r5rs/sigscheme/test/test-char.scm
   branches/r5rs/sigscheme/test/test-enc-sjis.scm
   branches/r5rs/sigscheme/test/test-equation.scm
   branches/r5rs/sigscheme/test/test-exp.scm
Log:
* sigscheme/test/test-exp.scm
  - Enclose (write (values)) into assert-error to follow the strict
    checking

* sigscheme/test/gauche-euc-jp.scm
* sigscheme/test/bigloo-bchar.scm
* sigscheme/test/test-char.scm
  - Add encoding specifier
* sigscheme/test/test-equation.scm
  - Ditto
  - Insert license header

* sigscheme/test/test-enc-sjis.scm
  - Disable *test-track-progress*


Modified: branches/r5rs/sigscheme/test/bigloo-bchar.scm
===================================================================
--- branches/r5rs/sigscheme/test/bigloo-bchar.scm	2005-11-30 00:36:56 UTC (rev 2277)
+++ branches/r5rs/sigscheme/test/bigloo-bchar.scm	2005-11-30 00:43:17 UTC (rev 2278)
@@ -1,3 +1,5 @@
+#! /usr/bin/env sscm -C ISO-8859-1
+
 ;*---------------------------------------------------------------------*/
 ;*    serrano/prgm/project/bigloo/recette/bchar.scm                    */
 ;*                                                                     */

Modified: branches/r5rs/sigscheme/test/gauche-euc-jp.scm
===================================================================
--- branches/r5rs/sigscheme/test/gauche-euc-jp.scm	2005-11-30 00:36:56 UTC (rev 2277)
+++ branches/r5rs/sigscheme/test/gauche-euc-jp.scm	2005-11-30 00:43:17 UTC (rev 2278)
@@ -1,4 +1,4 @@
-;; this test only works when the core system is compiled with euc-jp.
+#! /usr/bin/env sscm -C EUC-JP
 
 ;; $Id: euc-jp.scm,v 1.6 2001/05/03 19:05:39 shirok Exp $
 

Modified: branches/r5rs/sigscheme/test/test-char.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-char.scm	2005-11-30 00:36:56 UTC (rev 2277)
+++ branches/r5rs/sigscheme/test/test-char.scm	2005-11-30 00:43:17 UTC (rev 2278)
@@ -1,3 +1,6 @@
+#! /usr/bin/env sscm -C EUC-JP
+;; -*- buffer-file-coding-system: euc-jp -*-
+
 ;;  FileName : test-char.scm
 ;;  About    : unit test for R5RS char
 ;;

Modified: branches/r5rs/sigscheme/test/test-enc-sjis.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-enc-sjis.scm	2005-11-30 00:36:56 UTC (rev 2277)
+++ branches/r5rs/sigscheme/test/test-enc-sjis.scm	2005-11-30 00:43:17 UTC (rev 2278)
@@ -36,8 +36,6 @@
 
 (load "./test/unittest.scm")
 
-(set! *test-track-progress* #t)
-
 (assert-equal? "string 1" "”ül‚É‚Í" (string #\”ü #\l #\‚É #\‚Í))
 (assert-equal? "list->string 1" "3“ú‚Å" (list->string '(#\3 #\“ú #\‚Å)))
 (assert-equal? "string->list 1" '(#\‚Ÿ #\‚« #\‚é) (string->list "‚Ÿ‚«‚é"))

Modified: branches/r5rs/sigscheme/test/test-equation.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-equation.scm	2005-11-30 00:36:56 UTC (rev 2277)
+++ branches/r5rs/sigscheme/test/test-equation.scm	2005-11-30 00:43:17 UTC (rev 2278)
@@ -1,3 +1,38 @@
+#! /usr/bin/env sscm -C EUC-JP
+;; -*- buffer-file-coding-system: euc-jp -*-
+
+;;  FileName : test-equation.scm
+;;  About    : unit test for equations
+;;
+;;  Copyright (C) 2005      by Kazuki Ohta (mover at hct.zaq.ne.jp)
+;;
+;;  All rights reserved.
+;;
+;;  Redistribution and use in source and binary forms, with or without
+;;  modification, are permitted provided that the following conditions
+;;  are met:
+;;
+;;  1. Redistributions of source code must retain the above copyright
+;;     notice, this list of conditions and the following disclaimer.
+;;  2. Redistributions in binary form must reproduce the above copyright
+;;     notice, this list of conditions and the following disclaimer in the
+;;     documentation and/or other materials provided with the distribution.
+;;  3. Neither the name of authors nor the names of its contributors
+;;     may be used to endorse or promote products derived from this software
+;;     without specific prior written permission.
+;;
+;;  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS
+;;  IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
+;;  THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+;;  PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
+;;  CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+;;  EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+;;  PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+;;  PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+;;  LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+;;  NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+;;  SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
 (load "test/unittest.scm")
 
 (define closure1 (lambda (x) x))

Modified: branches/r5rs/sigscheme/test/test-exp.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-exp.scm	2005-11-30 00:36:56 UTC (rev 2277)
+++ branches/r5rs/sigscheme/test/test-exp.scm	2005-11-30 00:43:17 UTC (rev 2278)
@@ -409,9 +409,11 @@
 
 ;; not asserted, just make sure we don't blow up
 (begin (values 1 2 3) 'ignore)
-(write (values))
-(newline)
 
+(assert-error "multiple values at invalid place"
+              (lambda ()
+                (write (values))))
+
 (define dynwind-res '())
 (define append-sym!
   (lambda (sym)