#!/usr/bin/emacs --script
;; (Re)generate files with test cases for indentation

(let ((current-directory (file-name-directory load-file-name)))
  (setq ess-test-path (expand-file-name "." current-directory))
  (setq ess-literate-path (expand-file-name "./literate/" current-directory))
  (setq ess-root-path (expand-file-name "../lisp/" current-directory)))

(add-to-list 'load-path ess-root-path)
(add-to-list 'load-path ess-test-path)

(require 'ert)
(require 'ess-site)
(load (expand-file-name "ess-literate-tests.el" ess-test-path) nil t)

(message "\nStarting literate tests")

(mapc (lambda (file)
        (ess-ltest-R (expand-file-name file ess-literate-path)))
      '("roxy" "code-fill" "misc" "syntax" "tokens"))
