;; -*-theme-d-*-

;; Copyright (C) 2014  Tommi Höynälänmaa
;; Distributed under GNU General Public License version 3,
;; see file doc/GPL-3.

;; Expected results: translation and running OK


(define-proper-program (tests test272)

  (import (standard-library core)
	  (standard-library list-utilities)
	  (standard-library text-file-io)
	  (standard-library console-io))

  (define my-read
    (lambda (((ip <input-port>)) <object> nonpure)
      (let-mutable ((result <list> null)
		    (stop? <boolean> #f))
	(until ((or stop? (not (character-ready? ip))) result)
	  (let ((data (read ip)))
	    (if (eof? data)
		(set! stop? #t)
		(set! result
		      (append result (list data)))))))))

  (define main
    (lambda (() <none> nonpure)
      (let* ((my-file (open-input-file
		       "../theme-d-code/tests/aux-test266-data.txt"))
	     (data (my-read my-file)))
	(close-input-port my-file)
	(console-write data)
	(console-newline)))))
