andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

squash! DRAFT tests: Switch to Guile modules.

This commit is contained in:
Jan (janneke) Nieuwenhuizen 2021-05-16 11:44:39 +02:00
parent c29fe38f9d
commit 30a280b3e9
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
2 changed files with 5 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/srfi-1.test
View File

@ -26,9 +26,9 @@ 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/>.
(define-module (tests srfi-1)
#:use-module (srfi srfi-1)
#:use-module (mes mes-0)
#:use-module (mes test))
#:use-module (mes test)
#:use-module (srfi srfi-1))
(pass-if "first dummy" #t)
(pass-if-not "second dummy" #f)

14
tests/srfi-9.test
View File

@ -28,18 +28,10 @@ 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/>.
(define-module (tests srfi-9)
#:use-module (srfi srfi-9)
#:use-module (srfi srfi-9 gnu)
#:use-module (mes mes-0)
#:use-module (mes test))
(cond-expand
(mes
;; bootstrap test
(primitive-load "module/mes/test.scm")
(primitive-load "mes/module/srfi/srfi-9-struct.mes")
(primitive-load "mes/module/srfi/srfi-9/gnu-struct.mes"))
(else))
#:use-module (mes test)
#:use-module (srfi srfi-9)
#:use-module (srfi srfi-9 gnu))
(pass-if "first dummy" #t)
(pass-if-not "second dummy" #f)