mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

* test/indent/prolog.prolog: Add tokenizing tests.

Browse Source
This commit is contained in:
Stefan Monnier 2011-01-13 15:53:06 -05:00
parent dbed16aa06
commit db5d03ea56
2 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/ChangeLog
View File

@ -1,3 +1,7 @@
2011-01-13 Stefan Monnier <monnier@iro.umontreal.ca>
* indent/prolog.prolog: Add tokenizing tests.
2011-01-13 Christian Ohler <ohler@gnu.org>
* automated: New directory for automated tests.
@ -229,7 +233,7 @@
;; add-log-time-zone-rule: t
;; End:
Copyright (C) 2008, 2009, 2010 Free Software Foundation, Inc.
Copyright (C) 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
This file is part of GNU Emacs.

17
test/indent/prolog.prolog
View File

@ -1,11 +1,18 @@
%% -*- mode: prolog; coding: utf-8 -*-
%% -*- mode: prolog; coding: utf-8; fill-column: 78 -*-
%% Testing correct tokenizing.
foo(X) :- 0'= = X.
foo(X) :- 8'234 = X.
foo(X) :- '\x45\' = X.
foo(X) :- 'test 0'=X.
foo(X) :- 'test 8'=X.
%% wf(+E)
%% Vérifie que E est une expression syntaxiquement correcte.
wf(X) :- atom(X); integer(X); var(X). %Une variable ou un entier.
wf(lambda(X, T, B)) :- atom(X), wf(T), wf(B). %Une fonction.
wf(app(E1, E2)) :- wf(E1), wf(E2). %Un appel de fonction.
wf(pi(X, T, B)) :- atom(X), wf(T), wf(B). %Le type d'une fonction.
wf(X) :- atom(X); integer(X); var(X). %Une variable ou un entier.
wf(lambda(X, T, B)) :- atom(X), wf(T), wf(B). %Une fonction.
wf(app(E1, E2)) :- wf(E1), wf(E2). %Un appel de fonction.
wf(pi(X, T, B)) :- atom(X), wf(T), wf(B). %Le type d'une fonction.
%% Éléments additionnels utilisés dans le langage source.
wf(lambda(X, B)) :- atom(X), wf(B).