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