1 files changed, 97 insertions, 0 deletions
diff --git a/test/tests.el b/test/tests.el
new file mode 100644
index 0000000..e097244
--- /dev/null
+++ b/test/tests.el
@@ -0,0 +1,97 @@
+(defun -stack--nuke ()
+  (interactive)
+  (mapatoms
+   (lambda (symbol)
+     (if (string-prefix-p "stack-" (symbol-name symbol))
+         (unintern symbol)))))
+
+;;; Tests
+
+(defun stack-test-sample-data (method &optional directory)
+  (let ((file (concat "data-samples/"
+                      (when directory (concat directory "/"))
+                      method ".el")))
+    (when (file-exists-p file)
+      (with-temp-buffer
+        (insert-file-contents file)
+        (read (buffer-string))))))
+
+(setq
+ stack-core-remaining-api-requests-message-threshold 50000
+ debug-on-error t
+ stack-core-silent-requests nil
+ user-emacs-directory "."
+
+ stack-test-data-questions
+ (stack-test-sample-data "questions")
+ stack-test-data-sites
+ (stack-test-sample-data "sites"))
+
+(require 'stack-core)
+(require 'stack-question)
+
+(ert-deftest test-basic-request ()
+    "Test basic request functionality"
+    (should (stack-core-make-request "sites")))
+
+(ert-deftest test-question-retrieve ()
+  "Test the ability to receive a list of questions."
+  (should (stack-question-get-questions 'emacs)))
+
+(ert-deftest test-bad-request ()
+  "Test a method given a bad set of keywords"
+  (should-error
+   (stack-core-make-request "questions" '(()))))
+
+(ert-deftest test-tree-filter ()
+  "`stack-core-filter-data'"
+  ;; flat
+  (should
+   (equal
+    '((1 . t) (2 . [1 2]) (3))
+    (stack-core-filter-data '((0 . 3) (1 . t) (a . five) (2 . [1 2])
+                              ("5" . bop) (3) (p . 4))
+			    '(1 2 3))))
+  ;; complex
+  (should
+   (equal
+    '((1 . [a b c])
+      (2 . [((a . 1) (c . 3))
+            ((a . 4) (c . 6))])
+      (3 . peach))
+    (stack-core-filter-data '((1 . [a b c])
+                              (2 . [((a . 1) (b . 2) (c . 3))
+                                    ((a . 4) (b . 5) (c . 6))])
+                              (3 . peach)
+                              (4 . banana))
+                            '(1 (2 a c) 3))))
+
+  ;; vector
+  (should
+   (equal
+    [((1 . 2) (2 . 3) (3 . 4))
+     ((1 . a) (2 . b) (3 . c))
+     nil ((1 . alpha) (2 . beta))]
+    (stack-core-filter-data [((1 . 2) (2 . 3) (3 . 4))
+                             ((1 . a) (2 . b) (3 . c) (5 . seven))
+                             ((should-not-go))
+                             ((1 . alpha) (2 . beta))]
+                            '(1 2 3)))))
+
+(ert-deftest test-filters ()
+  (let ((stack-cache-directory (make-temp-file "stack-test" t)))
+    (should-error (stack-filter-store "names must be symbols"
+                                      "this is a filter"))
+    ;; basic use
+    (should (equal '((test . "filter"))
+                   (stack-filter-store 'test "filter")))
+    ;; aggregation
+    (should (equal '((test2 . "filter2") (test . "filter"))
+                   (stack-filter-store 'test2 "filter2")))
+    ;; mutation
+    (should (equal '((test2 . "filter2") (test . "filter-test"))
+                   (stack-filter-store 'test "filter-test")))
+    ;; clean up (note: the file should exist)
+    (delete-file
+     (stack-cache-get-file-name
+      stack-filter-cache-file))))