Add some tests for remapping logic

Author: landakram

.gitignore

@@ -1 +1,3 @@
-solidity-mode.elc
+solidity-mode.elc
+test/elpa
+test/straight

test/solidity-flycheck-tests.el

@@ -0,0 +1,44 @@
+;;; solidity-flycheck-tests.el --- Setup and execute all tests
+
+;;; Commentary:
+
+;; This package contains tests for the solidity-flycheck package.
+
+;;; Code:
+
+(require 'solidity-flycheck)
+
+(ert-deftest test-solidity-flycheck--solc-allow-paths ()
+ "Test that `solidity-flycheck--solc-allow-paths' contains `solidity-flycheck-solc-additional-allow-paths'."
+ (let ((solidity-flycheck-solc-additional-allow-paths '("/tmp/test1" "/tmp/test2")))
+ (should (equal
+ (solidity-flycheck--solc-allow-paths)
+ '("/tmp/test1" "/tmp/test2" ".")))))
+
+(defmacro with-temp-dirs (temp-dirs &rest body)
+ (let ((bindings (mapcar (lambda (d) `(,d (make-temp-file "" t)))
+ temp-dirs)))
+ `(let ,bindings
+ (unwind-protect
+ (progn
+ ,@body)
+ (progn
+ (dolist (d (list ,@temp-dirs))
+ (delete-directory d t)))))))
+
+(ert-deftest test-solidity-flycheck--solc-remappings ()
+ "Test that `solidity-flycheck--solc-remappings' creates remappings for path in `solidity-flycheck--solc-allow-paths'"
+ (with-temp-dirs
+ (test-dir-1 test-dir-2 test-dir-3)
+ (let* ((default-directory test-dir-1)
+ (solidity-flycheck-solc-additional-allow-paths (list test-dir-2 test-dir-3)))
+ (make-directory (concat (file-name-as-directory test-dir-2) "subdir1"))
+ (make-directory (concat (file-name-as-directory test-dir-3) "@subdir2"))
+ (should (equal
+ (solidity-flycheck--solc-remappings)
+ (list (concat "subdir1=" (concat (file-name-as-directory test-dir-2) "subdir1"))
+ (concat "@subdir2=" (concat (file-name-as-directory test-dir-3) "@subdir2")))))))
+ )
+
+(provide 'solidity-flycheck-tests)
+;;; solidity-flycheck-tests.el ends here

test/solidity-mode-test-setup.el

@@ -0,0 +1,68 @@
+;;; solidity-mode-test-setup.el --- Setup and execute all tests
+
+;;; Commentary:
+
+;; This package sets up a suitable enviroment for testing
+;; solidity-mode, and executes the tests.
+;;
+;; Usage:
+;;
+;; emacs -q -l test/solidity-mode-test-setup.el
+;;
+;; Note that this package assumes that some packages are located in
+;; specific locations.
+
+;;; Code:
+
+(setq user-init-file (or load-file-name (buffer-file-name)))
+(setq user-emacs-directory (file-name-directory user-init-file))
+
+(require 'package)
+(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
+(setq package-enable-at-startup nil)
+(package-initialize)
+(when (not package-archive-contents)
+ (package-refresh-contents))
+
+(defvar bootstrap-version)
+(let ((bootstrap-file
+ (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
+ (bootstrap-version 5))
+ (unless (file-exists-p bootstrap-file)
+ (with-current-buffer
+ (url-retrieve-synchronously
+ "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
+ 'silent 'inhibit-cookies)
+ (goto-char (point-max))
+ (eval-print-last-sexp)))
+ (load bootstrap-file nil 'nomessage))
+
+(straight-use-package 'use-package)
+
+(add-to-list 'load-path (expand-file-name "./"))
+(add-to-list 'load-path (expand-file-name "./test"))
+(package-install-file "solidity-mode.el")
+(package-install-file "solidity-flycheck.el")
+(global-flycheck-mode 1)
+
+(use-package solidity-mode
+ :mode ("\\.sol\\'" . solidity-mode))
+
+(use-package solidity-flycheck
+ :defer t
+ :init
+ (setq solidity-flycheck-solium-checker-active t)
+ (setq solidity-flycheck-solc-checker-active t)
+ (setq solidity-flycheck-chaining-error-level t)
+ (setq solidity-flycheck-use-project t)
+ (setq solidity-flycheck-solc-additional-allow-paths '("~/.brownie/packages"))
+ (add-hook
+ 'solidity-mode-hook
+ (lambda ()
+ (require 'solidity-flycheck))))
+
+(require 'ert)
+
+(require 'solidity-flycheck-tests)
+
+(ert t)