thodg/css-lexer/test.lisp

• Show log

  Commit

• Hash : d4af0beb
  Author : Thomas de Grivel
  Date : 2018-06-13T18:05:56
  

  fix simple-test

Download

• test.lisp

• 
  (in-package :common-lisp-user)
  
  (defpackage :css-lexer/test
    (:use :babel-stream
          :cl
          :cl-stream
          :css-lexer
          :unistd-stream)
    #.(cl-stream:shadowing-import-from)
    (:export
     #:run
     #:simple-test))
  
  (in-package :css-lexer/test)
  
  (defun simple-test ()
    (with-stream (css (css-lexer
                       (string-input-stream
                        "body { color: #f00; }")))
      (loop
         (let ((r (stream-read css)))
           (print r)
           (when (typep r 'css-lexer::eof-token)
             (return))))))
  
  (defun run ()
    (asdf:load-system :css-lexer/test)
    (simple-test))
  
  (untrace token-stream::subseq*
           token-stream:make-token)
  

Download