;;; -*- mode: Lisp; Syntax: Common-Lisp; -*-
;;;
;;; Copyright (c) 2009 by the authors.
;;;
;;; See LICENCE for details.

(in-package :hu.dwim.excosy.test)

(def test test/brainfuck/ascii-character-set ()
  (bind ((machine (make-virtual-machine nil))
         (ast (read-brainfuck-program ".+[.+]")))
    (interpret-excosy machine ast)
    #+nil(assemble-excosy machine (compile-excosy machine ast))))