aboutsummaryrefslogtreecommitdiff
path: root/tests.el
diff options
context:
space:
mode:
Diffstat (limited to 'tests.el')
-rw-r--r--tests.el41
1 files changed, 0 insertions, 41 deletions
diff --git a/tests.el b/tests.el
deleted file mode 100644
index 0c520d8..0000000
--- a/tests.el
+++ /dev/null
@@ -1,41 +0,0 @@
-(defun -stack--nuke ()
- (interactive)
- (mapatoms
- (lambda (symbol)
- (if (string-prefix-p "stack-" (symbol-name symbol))
- (unintern symbol)))))
-
-;;; Tests
-
-(setq stack-core-remaining-api-requests-message-threshold 50000)
-(setq debug-on-error t)
-
-(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-data-filter-1 ()
- "Test the meta-convenience function"
- (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)))))