(library (srfi n6 tests)
  (export)
  (import (rnrs base)
          (rnrs io simple)
          (srfi n78)
          (srfi n6))

  (define p
    (open-input-string "(a . (b . (c . ()))) 34"))

  (check (input-port? p) => #t)
  (check (read p) => '(a b c))
  (check (read p) => 34)
  (check (eof-object? (peek-char p)) => #t)

  (check-report))