From 4bc18f4e24318c860481df4fb3c243cc205ef03f Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Tue, 11 Sep 2018 22:39:40 +0530 Subject: tests: Add tests for (email quoted-printable). * build-aux/test-driver.scm: New file. * tests/quoted-printable.scm: New file. * Makefile.am (TEST_EXTENSIONS, SCM_TESTS, TESTS, SCM_LOG_DRIVER): New variables. (EXTRA_DIST): Register new files for distribution. --- build-aux/test-driver.scm | 51 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 51 insertions(+) create mode 100644 build-aux/test-driver.scm (limited to 'build-aux') diff --git a/build-aux/test-driver.scm b/build-aux/test-driver.scm new file mode 100644 index 0000000..25aaf44 --- /dev/null +++ b/build-aux/test-driver.scm @@ -0,0 +1,51 @@ +;;; guile-email --- Guile email parser +;;; Copyright © 2018 Arun Isaac +;;; +;;; This file is part of guile-email. +;;; +;;; guile-email is free software; you can redistribute it and/or modify +;;; it under the terms of the GNU Affero General Public License as +;;; published by the Free Software Foundation; either version 3 of the +;;; License, or (at your option) any later version. +;;; +;;; guile-email is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; Affero General Public License for more details. +;;; +;;; You should have received a copy of the GNU Affero General Public +;;; License along with guile-email. If not, see +;;; . + +(use-modules (ice-9 getopt-long) + (srfi srfi-26) + (srfi srfi-64)) + +;; Currently, only log-file and trs-file are understood. Everything +;; else is ignored. +(define %options + '((test-name (value #t)) + (log-file (value #t)) + (trs-file (value #t)) + (color-tests (value #t)) + (expect-failure (value #t)) + (enable-hard-errors (value #t)))) + +(define (my-gnu-runner trs-port) + (let ((runner (test-runner-simple))) + (test-runner-on-test-end! runner + (lambda (runner) + (format trs-port ":test-result: ~A ~A~%" + (string-upcase + (symbol->string + (test-result-kind runner))) + (test-runner-test-name runner)))) + runner)) + + +(let ((opts (getopt-long (command-line) %options))) + (set! test-log-to-file (option-ref opts 'log-file #f)) + (call-with-output-file (option-ref opts 'trs-file #f) + (lambda (trs-port) + (test-with-runner (my-gnu-runner trs-port) + (load-from-path (option-ref opts 'test-name #f)))))) -- cgit v1.2.3