diff options
author | Phil <theseaisinhere+git@gmail.com> | 2011-04-22 01:11:38 -0500 |
---|---|---|
committer | Ian Price <ianprice90@googlemail.com> | 2013-09-09 17:01:24 +0100 |
commit | faa16f99898a329eba0eaff0ab520eb0f9adbecb (patch) | |
tree | 3bac231491cd6083420718ae3e2897fad736aa2e /test-suite/tests | |
parent | becaec9a4e7042a98c2dfa5fd3af9d7c30f71f44 (diff) | |
download | guile-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.test | 6 | ||||
-rw-r--r-- | test-suite/tests/lua-eval-3.test | 4 | ||||
-rw-r--r-- | test-suite/tests/lua-eval.test | 6 |
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))))) |