WIP tests: Switch to Guile modules.
This commit is contained in:
parent
35b5bed7d8
commit
8c61aacbb2
|
@ -44,6 +44,9 @@
|
||||||
(define-macro (defmacro name args . body)
|
(define-macro (defmacro name args . body)
|
||||||
`(define-macro ,(cons name args) ,@body))
|
`(define-macro ,(cons name args) ,@body))
|
||||||
|
|
||||||
|
(define-macro (set-object-property! object key value)
|
||||||
|
object)
|
||||||
|
|
||||||
(define-macro (set-procedure-property! proc key value)
|
(define-macro (set-procedure-property! proc key value)
|
||||||
proc)
|
proc)
|
||||||
|
|
||||||
|
|
|
@ -1,12 +1,14 @@
|
||||||
#! /bin/sh
|
#! /bin/sh
|
||||||
# -*-scheme-*-
|
# -*-scheme-*-
|
||||||
|
MES_BOOT=boot-5.mes
|
||||||
|
export MES_BOOT
|
||||||
exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests catch)' -s "$0" "$@"
|
exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests catch)' -s "$0" "$@"
|
||||||
!#
|
!#
|
||||||
|
|
||||||
;;; -*-scheme-*-
|
;;; -*-scheme-*-
|
||||||
|
|
||||||
;;; GNU Mes --- Maxwell Equations of Software
|
;;; GNU Mes --- Maxwell Equations of Software
|
||||||
;;; Copyright © 2016 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
;;; Copyright © 2016,2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||||
;;;
|
;;;
|
||||||
;;; This file is part of GNU Mes.
|
;;; This file is part of GNU Mes.
|
||||||
;;;
|
;;;
|
||||||
|
@ -24,12 +26,8 @@ exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests
|
||||||
;;; along with GNU Mes. If not, see <http://www.gnu.org/licenses/>.
|
;;; along with GNU Mes. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
(define-module (tests base)
|
(define-module (tests base)
|
||||||
#:use-module (mes mes-0)
|
|
||||||
#:use-module (mes test))
|
#:use-module (mes test))
|
||||||
|
|
||||||
(mes-use-module (mes catch))
|
|
||||||
(mes-use-module (mes test))
|
|
||||||
|
|
||||||
(pass-if "first dummy" #t)
|
(pass-if "first dummy" #t)
|
||||||
(pass-if-not "second dummy" #f)
|
(pass-if-not "second dummy" #f)
|
||||||
|
|
||||||
|
|
|
@ -1,12 +1,14 @@
|
||||||
#! /bin/sh
|
#! /bin/sh
|
||||||
# -*-scheme-*-
|
# -*-scheme-*-
|
||||||
|
MES_BOOT=boot-5.mes
|
||||||
|
export MES_BOOT
|
||||||
exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests closure)' -s "$0" "$@"
|
exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests closure)' -s "$0" "$@"
|
||||||
!#
|
!#
|
||||||
|
|
||||||
;;; -*-scheme-*-
|
;;; -*-scheme-*-
|
||||||
|
|
||||||
;;; GNU Mes --- Maxwell Equations of Software
|
;;; GNU Mes --- Maxwell Equations of Software
|
||||||
;;; Copyright © 2016,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
;;; Copyright © 2016,2018,2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||||
;;;
|
;;;
|
||||||
;;; This file is part of GNU Mes.
|
;;; This file is part of GNU Mes.
|
||||||
;;;
|
;;;
|
||||||
|
@ -24,11 +26,8 @@ exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests
|
||||||
;;; along with GNU Mes. If not, see <http://www.gnu.org/licenses/>.
|
;;; along with GNU Mes. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
(define-module (tests closure)
|
(define-module (tests closure)
|
||||||
#:use-module (mes mes-0)
|
|
||||||
#:use-module (mes test))
|
#:use-module (mes test))
|
||||||
|
|
||||||
(mes-use-module (mes test))
|
|
||||||
|
|
||||||
(pass-if "first dummy" #t)
|
(pass-if "first dummy" #t)
|
||||||
(pass-if-not "second dummy" #f)
|
(pass-if-not "second dummy" #f)
|
||||||
|
|
||||||
|
|
|
@ -1,12 +1,14 @@
|
||||||
#! /bin/sh
|
#! /bin/sh
|
||||||
# -*-scheme-*-
|
# -*-scheme-*-
|
||||||
|
MES_BOOT=boot-5.mes
|
||||||
|
export MES_BOOT
|
||||||
exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests cwv)' -s "$0" "$@"
|
exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests cwv)' -s "$0" "$@"
|
||||||
!#
|
!#
|
||||||
|
|
||||||
;;; -*-scheme-*-
|
;;; -*-scheme-*-
|
||||||
|
|
||||||
;;; GNU Mes --- Maxwell Equations of Software
|
;;; GNU Mes --- Maxwell Equations of Software
|
||||||
;;; Copyright © 2016 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
;;; Copyright © 2016,2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||||
;;;
|
;;;
|
||||||
;;; This file is part of GNU Mes.
|
;;; This file is part of GNU Mes.
|
||||||
;;;
|
;;;
|
||||||
|
@ -27,9 +29,6 @@ exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests
|
||||||
#:use-module (mes mes-0)
|
#:use-module (mes mes-0)
|
||||||
#:use-module (mes test))
|
#:use-module (mes test))
|
||||||
|
|
||||||
(mes-use-module (mes scm))
|
|
||||||
(mes-use-module (mes test))
|
|
||||||
|
|
||||||
(if (not guile-1.8?)
|
(if (not guile-1.8?)
|
||||||
(pass-if "values" (seq? (values 0 1) 0)))
|
(pass-if "values" (seq? (values 0 1) 0)))
|
||||||
(if (not guile-1.8?)
|
(if (not guile-1.8?)
|
||||||
|
|
|
@ -1,11 +1,14 @@
|
||||||
#! /bin/sh
|
#! /bin/sh
|
||||||
|
# -*-scheme-*-
|
||||||
|
MES_BOOT=boot-5.mes
|
||||||
|
export MES_BOOT
|
||||||
exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests display)' -s "$0" "$@"
|
exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests display)' -s "$0" "$@"
|
||||||
!#
|
!#
|
||||||
|
|
||||||
;;; -*-scheme-*-
|
;;; -*-scheme-*-
|
||||||
|
|
||||||
;;; GNU Mes --- Maxwell Equations of Software
|
;;; GNU Mes --- Maxwell Equations of Software
|
||||||
;;; Copyright © 2016,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
;;; Copyright © 2016,2018,2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||||
;;;
|
;;;
|
||||||
;;; This file is part of GNU Mes.
|
;;; This file is part of GNU Mes.
|
||||||
;;;
|
;;;
|
||||||
|
@ -26,10 +29,6 @@ exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests
|
||||||
#:use-module (mes mes-0)
|
#:use-module (mes mes-0)
|
||||||
#:use-module (mes test))
|
#:use-module (mes test))
|
||||||
|
|
||||||
(mes-use-module (mes display))
|
|
||||||
(mes-use-module (mes guile))
|
|
||||||
(mes-use-module (mes test))
|
|
||||||
|
|
||||||
(pass-if "first dummy" #t)
|
(pass-if "first dummy" #t)
|
||||||
(pass-if-not "second dummy" #f)
|
(pass-if-not "second dummy" #f)
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,7 @@
|
||||||
#! /bin/sh
|
#! /bin/sh
|
||||||
# -*-scheme-*-
|
# -*-scheme-*-
|
||||||
|
MES_BOOT=boot-5.mes
|
||||||
|
export MES_BOOT
|
||||||
exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests guile)' -s "$0" "$@"
|
exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests guile)' -s "$0" "$@"
|
||||||
!#
|
!#
|
||||||
|
|
||||||
|
@ -26,15 +28,8 @@ exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests
|
||||||
(define-module (tests guile)
|
(define-module (tests guile)
|
||||||
#:use-module (ice-9 rdelim)
|
#:use-module (ice-9 rdelim)
|
||||||
#:use-module (mes mes-0)
|
#:use-module (mes mes-0)
|
||||||
#:use-module (mes misc)
|
|
||||||
#:use-module (mes test))
|
#:use-module (mes test))
|
||||||
|
|
||||||
(cond-expand
|
|
||||||
(mes
|
|
||||||
(mes-use-module (mes test))
|
|
||||||
(mes-use-module (mes guile)))
|
|
||||||
(else))
|
|
||||||
|
|
||||||
(pass-if "first dummy" #t)
|
(pass-if "first dummy" #t)
|
||||||
(pass-if-not "second dummy" #f)
|
(pass-if-not "second dummy" #f)
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,7 @@
|
||||||
#! /bin/sh
|
#! /bin/sh
|
||||||
# -*-scheme-*-
|
# -*-scheme-*-
|
||||||
|
MES_BOOT=boot-5.mes
|
||||||
|
export MES_BOOT
|
||||||
exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests match)' -s "$0" "$@"
|
exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests match)' -s "$0" "$@"
|
||||||
!#
|
!#
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,7 @@
|
||||||
#! /bin/sh
|
#! /bin/sh
|
||||||
# -*-scheme-*-
|
# -*-scheme-*-
|
||||||
|
MES_BOOT=boot-5.mes
|
||||||
|
export MES_BOOT
|
||||||
exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests math)' -s "$0" "$@"
|
exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests math)' -s "$0" "$@"
|
||||||
!#
|
!#
|
||||||
|
|
||||||
|
@ -24,10 +26,8 @@ exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests
|
||||||
;;; along with GNU Mes. If not, see <http://www.gnu.org/licenses/>.
|
;;; along with GNU Mes. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
(define-module (tests math)
|
(define-module (tests math)
|
||||||
#:use-module (mes mes-0)
|
|
||||||
#:use-module (mes test))
|
#:use-module (mes test))
|
||||||
|
|
||||||
(mes-use-module (mes test))
|
|
||||||
(pass-if-equal "string->number" 42 (string->number "42"))
|
(pass-if-equal "string->number" 42 (string->number "42"))
|
||||||
(pass-if-equal "string->number neg" -42 (string->number "-42"))
|
(pass-if-equal "string->number neg" -42 (string->number "-42"))
|
||||||
(pass-if-equal "string->number #hex" 170 (string->number "#xaa"))
|
(pass-if-equal "string->number #hex" 170 (string->number "#xaa"))
|
||||||
|
|
Loading…
Reference in New Issue