; Copyright 2005 Kevin Reid, under the terms of the MIT X license
; found at http://www.opensource.org/licenses/mit-license.html ................

(cl:in-package :e.lisp-test)

(deftest node-arity.1
  (handler-case
    (make-instance 'e.elang.vm-node:|LiteralExpr| :elements '(1 2))
    (e.elang:node-arity-error ()
      't))
  t)