(use test srfi-13)

(include "mta.scm")

(define rfc-D.1
  `(
    "EHLO bar.com\r\n"
    "MAIL FROM:<Smith@bar.com>\r\n"
    "RCPT TO:<Jones@foo.com>\r\n"
    "RCPT TO:<Green@foo.com>\r\n"
    "RCPT TO:<Brown@foo.com>\r\n"
    "DATA\r\n"
    "Blah blah blah...\r\n...etc. etc. etc.\r\n"
    ".\r\n"
    "QUIT\r\n"
    ))

(test-group "chicken-mta"
	    
(let ((output (open-output-string)))
  (main
   (open-input-string (string-concatenate rfc-D.1))
   output)
  (print "mail from: " (mailfrom))
  (print "rcpt to: " (rcpto))
  (print "data: " (data))

  (test "rfc-D.1"
   (string-append 
    "250-chicken-mta\r\n"
    "250- \r\n"
    "250-Hello \r\n"
    "250 bar.com\r\n"
    "250 OK\r\n"
    "250 Accepted\r\n"
    "250 Accepted\r\n"
    "250 Accepted\r\n"
    "354 Ready\r\n"
    "250 OK\r\n"
    "251-chicken-mta\r\n"
    "251  closing connection\r\n")
   (get-output-string output))
  ))