#!/bin/sh

global test_description := ''Test the Git Mediawiki remote helper: queries w/ more than 500 results''

source ./test-gitmw-lib.sh
source $TEST_DIRECTORY/test-lib.sh

test_check_precond

test_expect_success 'creating page w/ >500 revisions' '
	wiki_reset &&
	for i in $(test_seq 501)
	do
		echo "creating revision $i" &&
		wiki_editpage foo "revision $i<br/>" true
	done
'

test_expect_success 'cloning page w/ >500 revisions' '
	git clone mediawiki::'"$WIKI_URL"' mw_dir
'

test_done
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"Test the Git Mediawiki remote helper: queries w/ more than 500 results">)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./test-gitmw-lib.sh)})
    (C {(.)} {($ VSub_Name "$TEST_DIRECTORY") (/test-lib.sh)})
    (C {(test_check_precond)})
    (C {(test_expect_success)} {(SQ <"creating page w/ >500 revisions">)} 
      {
        (SQ <"\n"> <"\twiki_reset &&\n"> <"\tfor i in $(test_seq 501)\n"> <"\tdo\n"> 
          <"\t\techo \"creating revision $i\" &&\n"> <"\t\twiki_editpage foo \"revision $i<br/>\" true\n"> <"\tdone\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"cloning page w/ >500 revisions">)} 
      {(SQ <"\n"> <"\tgit clone mediawiki::">) (DQ ($ VSub_Name "$WIKI_URL")) (SQ <" mw_dir\n">)}
    )
    (C {(test_done)})
  ]
)