#lang racket/base
;; For legal info, see file "info.rkt".

(require rackunit
         rackunit/text-ui
         "xexp.rkt")

(define tests
  (test-suite
   "xexp"
   
   (check-equal? (xexp-char-ref-value '(& copy))
                 'copy)
   
   (check-equal? (xexp-char-ref-value '(& copy ()))
                 'copy)
   
   (check-equal? (xexp-char-ref-value '(& () copy ()))
                 'copy)
   
   (check-equal? (xexp-char-ref-value '(& () ((() () (() copy) (()))) ()))
                 'copy)))

(run-tests tests 'verbose)
  
  ;; (require (planet neil/testeez:1:1)
;;          "xexp.rkt")
;;
;; (testeez
;;  "test-xexp.rkt"
;;
;;  (test/equal ""
;;              (xexp-char-ref-value '(& copy))
;;              'copy)
;;
;;  (test/equal ""
;;              (xexp-char-ref-value '(& copy ()))
;;              'copy)
;;
;;  (test/equal ""
;;              (xexp-char-ref-value '(& () copy ()))
;;              'copy)
;;
;;  (test/equal ""
;;              (xexp-char-ref-value '(& () ((() () (() copy) (()))) ()))
;;              'copy)
;;
;;  )