edit-server-ert.el 465 B

1234567891011121314
  1. ;;; edit-server-ert.el --- ERT tests for edit-server
  2. ;; Copyright (C) 2013 Alex Bennée
  3. (require 'ert)
  4. ; This test needs edit-server loaded to find the path to the file
  5. (ert-deftest edit-server-compiles ()
  6. "Tests that edit-server.el compiles cleanly."
  7. (let ((byte-compile-error-on-warn 't)
  8. (edit-server-file (find-lisp-object-file-name 'edit-server-start (symbol-function 'edit-server-start))))
  9. (should (byte-compile-file edit-server-file))))