Test output for mw-core [ok]

Testing time: 3s

/root/salmonella-run-publish/chicken/bin/csi -script run.scm < /dev/null

;;; BEGIN "mw-core" TESTS

;; 1. Raw XML response from Wikipedia
(let* ((response (raw-api-call (quote ((action . query) (meta . siteinfo) (format . xml))))) (len (string-length response))) (string-append (substring response 0 33) (substring response (- len 14))))
;; ==> "<?xml version=\"1.0\"?><api><query></query></api>"
;; Passed.

;; 2. Raw json response from Wikipedia
(let* ((response (raw-api-call (quote ((action . query) (meta . siteinfo) (format . json))))) (len (string-length response))) (substring response 0 32))
;; ==> "{\"query\":{\"general\":{\"mainpage\":"
;; Passed.

;; 3. pipejoin
(pipejoin (quote (a "b" "c d" 12)))
;; ==> "a|b|c d|12"
;; Passed.

;; 4. sx-call sanity check
(let* ((response (sx-call (quote ((action . query) (meta . siteinfo)))))) (map (sxpath "api/query/general/@wikiid") response))
;; ==> (((wikiid "enwiki")))
;; Passed.

;; 5. usercontribs continue test
(let* ((response (sx-call (quote ((action . query) (list . usercontribs) (ucuser . "Jimbo Wales") (uclimit . 1) (ucstart . "2009-11-10T00:00:00Z") (ucend . "2009-11-01T00:00:00Z")))))) (length ((sxpath "api/query/usercontribs/item") response)))
;; ==> 8
;; Passed.

;;; END "mw-core" TESTS: PASSED
;;;     (Total: 5  Passed: 5  Failed: 0)