3 ;;; Test lexical analyser
5 ;;; (c) 2010 Straylight/Edgeware
8 ;;;----- Licensing notice ---------------------------------------------------
10 ;;; This file is part of the Sensble Object Design, an object system for C.
12 ;;; SOD is free software; you can redistribute it and/or modify
13 ;;; it under the terms of the GNU General Public License as published by
14 ;;; the Free Software Foundation; either version 2 of the License, or
15 ;;; (at your option) any later version.
17 ;;; SOD is distributed in the hope that it will be useful,
18 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 ;;; GNU General Public License for more details.
22 ;;; You should have received a copy of the GNU General Public License
23 ;;; along with SOD; if not, write to the Free Software Foundation,
24 ;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
26 (cl:in-package #:sod-test)
28 (defclass lexer-test (test-case) ())
29 (add-test *sod-test-suite* (get-suite lexer-test))
31 ;;;--------------------------------------------------------------------------
32 ;;; Simple lexical analysis tests.
34 (defun list-tokens (string)
35 (let ((lexer (make-instance 'sod-token-scanner
36 :char-scanner (make-string-scanner string)
37 :filename "<string>")))
38 (with-parser-context (token-scanner-context :scanner lexer)
39 (parse (list () (if (scanner-at-eof-p lexer) (values '(:eof) nil nil)
41 (values (cons (token-type lexer)
44 (scanner-step lexer))))))))
46 (defmacro assert-tokens (string &rest list)
47 `(assert-equal (list-tokens ,string) ',list))
49 (def-test-method simple-lexer ((test lexer-test) :run nil)
50 (assert-tokens "foo - bar"
55 ;;;----- That's all, folks --------------------------------------------------