From 737484092c3afc994eeab446b805b0998853b47d Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sun, 28 Feb 2016 03:25:52 -0500 Subject: Add popup interface for compilation --- test-snakemake-mode.el | 621 ------------------------------------------------- 1 file changed, 621 deletions(-) delete mode 100644 test-snakemake-mode.el (limited to 'test-snakemake-mode.el') diff --git a/test-snakemake-mode.el b/test-snakemake-mode.el deleted file mode 100644 index 3581e93..0000000 --- a/test-snakemake-mode.el +++ /dev/null @@ -1,621 +0,0 @@ -;;; test-snakemake-mode.el --- Tests for snakemake-mode.el - -;; Copyright (C) 2015-2016 Kyle Meyer - -;; Author: Kyle Meyer - -;; This program is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; This program 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 General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with this program. If not, see . - -;;; Code: - -(require 'cl-lib) -(require 'snakemake-mode) -(require 'ert) - -;; This is modified from `org-tests.el' (55c0708). -(defmacro snakemake-with-temp-text (text &rest body) - "Run body in a temporary Snakemake mode buffer. - -Fill the buffer with TEXT. If the string \"\" appears in -TEXT then remove it and place the point there before running -BODY, otherwise place the point at the beginning of the inserted -text. - -Also, mute messages." - (declare (indent 1)) - `(cl-letf (((symbol-function 'message) (lambda (&rest args) nil))) - (let ((inside-text (if (stringp ,text) ,text (eval ,text)))) - (with-temp-buffer - (snakemake-mode) - (let ((point (string-match "" inside-text))) - (if point - (progn - (insert (replace-match "" nil nil inside-text)) - (goto-char (1+ (match-beginning 0)))) - (insert inside-text) - (goto-char (point-min)))) - ,@body)))) -(def-edebug-spec snakemake-with-temp-text (form body)) - - - -;;; Indentation - -(ert-deftest test-snakemake-mode/indentation-at-rule-block () - "Test `snakemake-indent-line' at top of rule block." - - ;; Always shift first line of block to column 0. - (should - (string= - "rule abc:" - (snakemake-with-temp-text - "rule abc:" - (snakemake-indent-line) - (buffer-string)))) - (should - (string= - "rule abc:" - (snakemake-with-temp-text - " rule abc:" - (snakemake-indent-line) - (buffer-string)))) - - ;; Don't move point if beyond column 0. - (should - (string= - "rule abc: " - (snakemake-with-temp-text - " rule abc: " - (snakemake-indent-line) - (buffer-string)))) - (should - (string= - "rule " - (snakemake-with-temp-text - " rule abc: " - (snakemake-indent-line) - (buffer-substring (point-min) (point)))))) - -(ert-deftest test-snakemake-mode/indentation-outside-rule () - "Test `snakemake-indent-line' outside rule block." - ;; Use standard Python mode indentation outside of rule blocks. - (should - (string= - " -def ok(): - " - (snakemake-with-temp-text - " -def ok(): -" - (snakemake-indent-line) - (buffer-string))))) - -(ert-deftest test-snakemake-mode/indentation-field-key () - "Test `snakemake-indent-line' on field key line." - - ;; Always indent first line to `snakemake-indent-field-offset'. - ;; Move point to `snakemake-indent-field-offset' if it is before any - ;; text on the line. - (should - (string= - " -rule abc: - " - (snakemake-with-temp-text - " -rule abc: -" - (snakemake-indent-line) - (buffer-string)))) - (should - (string= - " -rule abc: - " - (snakemake-with-temp-text - " -rule abc: -" - (snakemake-indent-line) - (snakemake-indent-line) - (buffer-string)))) - (should - (string= - " -rule abc: - text" - (snakemake-with-temp-text - " -rule abc: -text" - (snakemake-indent-line) - (buffer-substring (point-min) (point))))) - (should - (string= - " -rule abc: - te" - (snakemake-with-temp-text - " -rule abc: -text" - (snakemake-indent-line) - (buffer-substring (point-min) (point))))) - - ;; Always indent field key to `snakemake-indent-field-offset'. - ;; Move point to `snakemake-indent-field-offset' if it is before any - ;; text on the line. - (should - (string= - " -rule abc: - input: 'infile' - output:" - (snakemake-with-temp-text - " -rule abc: - input: 'infile' -output:" - (snakemake-indent-line) - (buffer-string)))) - (should - (string= - " -rule abc: - input: 'infile' - output:" - (snakemake-with-temp-text - " -rule abc: - input: 'infile' -output:" - (snakemake-indent-line) - (snakemake-indent-line) - (buffer-string)))) - (should - (string= - " -rule abc: - input: 'infile' - output: " - (snakemake-with-temp-text - " -rule abc: - input: 'infile' -output: " - (snakemake-indent-line) - (buffer-string)))) - (should - (string= - " -rule abc: - input: 'infile' - " - (snakemake-with-temp-text - " -rule abc: - input: 'infile' - output:" - (snakemake-indent-line) - (buffer-substring (point-min) (point)))))) - -(ert-deftest test-snakemake-mode/indentation-field-value () - "Test `snakemake-indent-line' on field value line." - - ;; Always indent line below naked field key to - ;; `snakemake-indent-field-offset' + - ;; `snakemake-indent-value-offset'. Move point to to this position - ;; as well if it is before any text on the line. - (should - (string= - " -rule abc: - output: - " - (snakemake-with-temp-text - " -rule abc: - output: -" - (snakemake-indent-line) - (buffer-string)))) - (should - (string= - " -rule abc: - output: - " - (snakemake-with-temp-text - " -rule abc: - output: -" - (snakemake-indent-line) - (snakemake-indent-line) - (buffer-string)))) - (should - (string= - " -rule abc: - output: - " - (snakemake-with-temp-text - " -rule abc: - output: - " - (snakemake-indent-line) - (buffer-string)))) - - ;; Add step with Python indentation for non-blank lines under naked - ;; field keys. Field keys with values starting on the same line do - ;; not use Python indentation because this is invalid syntax in - ;; Snakemake. - (should - (string= - " -rule abc: - output: 'file{}{}'.format('one', - 'two'" - (snakemake-with-temp-text - " -rule abc: - output: 'file{}{}'.format('one', -'two'" - (snakemake-indent-line) - (buffer-string)))) - (should - (string= - " -rule abc: - output: - 'file{}{}'.format('one', - 'two'" - (snakemake-with-temp-text - " -rule abc: - output: - 'file{}{}'.format('one', -'two'" - (snakemake-indent-line) - (buffer-string)))) - (should - (string= - " -rule abc: - output: - 'file{}{}'.format('one', - " - (snakemake-with-temp-text - " -rule abc: - output: - 'file{}{}'.format('one', -" - (snakemake-indent-line) - (buffer-string)))) - - ;; On non-naked field key cycle indentation between - ;; `snakemake-indent-field-offset' and column of previous field - ;; value. If point is before any text on the line, move it to the - ;; start of the text instead. - (should - (string= - " -rule abc: - output: 'file' - " - (snakemake-with-temp-text - " -rule abc: - output: 'file' -" - (snakemake-indent-line) - (buffer-string)))) - (should - (string= - " -rule abc: - output: 'file' - " - (snakemake-with-temp-text - " -rule abc: - output: 'file' -" - (snakemake-indent-line) - (snakemake-indent-line) - (buffer-string)))) - (should - (string= - " -rule abc: - output: 'file' - " - (snakemake-with-temp-text - " -rule abc: - output: 'file' -" - (snakemake-indent-line) - (snakemake-indent-line) - (snakemake-indent-line) - (buffer-string)))) - (should - (string= - " -rule abc: - output: 'file' - 'text'" - (snakemake-with-temp-text - " -rule abc: - output: 'file' -'text'" - (snakemake-indent-line) - (buffer-string)))) - (should - (string= - " -rule abc: - output: 'file' - 'text'" - (snakemake-with-temp-text - " -rule abc: - output: 'file' -'text'" - (snakemake-indent-line) - (snakemake-indent-line) - (buffer-string)))) - (should - (string= - " -rule abc: - output: 'file' - 'text' " - (snakemake-with-temp-text - " -rule abc: - output: 'file' -'text' " - (snakemake-indent-line) - (buffer-string)))) - (should - (string= - " -rule abc: - output: 'file' - " - (snakemake-with-temp-text - " -rule abc: - output: 'file' - 'text'" - (snakemake-indent-line) - (buffer-substring (point-min) (point))))) - (should - (string= - " -rule abc: - output: 'file' - 'text'" - (snakemake-with-temp-text - " -rule abc: - output: 'file' - 'text'" - (snakemake-indent-line) - (snakemake-indent-line) - (buffer-string)))) - - ;; Indent body of run field according to Python mode. - (should - (string= - " -rule abc: - run: - with this: - " - (snakemake-with-temp-text - " -rule abc: - run: - with this: -" - (snakemake-indent-line) - (buffer-string))))) - - -;;; Other - -(ert-deftest test-snakemake-mode/in-rule-block () - "Test `snakemake-in-rule-or-subworkflow-block-p'" - - ;; At top of block - (snakemake-with-temp-text - " -rule abc: - output: 'file'" - (should (snakemake-in-rule-or-subworkflow-block-p))) - - ;; Body of block - (snakemake-with-temp-text - " -rule abc: - output: 'file'" - (should (snakemake-in-rule-or-subworkflow-block-p))) - - ;; First blank line after - (snakemake-with-temp-text - " -rule abc: - output: 'file' -" - (should (snakemake-in-rule-or-subworkflow-block-p))) - - ;; Second blank line after - (snakemake-with-temp-text - " -rule abc: - output: 'file' - -" - (should-not (snakemake-in-rule-or-subworkflow-block-p))) - - - ;; Blank line in docstring - (snakemake-with-temp-text - " -rule abc: - \"\"\"docstring header - - docstring line - \"\"\" - output: 'file'" - (should (snakemake-in-rule-or-subworkflow-block-p))) - - ;; Before - (snakemake-with-temp-text - " -rule abc: - output: 'file'" - (should-not (snakemake-in-rule-or-subworkflow-block-p))) - - ;; Subworkflow - (snakemake-with-temp-text - " -subworkflow otherworkflow: - workdir: '../path/to/otherworkflow' - snakefile: '../path/to/otherworkflow/Snakefile'" - (should (snakemake-in-rule-or-subworkflow-block-p)))) - -(ert-deftest test-snakemake-mode/first-field-line-p () - "Test `snakemake-first-field-line-p'." - (snakemake-with-temp-text - " -rule abc: -" - (should (snakemake-first-field-line-p))) - (snakemake-with-temp-text - " -rule abc: - output: 'file'" - (should (snakemake-first-field-line-p))) - (snakemake-with-temp-text - " -rule abc: - output: -" - (should-not (snakemake-first-field-line-p)))) - -(ert-deftest test-snakemake-mode/below-naked-field-p () - "Test `snakemake-below-naked-field-p'." - (snakemake-with-temp-text - " -rule abc: - output: -" - (should (snakemake-below-naked-field-p))) - (snakemake-with-temp-text - " -rule abc: - output: 'file' -" - (should-not (snakemake-below-naked-field-p))) - (snakemake-with-temp-text - " -rule abc: - output: " - (should-not (snakemake-below-naked-field-p)))) - -(ert-deftest test-snakemake-mode/naked-field-line-p () - "Test `snakemake-naked-field-line-p'." - (snakemake-with-temp-text - " -rule abc: - output: -" - (should (snakemake-naked-field-line-p))) - (snakemake-with-temp-text - " -rule abc: - output: - 'file', - " - (should (snakemake-naked-field-line-p))) - (snakemake-with-temp-text - " -rule abc: - output: " - (should (snakemake-naked-field-line-p))) - (snakemake-with-temp-text - " -rule abc: - output: 'file' -" - (should-not (snakemake-naked-field-line-p))) - (snakemake-with-temp-text - " -rule abc: - input: - 'infile' - output: 'file' -" - (should-not (snakemake-naked-field-line-p)))) - -(ert-deftest test-snakemake-mode/run-field-line-p () - "Test `snakemake-run-field-line-p'." - (snakemake-with-temp-text - " -rule abc: - run: -" - (should (snakemake-run-field-line-p))) - (snakemake-with-temp-text - " -rule abc: - run: - with file: -" - (should (snakemake-run-field-line-p))) - (snakemake-with-temp-text - " -rule abc: - output: 'file' -" - (should-not (snakemake-run-field-line-p)))) - -(ert-deftest test-snakemake-mode/previous-field-value-column () - "Test `snakemake-previous-field-value-column'." - (should (= 12 - (snakemake-with-temp-text - " -rule abc: - output: 'file' -" - (snakemake-previous-field-value-column)))) - (should (= 12 - (snakemake-with-temp-text - " -rule abc: - output: 'file', - 'another' -" - (snakemake-previous-field-value-column))))) - - -(provide 'test-snakemake-mode) -;;; test-snakemake-mode.el ends here -- cgit v1.2.3