tests/query.lisp

   1 (in-package :cl-mediawiki-test)
   2
   3 (def-test-wikipedia get-content-test (query)
   4   (assert-true
   5    (cl-mediawiki:get-page-content "Pigment")))
   6
   7 (def-test-wikipedia get-action-tokens-test (query)
   8   (assert-true
   9       (cl-mediawiki:get-action-tokens "Pigment")))
  10
  11 (def-test-wikipedia pages-that-embed-test (query)
  12   (assert-false
  13       (cl-mediawiki:pages-that-embed "Pigment"))
  14   (assert-true
  15       (cl-mediawiki:pages-that-embed "Template:Grateful_Dead" )))
  16
  17 (def-test-wikipedia get-page-info-test (query)
  18   (assert-true
  19       (cl-mediawiki:get-page-info "Pigment" )))
  20
  21 (def-test-wikipedia recent-changes-test (query)
  22   (assert-true
  23       (cl-mediawiki:recent-changes)))
  24
  25 (def-test-wikipedia user-contribs-test (query)
  26   (assert-true
  27       (cl-mediawiki:user-contribs "bobbysmith007")))
  28
  29 (def-test-wikipedia get-revisions-test (query)
  30   (assert-true
  31       (cl-mediawiki:get-revisions "Pigment" :rvlimit 10)))