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

(in-package :hu.dwim.projectional-editor.test)

(def suite* (test :in root-suite))

(def function print-input-references (iomap)
  (map-input-references iomap (lambda (iomap reference)
                                (declare (ignore iomap))
                                (print reference))))

(def function print-output-references (iomap)
  (map-output-references iomap (lambda (iomap reference)
                                 (declare (ignore iomap))
                                 (print reference))))

(def function test-map-backward (iomap)
  (map-output-references iomap (lambda (reference-iomap output-reference)
                                 (declare (ignore reference-iomap))
                                 (map-backward iomap output-reference
                                               (lambda (iomap input-reference)
                                                 (declare (ignore iomap))
                                                 (format t "~%~%Output: ~A~%Input: ~A" output-reference input-reference))))))

(def function test-map-forward (iomap)
  (map-input-references iomap (lambda (reference-iomap input-reference)
                                (declare (ignore reference-iomap))
                                (map-forward iomap input-reference
                                             (lambda (iomap output-reference)
                                               (declare (ignore iomap))
                                               (format t "~%~%Input: ~A~%Output: ~A" input-reference output-reference))))))