]> code.delx.au - gnu-emacs-elpa/commitdiff
Improve elisp tests.
authorJackson Ray Hamilton <jackson@jacksonrayhamilton.com>
Sun, 21 Dec 2014 03:25:23 +0000 (19:25 -0800)
committerJackson Ray Hamilton <jackson@jacksonrayhamilton.com>
Sun, 21 Dec 2014 03:25:23 +0000 (19:25 -0800)
test/context-coloring-test.el
test/fixtures/nested.js [deleted file]

index a428dd6546ad26b83b3aed880130dd522509ccee..d997d8b040fa27d6089a87babf9c50f2afe44ca2 100644 (file)
@@ -20,8 +20,34 @@ FIXTURE."
      (context-coloring-mode)
      ,@body))
 
-(ert-deftest context-coloring-test-nested ()
-  (context-coloring-test-with-fixture "./fixtures/nested.js"
-   ))
+(defun context-coloring-test-region-level-p (start end level)
+  (let ((i 0)
+        (length (- end start)))
+    (while (< i length)
+      (let ((point (+ i start)))
+        (should (equal (get-text-property point 'face)
+                       (intern-soft (concat "context-coloring-level-"
+                                            (number-to-string level)
+                                            "-face")))))
+      (setq i (+ i 1)))))
+
+(ert-deftest context-coloring-test-function-scopes ()
+  (context-coloring-test-with-fixture
+   "./fixtures/function-scopes.js"
+
+   (sleep-for .25) ; Wait for asynchronous coloring to complete.
+
+   (context-coloring-test-region-level-p 1 9 0)
+   (context-coloring-test-region-level-p 9 23 1)
+   (context-coloring-test-region-level-p 23 25 0)
+   (context-coloring-test-region-level-p 25 34 1)
+   (context-coloring-test-region-level-p 34 35 0)
+   (context-coloring-test-region-level-p 35 52 1)
+   (context-coloring-test-region-level-p 52 66 2)
+   (context-coloring-test-region-level-p 66 72 1)
+   (context-coloring-test-region-level-p 72 81 2)
+   (context-coloring-test-region-level-p 81 82 1)
+   (context-coloring-test-region-level-p 82 87 2)
+   (context-coloring-test-region-level-p 87 89 1)))
 
 (provide 'context-coloring-test)
diff --git a/test/fixtures/nested.js b/test/fixtures/nested.js
deleted file mode 100644 (file)
index 1621e06..0000000
+++ /dev/null
@@ -1,32 +0,0 @@
-function a() {
-    var A = a;
-    function b() {
-        var B = b;
-        function c() {
-            var C = c;
-            function d() {
-                var D = d;
-                function e() {
-                    var E = e;
-                    function f() {
-                        var F = f;
-                        function g() {
-                            var G = g;
-                            function h() {
-                                var H = [
-                                    A,
-                                    B,
-                                    C,
-                                    D,
-                                    E,
-                                    F,
-                                    G
-                                ];
-                            }
-                        }
-                    }
-                }
-            }
-        }
-    }
-}