summaryrefslogtreecommitdiff
path: root/test-suite/tests
diff options
context:
space:
mode:
authorPhil <theseaisinhere+git@gmail.com>2011-04-22 01:11:38 -0500
committerIan Price <ianprice90@googlemail.com>2013-09-09 17:01:24 +0100
commitfaa16f99898a329eba0eaff0ab520eb0f9adbecb (patch)
tree3bac231491cd6083420718ae3e2897fad736aa2e /test-suite/tests
parentbecaec9a4e7042a98c2dfa5fd3af9d7c30f71f44 (diff)
downloadguile-faa16f99898a329eba0eaff0ab520eb0f9adbecb.tar.gz
module/language/lua/parser.scm: Rename #:dots to #:varargs
Diffstat (limited to 'test-suite/tests')
-rw-r--r--test-suite/tests/lua-eval-2.test6
-rw-r--r--test-suite/tests/lua-eval-3.test4
-rw-r--r--test-suite/tests/lua-eval.test6
3 files changed, 8 insertions, 8 deletions
diff --git a/test-suite/tests/lua-eval-2.test b/test-suite/tests/lua-eval-2.test
index c94694f59..928cebe86 100644
--- a/test-suite/tests/lua-eval-2.test
+++ b/test-suite/tests/lua-eval-2.test
@@ -6,12 +6,12 @@
;;;; modify it under the terms of the GNU Lesser General Public
;;;; License as published by the Free Software Foundation; either
;;;; version 3 of the License, or (at your option) any later version.
-;;;;
+;;;;
;;;; This library is distributed in the hope that it will be useful,
;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;;;; Lesser General Public License for more details.
-;;;;
+;;;;
;;;; You should have received a copy of the GNU Lesser General Public
;;;; License along with this library; if not, write to the Free Software
;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
@@ -37,7 +37,7 @@
((test
(syntax-rules ()
((_ string expect)
- (pass-if (format "~S => ~S" string expect) (equal? (from-string string) expect)))
+ (pass-if (format #f "~S => ~S" string expect) (equal? (from-string string) expect)))
((_ string)
(test string #t)))))
diff --git a/test-suite/tests/lua-eval-3.test b/test-suite/tests/lua-eval-3.test
index 881389c32..533d4a85b 100644
--- a/test-suite/tests/lua-eval-3.test
+++ b/test-suite/tests/lua-eval-3.test
@@ -1,4 +1,4 @@
-;;;; lua-eval-2.test --- basic tests for builtin lua constructs, act III -*- mode: scheme -*-
+;;;; lua-eval-3.test --- basic tests for builtin lua constructs, act III -*- mode: scheme -*-
;;;;
;;;; Copyright (C) 2010 Free Software Foundation, Inc.
;;;;
@@ -45,5 +45,5 @@
;;; y will equal 2 in case of extra eval
(test "y = 0 function tmp() y = y + 1 return true end assert(tmp() or tmp()) return y == 1")
;;; y will equal 4 in case of extra eval
- (test "y = 0 function tmp() y = y + 2 return false end; function tmp2() y = y + 1 return true end; print(tmp() and tmp2()) print(y) return y == 2")
+ (test "y = 0 function void(x) end function tmp() y = y + 2 return false end; function tmp2() y = y + 1 return true end; void(tmp() and tmp2()) return y == 2")
))
diff --git a/test-suite/tests/lua-eval.test b/test-suite/tests/lua-eval.test
index 93e346e88..7008314aa 100644
--- a/test-suite/tests/lua-eval.test
+++ b/test-suite/tests/lua-eval.test
@@ -6,12 +6,12 @@
;;;; modify it under the terms of the GNU Lesser General Public
;;;; License as published by the Free Software Foundation; either
;;;; version 3 of the License, or (at your option) any later version.
-;;;;
+;;;;
;;;; This library is distributed in the hope that it will be useful,
;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;;;; Lesser General Public License for more details.
-;;;;
+;;;;
;;;; You should have received a copy of the GNU Lesser General Public
;;;; License along with this library; if not, write to the Free Software
;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
@@ -37,7 +37,7 @@
((test
(syntax-rules ()
((_ string expect)
- (pass-if (format "~S => ~S" string expect) (equal? (from-string string) expect)))
+ (pass-if (format #f "~S => ~S" string expect) (equal? (from-string string) expect)))
((_ string)
(test string #t)))))