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)