[elpa] externals/csharp-mode 15d2214 174/459: Clean up loading of dev-packages.

[ELPA Syncer]

branch: externals/csharp-mode
commit 15d221459ca558c5159ea487d679faf0530f353e
Author: Jostein Kjønigsen <jostein@kjonigsen.net>
Commit: Jostein Kjønigsen <jostein@kjonigsen.net>

    Clean up loading of dev-packages.
---
 csharp-mode-tests.el | 47 ++++++++---------------------------------------
 1 file changed, 8 insertions(+), 39 deletions(-)

diff --git a/csharp-mode-tests.el b/csharp-mode-tests.el
index d088c43..094b364 100644
--- a/csharp-mode-tests.el
+++ b/csharp-mode-tests.el
@@ -4,46 +4,18 @@
 (require 'cl)
 (require 'package)
 
-;;; test-helper functions
-
-(defun move-to-line-after (text)
-  (search-forward text)
-  (move-beginning-of-line 1)
-  (forward-line 1))
-
-(defun get-current-line-contents ()
-  (let* ((start)
-         (end))
-    (move-beginning-of-line 1)
-    (setq start (point))
-    (move-end-of-line 1)
-    (setq end (point))
-    (buffer-substring start end)))
-
 ;; development only packages, not declared as a package-dependency
-(setq csharp-test-packages '(assess))
-
-;; ensure development packages are installed.
-(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/";))
 (package-initialize)
+(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/";))
+(dolist (p '(assess))
+  (when (not (package-installed-p p))
+    (package-refresh-contents)
+    (package-install p)))
 
-(defun csharp-test-packages-installed-p ()
-  "Return nil if there are packages that are not installed."
-  (loop for p in csharp-test-packages
-        when (not (package-installed-p p)) do (return nil)
-        finally (return t)))
+;; load dev packages
+(require 'assess)
 
-(defun csharp-test-packages-install-packages ()
-  "Install missing packages."
-  (unless (csharp-test-packages-installed-p)
-    ;; Referesh package lists
-    (package-refresh-contents)
-    ;; Install missing
-    (dolist (p csharp-test-packages)
-      (when (not (package-installed-p p))
-        (ignore-errors
-          (package-install p))))))
-(csharp-test-packages-install-packages)
+;;; test-helper functions
 
 
 ;;; actual tests
@@ -59,7 +31,6 @@
 (ert-deftest fontification-of-literals-detects-end-of-strings ()
   ;; this replaces the manual test of fontification-test.cs, but file has been
   ;; kept around to assist manual testing/verification.
-  (require 'assess)
   (should (assess-face-at=
            "string Literal = @\"with trailing slash\\\";\n public Type2 
Reference = null;"
            'csharp-mode
@@ -71,7 +42,6 @@
   ;; this replaces the manual test of
   ;; test-files/fontification-test-compiler-directives.cs, but file
   ;; has been kept around to assist manual testing/verification.
-  (require 'assess)
   (should (assess-face-at=
            "#region test\nx = true;"
            'csharp-mode
@@ -95,7 +65,6 @@
   ;; this replaces the manual test of
   ;; test-files/fontification-test-compiler-directives-with-comments.cs, but 
file
   ;; has been kept around to assist manual testing/verification.
-  (require 'assess)
   (let* ((test-string "#region case 1\n\n//this is a comment\n#region case2"))
     (should (assess-face-at=
              test-string