extra/mediawiki/api/api-tests.factor

   1 USING: assocs kernel mediawiki.api mediawiki.api.private
   2 namespaces tools.test ;
   3 IN: mediawiki.api.tests
   4
   5 { { { "action" "query" } } }
   6 [ { { "action" "query" } } prepare ] unit-test
   7
   8 { { { "maxlag" "5" } } }
   9 [ { { "maxlag" 5 } } prepare ] unit-test
  10
  11 { { { "bot" "true" } } }
  12 [ { { "bot" t } } prepare ] unit-test
  13
  14 { { { "titles" "A|B" } } }
  15 [ { { "titles" { "A" "B" } } } prepare ] unit-test
  16
  17 { { { "namespaces" "0|1" } } }
  18 [ { { "namespaces" { 0 1 } } } prepare ] unit-test
  19
  20 "mediawiki.api unit-test" contact set-global
  21 "https://en.wikipedia.org/w/api.php" endpoint set-global
  22
  23 { t } [ { { "meta" "userinfo" } } query "anon" of ] unit-test
  24
  25 { } [ {
  26     { "action" "parse" }
  27     { "title" "Factor (programming language)" }
  28 } api-call drop ] unit-test ! test warnings