#!/bin/sh
#
# Copyright (C) 2012
#     Charles Roussel <charles.roussel@ensimag.imag.fr>
#     Simon Cathebras <simon.cathebras@ensimag.imag.fr>
#     Julien Khayat <julien.khayat@ensimag.imag.fr>
#     Guillaume Sasdy <guillaume.sasdy@ensimag.imag.fr>
#     Simon Perrat <simon.perrat@ensimag.imag.fr>
#
# License: GPL v2 or later

# tests for git-remote-mediawiki

global test_description := ''Test git-mediawiki with special characters in filenames''

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


test_check_precond


test_expect_success 'Git clone works for a wiki with accents in the page names' '
	wiki_reset &&
	wiki_editpage féé "This page must be délétéd before clone" false &&
	wiki_editpage kèè "This page must be deleted before clone" false &&
	wiki_editpage hàà "This page must be deleted before clone" false &&
	wiki_editpage kîî "This page must be deleted before clone" false &&
	wiki_editpage foo "This page must be deleted before clone" false &&
	git clone mediawiki::'"$WIKI_URL"' mw_dir_1 &&
	wiki_getallpage ref_page_1 &&
	test_diff_directories mw_dir_1 ref_page_1
'


test_expect_success 'Git pull works with a wiki with accents in the pages names' '
	wiki_reset &&
	wiki_editpage kîî "this page must be cloned" false &&
	wiki_editpage foo "this page must be cloned" false &&
	git clone mediawiki::'"$WIKI_URL"' mw_dir_2 &&
	wiki_editpage éàîôû "This page must be pulled" false &&
	(
		cd mw_dir_2 &&
		git pull
	) &&
	wiki_getallpage ref_page_2 &&
	test_diff_directories mw_dir_2 ref_page_2
'


test_expect_success 'Cloning a chosen page works with accents' '
	wiki_reset &&
	wiki_editpage kîî "this page must be cloned" false &&
	git clone -c remote.origin.pages=kîî \
		mediawiki::'"$WIKI_URL"' mw_dir_3 &&
	wiki_check_content mw_dir_3/Kîî.mw Kîî &&
	test_path_is_file mw_dir_3/Kîî.mw &&
	rm -rf mw_dir_3
'


test_expect_success 'The shallow option works with accents' '
	wiki_reset &&
	wiki_editpage néoà "1st revision, should not be cloned" false &&
	wiki_editpage néoà "2nd revision, should be cloned" false &&
	git -c remote.origin.shallow=true clone \
		mediawiki::'"$WIKI_URL"' mw_dir_4 &&
	test_contains_N_files mw_dir_4 2 &&
	test_path_is_file mw_dir_4/Néoà.mw &&
	test_path_is_file mw_dir_4/Main_Page.mw &&
	(
		cd mw_dir_4 &&
		test $(git log --oneline Néoà.mw | wc -l) -eq 1 &&
		test $(git log --oneline Main_Page.mw | wc -l ) -eq 1
	) &&
	wiki_check_content mw_dir_4/Néoà.mw Néoà &&
	wiki_check_content mw_dir_4/Main_Page.mw Main_Page
'


test_expect_success 'Cloning works when page name first letter has an accent' '
	wiki_reset &&
	wiki_editpage îî "this page must be cloned" false &&
	git clone -c remote.origin.pages=îî \
		mediawiki::'"$WIKI_URL"' mw_dir_5 &&
	test_path_is_file mw_dir_5/Îî.mw &&
	wiki_check_content mw_dir_5/Îî.mw Îî
'


test_expect_success 'Git push works with a wiki with accents' '
	wiki_reset &&
	wiki_editpage féé "lots of accents : éèàÖ" false &&
	wiki_editpage foo "this page must be cloned" false &&
	git clone mediawiki::'"$WIKI_URL"' mw_dir_6 &&
	(
		cd mw_dir_6 &&
		echo "A wild Pîkächû appears on the wiki" >Pîkächû.mw &&
		git add Pîkächû.mw &&
		git commit -m "A new page appears" &&
		git push
	) &&
	wiki_getallpage ref_page_6 &&
	test_diff_directories mw_dir_6 ref_page_6
'

test_expect_success 'Git clone works with accentsand spaces' '
	wiki_reset &&
	wiki_editpage "é à î" "this page must be délété before the clone" false &&
	git clone mediawiki::'"$WIKI_URL"' mw_dir_7 &&
	wiki_getallpage ref_page_7 &&
	test_diff_directories mw_dir_7 ref_page_7
'

test_expect_success 'character $ in page name (mw -> git)' '
	wiki_reset &&
	wiki_editpage file_\$_foo "expect to be called file_$_foo" false &&
	git clone mediawiki::'"$WIKI_URL"' mw_dir_8 &&
	test_path_is_file mw_dir_8/File_\$_foo.mw &&
	wiki_getallpage ref_page_8 &&
	test_diff_directories mw_dir_8 ref_page_8
'



test_expect_success 'character $ in file name (git -> mw) ' '
	wiki_reset &&
	git clone mediawiki::'"$WIKI_URL"' mw_dir_9 &&
	(
		cd mw_dir_9 &&
		echo "this file is called File_\$_foo.mw" >File_\$_foo.mw &&
		git add . &&
		git commit -am "file File_\$_foo.mw" &&
		git pull &&
		git push
	) &&
	wiki_getallpage ref_page_9 &&
	test_diff_directories mw_dir_9 ref_page_9
'


test_expect_failure 'capital at the beginning of file names' '
	wiki_reset &&
	git clone mediawiki::'"$WIKI_URL"' mw_dir_10 &&
	(
		cd mw_dir_10 &&
		echo "my new file foo" >foo.mw &&
		echo "my new file Foo... Finger crossed" >Foo.mw &&
		git add . &&
		git commit -am "file foo.mw" &&
		git pull &&
		git push
	) &&
	wiki_getallpage ref_page_10 &&
	test_diff_directories mw_dir_10 ref_page_10
'


test_expect_failure 'special character at the beginning of file name from mw to git' '
	wiki_reset &&
	git clone mediawiki::'"$WIKI_URL"' mw_dir_11 &&
	wiki_editpage {char_1 "expect to be renamed {char_1" false &&
	wiki_editpage [char_2 "expect to be renamed [char_2" false &&
	(
		cd mw_dir_11 &&
		git pull
	) &&
	test_path_is_file mw_dir_11/{char_1 &&
	test_path_is_file mw_dir_11/[char_2
'

test_expect_success 'Pull page with title containing ":" other than namespace separator' '
	wiki_editpage Foo:Bar content false &&
	(
		cd mw_dir_11 &&
		git pull
	) &&
	test_path_is_file mw_dir_11/Foo:Bar.mw
'

test_expect_success 'Push page with title containing ":" other than namespace separator' '
	(
		cd mw_dir_11 &&
		echo content >NotANameSpace:Page.mw &&
		git add NotANameSpace:Page.mw &&
		git commit -m "add page with colon" &&
		git push
	) &&
	wiki_page_exist NotANameSpace:Page
'

test_expect_success 'test of correct formatting for file name from mw to git' '
	wiki_reset &&
	git clone mediawiki::'"$WIKI_URL"' mw_dir_12 &&
	wiki_editpage char_%_7b_1 "expect to be renamed char{_1" false &&
	wiki_editpage char_%_5b_2 "expect to be renamed char{_2" false &&
	(
		cd mw_dir_12 &&
		git pull
	) &&
	test_path_is_file mw_dir_12/Char\{_1.mw &&
	test_path_is_file mw_dir_12/Char\[_2.mw &&
	wiki_getallpage ref_page_12 &&
	mv ref_page_12/Char_%_7b_1.mw ref_page_12/Char\{_1.mw &&
	mv ref_page_12/Char_%_5b_2.mw ref_page_12/Char\[_2.mw &&
	test_diff_directories mw_dir_12 ref_page_12
'


test_expect_failure 'test of correct formatting for file name beginning with special character' '
	wiki_reset &&
	git clone mediawiki::'"$WIKI_URL"' mw_dir_13 &&
	(
		cd mw_dir_13 &&
		echo "my new file {char_1" >\{char_1.mw &&
		echo "my new file [char_2" >\[char_2.mw &&
		git add . &&
		git commit -am "committing some exotic file name..." &&
		git push &&
		git pull
	) &&
	wiki_getallpage ref_page_13 &&
	test_path_is_file ref_page_13/{char_1.mw &&
	test_path_is_file ref_page_13/[char_2.mw &&
	test_diff_directories mw_dir_13 ref_page_13
'


test_expect_success 'test of correct formatting for file name from git to mw' '
	wiki_reset &&
	git clone mediawiki::'"$WIKI_URL"' mw_dir_14 &&
	(
		cd mw_dir_14 &&
		echo "my new file char{_1" >Char\{_1.mw &&
		echo "my new file char[_2" >Char\[_2.mw &&
		git add . &&
		git commit -m "committing some exotic file name..." &&
		git push
	) &&
	wiki_getallpage ref_page_14 &&
	mv mw_dir_14/Char\{_1.mw mw_dir_14/Char_%_7b_1.mw &&
	mv mw_dir_14/Char\[_2.mw mw_dir_14/Char_%_5b_2.mw &&
	test_diff_directories mw_dir_14 ref_page_14
'


test_expect_success 'git clone with /' '
	wiki_reset &&
	wiki_editpage \/fo\/o "this is not important" false -c=Deleted &&
	git clone mediawiki::'"$WIKI_URL"' mw_dir_15 &&
	test_path_is_file mw_dir_15/%2Ffo%2Fo.mw &&
	wiki_check_content mw_dir_15/%2Ffo%2Fo.mw \/fo\/o
'


test_expect_success 'git push with /' '
	wiki_reset &&
	git clone mediawiki::'"$WIKI_URL"' mw_dir_16 &&
	echo "I will be on the wiki" >mw_dir_16/%2Ffo%2Fo.mw &&
	(
		cd mw_dir_16 &&
		git add %2Ffo%2Fo.mw &&
		git commit -m " %2Ffo%2Fo added" &&
		git push
	) &&
	wiki_page_exist \/fo\/o &&
	wiki_check_content mw_dir_16/%2Ffo%2Fo.mw \/fo\/o

'


test_expect_success 'git clone with \' '
	wiki_reset &&
	wiki_editpage \\ko\\o "this is not important" false -c=Deleted &&
	git clone mediawiki::'"$WIKI_URL"' mw_dir_17 &&
	test_path_is_file mw_dir_17/\\ko\\o.mw &&
	wiki_check_content mw_dir_17/\\ko\\o.mw \\ko\\o
'


test_expect_success 'git push with \' '
	wiki_reset &&
	git clone mediawiki::'"$WIKI_URL"' mw_dir_18 &&
	echo "I will be on the wiki" >mw_dir_18/\\ko\\o.mw &&
	(
		cd mw_dir_18 &&
		git add \\ko\\o.mw &&
		git commit -m " \\ko\\o added" &&
		git push
	)&&
	wiki_page_exist \\ko\\o &&
	wiki_check_content mw_dir_18/\\ko\\o.mw \\ko\\o

'

test_expect_success 'git clone with \ in format control' '
	wiki_reset &&
	wiki_editpage \\no\\o "this is not important" false &&
	git clone mediawiki::'"$WIKI_URL"' mw_dir_19 &&
	test_path_is_file mw_dir_19/\\no\\o.mw &&
	wiki_check_content mw_dir_19/\\no\\o.mw \\no\\o
'


test_expect_success 'git push with \ in format control' '
	wiki_reset &&
	git clone mediawiki::'"$WIKI_URL"' mw_dir_20 &&
	echo "I will be on the wiki" >mw_dir_20/\\fo\\o.mw &&
	(
		cd mw_dir_20 &&
		git add \\fo\\o.mw &&
		git commit -m " \\fo\\o added" &&
		git push
	)&&
	wiki_page_exist \\fo\\o &&
	wiki_check_content mw_dir_20/\\fo\\o.mw \\fo\\o

'


test_expect_success 'fast-import meta-characters in page name (mw -> git)' '
	wiki_reset &&
	wiki_editpage \"file\"_\\_foo "expect to be called \"file\"_\\_foo" false &&
	git clone mediawiki::'"$WIKI_URL"' mw_dir_21 &&
	test_path_is_file mw_dir_21/\"file\"_\\_foo.mw &&
	wiki_getallpage ref_page_21 &&
	test_diff_directories mw_dir_21 ref_page_21
'


test_expect_success 'fast-import meta-characters in page name (git -> mw) ' '
	wiki_reset &&
	git clone mediawiki::'"$WIKI_URL"' mw_dir_22 &&
	(
		cd mw_dir_22 &&
		echo "this file is called \"file\"_\\_foo.mw" >\"file\"_\\_foo &&
		git add . &&
		git commit -am "file \"file\"_\\_foo" &&
		git pull &&
		git push
	) &&
	wiki_getallpage ref_page_22 &&
	test_diff_directories mw_dir_22 ref_page_22
'


test_done
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"Test git-mediawiki with special characters in filenames">)}
          spids: [35]
        )
      ]
      spids: [35]
    )
    (C {(.)} {(./test-gitmw-lib.sh)})
    (C {(.)} {($ VSub_Name "$TEST_DIRECTORY") (/test-lib.sh)})
    (C {(test_check_precond)})
    (C {(test_expect_success)} {(SQ <"Git clone works for a wiki with accents in the page names">)} 
      {
        (SQ <"\n"> <"\twiki_reset &&\n"> 
          <
"\twiki_editpage f\u00e9\u00e9 \"This page must be d\u00e9l\u00e9t\u00e9d before clone\" false &&\n"
          > <"\twiki_editpage k\u00e8\u00e8 \"This page must be deleted before clone\" false &&\n"> 
          <"\twiki_editpage h\u00e0\u00e0 \"This page must be deleted before clone\" false &&\n"> <"\twiki_editpage k\u00ee\u00ee \"This page must be deleted before clone\" false &&\n"> 
          <"\twiki_editpage foo \"This page must be deleted before clone\" false &&\n"> <"\tgit clone mediawiki::">
        ) (DQ ($ VSub_Name "$WIKI_URL")) 
        (SQ <" mw_dir_1 &&\n"> <"\twiki_getallpage ref_page_1 &&\n"> 
          <"\ttest_diff_directories mw_dir_1 ref_page_1\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"Git pull works with a wiki with accents in the pages names">)} 
      {
        (SQ <"\n"> <"\twiki_reset &&\n"> 
          <"\twiki_editpage k\u00ee\u00ee \"this page must be cloned\" false &&\n"> <"\twiki_editpage foo \"this page must be cloned\" false &&\n"> <"\tgit clone mediawiki::">
        ) (DQ ($ VSub_Name "$WIKI_URL")) 
        (SQ <" mw_dir_2 &&\n"> 
          <
"\twiki_editpage \u00e9\u00e0\u00ee\u00f4\u00fb \"This page must be pulled\" false &&\n"
          > <"\t(\n"> <"\t\tcd mw_dir_2 &&\n"> <"\t\tgit pull\n"> <"\t) &&\n"> <"\twiki_getallpage ref_page_2 &&\n"> 
          <"\ttest_diff_directories mw_dir_2 ref_page_2\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"Cloning a chosen page works with accents">)} 
      {
        (SQ <"\n"> <"\twiki_reset &&\n"> 
          <"\twiki_editpage k\u00ee\u00ee \"this page must be cloned\" false &&\n"> <"\tgit clone -c remote.origin.pages=k\u00ee\u00ee \\\n"> <"\t\tmediawiki::">
        ) (DQ ($ VSub_Name "$WIKI_URL")) 
        (SQ <" mw_dir_3 &&\n"> <"\twiki_check_content mw_dir_3/K\u00ee\u00ee.mw K\u00ee\u00ee &&\n"> 
          <"\ttest_path_is_file mw_dir_3/K\u00ee\u00ee.mw &&\n"> <"\trm -rf mw_dir_3\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"The shallow option works with accents">)} 
      {
        (SQ <"\n"> <"\twiki_reset &&\n"> 
          <"\twiki_editpage n\u00e9o\u00e0 \"1st revision, should not be cloned\" false &&\n"> <"\twiki_editpage n\u00e9o\u00e0 \"2nd revision, should be cloned\" false &&\n"> 
          <"\tgit -c remote.origin.shallow=true clone \\\n"> <"\t\tmediawiki::">
        ) (DQ ($ VSub_Name "$WIKI_URL")) 
        (SQ <" mw_dir_4 &&\n"> <"\ttest_contains_N_files mw_dir_4 2 &&\n"> 
          <"\ttest_path_is_file mw_dir_4/N\u00e9o\u00e0.mw &&\n"> <"\ttest_path_is_file mw_dir_4/Main_Page.mw &&\n"> <"\t(\n"> <"\t\tcd mw_dir_4 &&\n"> 
          <"\t\ttest $(git log --oneline N\u00e9o\u00e0.mw | wc -l) -eq 1 &&\n"> <"\t\ttest $(git log --oneline Main_Page.mw | wc -l ) -eq 1\n"> <"\t) &&\n"> 
          <"\twiki_check_content mw_dir_4/N\u00e9o\u00e0.mw N\u00e9o\u00e0 &&\n"> <"\twiki_check_content mw_dir_4/Main_Page.mw Main_Page\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"Cloning works when page name first letter has an accent">)} 
      {
        (SQ <"\n"> <"\twiki_reset &&\n"> 
          <"\twiki_editpage \u00ee\u00ee \"this page must be cloned\" false &&\n"> <"\tgit clone -c remote.origin.pages=\u00ee\u00ee \\\n"> <"\t\tmediawiki::">
        ) (DQ ($ VSub_Name "$WIKI_URL")) 
        (SQ <" mw_dir_5 &&\n"> <"\ttest_path_is_file mw_dir_5/\u00ce\u00ee.mw &&\n"> 
          <"\twiki_check_content mw_dir_5/\u00ce\u00ee.mw \u00ce\u00ee\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"Git push works with a wiki with accents">)} 
      {
        (SQ <"\n"> <"\twiki_reset &&\n"> 
          <
"\twiki_editpage f\u00e9\u00e9 \"lots of accents : \u00e9\u00e8\u00e0\u00d6\" false &&\n"
          > <"\twiki_editpage foo \"this page must be cloned\" false &&\n"> <"\tgit clone mediawiki::">
        ) (DQ ($ VSub_Name "$WIKI_URL")) 
        (SQ <" mw_dir_6 &&\n"> <"\t(\n"> <"\t\tcd mw_dir_6 &&\n"> 
          <
"\t\techo \"A wild P\u00eek\u00e4ch\u00fb appears on the wiki\" >P\u00eek\u00e4ch\u00fb.mw &&\n"
          > <"\t\tgit add P\u00eek\u00e4ch\u00fb.mw &&\n"> <"\t\tgit commit -m \"A new page appears\" &&\n"> 
          <"\t\tgit push\n"> <"\t) &&\n"> <"\twiki_getallpage ref_page_6 &&\n"> <"\ttest_diff_directories mw_dir_6 ref_page_6\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"Git clone works with accentsand spaces">)} 
      {
        (SQ <"\n"> <"\twiki_reset &&\n"> 
          <
"\twiki_editpage \"\u00e9 \u00e0 \u00ee\" \"this page must be d\u00e9l\u00e9t\u00e9 before the clone\" false &&\n"
          > <"\tgit clone mediawiki::">
        ) (DQ ($ VSub_Name "$WIKI_URL")) 
        (SQ <" mw_dir_7 &&\n"> <"\twiki_getallpage ref_page_7 &&\n"> 
          <"\ttest_diff_directories mw_dir_7 ref_page_7\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"character $ in page name (mw -> git)">)} 
      {
        (SQ <"\n"> <"\twiki_reset &&\n"> 
          <"\twiki_editpage file_\\$_foo \"expect to be called file_$_foo\" false &&\n"> <"\tgit clone mediawiki::">
        ) (DQ ($ VSub_Name "$WIKI_URL")) 
        (SQ <" mw_dir_8 &&\n"> <"\ttest_path_is_file mw_dir_8/File_\\$_foo.mw &&\n"> 
          <"\twiki_getallpage ref_page_8 &&\n"> <"\ttest_diff_directories mw_dir_8 ref_page_8\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"character $ in file name (git -> mw) ">)} 
      {(SQ <"\n"> <"\twiki_reset &&\n"> <"\tgit clone mediawiki::">) (DQ ($ VSub_Name "$WIKI_URL")) 
        (SQ <" mw_dir_9 &&\n"> <"\t(\n"> <"\t\tcd mw_dir_9 &&\n"> 
          <"\t\techo \"this file is called File_\\$_foo.mw\" >File_\\$_foo.mw &&\n"> <"\t\tgit add . &&\n"> <"\t\tgit commit -am \"file File_\\$_foo.mw\" &&\n"> <"\t\tgit pull &&\n"> 
          <"\t\tgit push\n"> <"\t) &&\n"> <"\twiki_getallpage ref_page_9 &&\n"> <"\ttest_diff_directories mw_dir_9 ref_page_9\n">
        )
      }
    )
    (C {(test_expect_failure)} {(SQ <"capital at the beginning of file names">)} 
      {(SQ <"\n"> <"\twiki_reset &&\n"> <"\tgit clone mediawiki::">) (DQ ($ VSub_Name "$WIKI_URL")) 
        (SQ <" mw_dir_10 &&\n"> <"\t(\n"> <"\t\tcd mw_dir_10 &&\n"> 
          <"\t\techo \"my new file foo\" >foo.mw &&\n"> <"\t\techo \"my new file Foo... Finger crossed\" >Foo.mw &&\n"> <"\t\tgit add . &&\n"> 
          <"\t\tgit commit -am \"file foo.mw\" &&\n"> <"\t\tgit pull &&\n"> <"\t\tgit push\n"> <"\t) &&\n"> <"\twiki_getallpage ref_page_10 &&\n"> 
          <"\ttest_diff_directories mw_dir_10 ref_page_10\n">
        )
      }
    )
    (C {(test_expect_failure)} {(SQ <"special character at the beginning of file name from mw to git">)} 
      {(SQ <"\n"> <"\twiki_reset &&\n"> <"\tgit clone mediawiki::">) (DQ ($ VSub_Name "$WIKI_URL")) 
        (SQ <" mw_dir_11 &&\n"> 
          <"\twiki_editpage {char_1 \"expect to be renamed {char_1\" false &&\n"> <"\twiki_editpage [char_2 \"expect to be renamed [char_2\" false &&\n"> <"\t(\n"> 
          <"\t\tcd mw_dir_11 &&\n"> <"\t\tgit pull\n"> <"\t) &&\n"> <"\ttest_path_is_file mw_dir_11/{char_1 &&\n"> 
          <"\ttest_path_is_file mw_dir_11/[char_2\n">
        )
      }
    )
    (C {(test_expect_success)} 
      {(SQ <"Pull page with title containing \":\" other than namespace separator">)} 
      {
        (SQ <"\n"> <"\twiki_editpage Foo:Bar content false &&\n"> <"\t(\n"> <"\t\tcd mw_dir_11 &&\n"> 
          <"\t\tgit pull\n"> <"\t) &&\n"> <"\ttest_path_is_file mw_dir_11/Foo:Bar.mw\n">
        )
      }
    )
    (C {(test_expect_success)} 
      {(SQ <"Push page with title containing \":\" other than namespace separator">)} 
      {
        (SQ <"\n"> <"\t(\n"> <"\t\tcd mw_dir_11 &&\n"> <"\t\techo content >NotANameSpace:Page.mw &&\n"> 
          <"\t\tgit add NotANameSpace:Page.mw &&\n"> <"\t\tgit commit -m \"add page with colon\" &&\n"> <"\t\tgit push\n"> <"\t) &&\n"> 
          <"\twiki_page_exist NotANameSpace:Page\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"test of correct formatting for file name from mw to git">)} 
      {(SQ <"\n"> <"\twiki_reset &&\n"> <"\tgit clone mediawiki::">) (DQ ($ VSub_Name "$WIKI_URL")) 
        (SQ <" mw_dir_12 &&\n"> 
          <"\twiki_editpage char_%_7b_1 \"expect to be renamed char{_1\" false &&\n"> <"\twiki_editpage char_%_5b_2 \"expect to be renamed char{_2\" false &&\n"> <"\t(\n"> 
          <"\t\tcd mw_dir_12 &&\n"> <"\t\tgit pull\n"> <"\t) &&\n"> <"\ttest_path_is_file mw_dir_12/Char\\{_1.mw &&\n"> 
          <"\ttest_path_is_file mw_dir_12/Char\\[_2.mw &&\n"> <"\twiki_getallpage ref_page_12 &&\n"> 
          <"\tmv ref_page_12/Char_%_7b_1.mw ref_page_12/Char\\{_1.mw &&\n"> <"\tmv ref_page_12/Char_%_5b_2.mw ref_page_12/Char\\[_2.mw &&\n"> 
          <"\ttest_diff_directories mw_dir_12 ref_page_12\n">
        )
      }
    )
    (C {(test_expect_failure)} 
      {(SQ <"test of correct formatting for file name beginning with special character">)} 
      {(SQ <"\n"> <"\twiki_reset &&\n"> <"\tgit clone mediawiki::">) (DQ ($ VSub_Name "$WIKI_URL")) 
        (SQ <" mw_dir_13 &&\n"> <"\t(\n"> <"\t\tcd mw_dir_13 &&\n"> 
          <"\t\techo \"my new file {char_1\" >\\{char_1.mw &&\n"> <"\t\techo \"my new file [char_2\" >\\[char_2.mw &&\n"> <"\t\tgit add . &&\n"> 
          <"\t\tgit commit -am \"committing some exotic file name...\" &&\n"> <"\t\tgit push &&\n"> <"\t\tgit pull\n"> <"\t) &&\n"> <"\twiki_getallpage ref_page_13 &&\n"> 
          <"\ttest_path_is_file ref_page_13/{char_1.mw &&\n"> <"\ttest_path_is_file ref_page_13/[char_2.mw &&\n"> 
          <"\ttest_diff_directories mw_dir_13 ref_page_13\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"test of correct formatting for file name from git to mw">)} 
      {(SQ <"\n"> <"\twiki_reset &&\n"> <"\tgit clone mediawiki::">) (DQ ($ VSub_Name "$WIKI_URL")) 
        (SQ <" mw_dir_14 &&\n"> <"\t(\n"> <"\t\tcd mw_dir_14 &&\n"> 
          <"\t\techo \"my new file char{_1\" >Char\\{_1.mw &&\n"> <"\t\techo \"my new file char[_2\" >Char\\[_2.mw &&\n"> <"\t\tgit add . &&\n"> 
          <"\t\tgit commit -m \"committing some exotic file name...\" &&\n"> <"\t\tgit push\n"> <"\t) &&\n"> <"\twiki_getallpage ref_page_14 &&\n"> 
          <"\tmv mw_dir_14/Char\\{_1.mw mw_dir_14/Char_%_7b_1.mw &&\n"> <"\tmv mw_dir_14/Char\\[_2.mw mw_dir_14/Char_%_5b_2.mw &&\n"> 
          <"\ttest_diff_directories mw_dir_14 ref_page_14\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"git clone with /">)} 
      {
        (SQ <"\n"> <"\twiki_reset &&\n"> 
          <"\twiki_editpage \\/fo\\/o \"this is not important\" false -c=Deleted &&\n"> <"\tgit clone mediawiki::">
        ) (DQ ($ VSub_Name "$WIKI_URL")) 
        (SQ <" mw_dir_15 &&\n"> <"\ttest_path_is_file mw_dir_15/%2Ffo%2Fo.mw &&\n"> 
          <"\twiki_check_content mw_dir_15/%2Ffo%2Fo.mw \\/fo\\/o\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"git push with /">)} 
      {(SQ <"\n"> <"\twiki_reset &&\n"> <"\tgit clone mediawiki::">) (DQ ($ VSub_Name "$WIKI_URL")) 
        (SQ <" mw_dir_16 &&\n"> <"\techo \"I will be on the wiki\" >mw_dir_16/%2Ffo%2Fo.mw &&\n"> 
          <"\t(\n"> <"\t\tcd mw_dir_16 &&\n"> <"\t\tgit add %2Ffo%2Fo.mw &&\n"> 
          <"\t\tgit commit -m \" %2Ffo%2Fo added\" &&\n"> <"\t\tgit push\n"> <"\t) &&\n"> <"\twiki_page_exist \\/fo\\/o &&\n"> 
          <"\twiki_check_content mw_dir_16/%2Ffo%2Fo.mw \\/fo\\/o\n"> <"\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"git clone with \\">)} 
      {
        (SQ <"\n"> <"\twiki_reset &&\n"> 
          <"\twiki_editpage \\\\ko\\\\o \"this is not important\" false -c=Deleted &&\n"> <"\tgit clone mediawiki::">
        ) (DQ ($ VSub_Name "$WIKI_URL")) 
        (SQ <" mw_dir_17 &&\n"> <"\ttest_path_is_file mw_dir_17/\\\\ko\\\\o.mw &&\n"> 
          <"\twiki_check_content mw_dir_17/\\\\ko\\\\o.mw \\\\ko\\\\o\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"git push with \\">)} 
      {(SQ <"\n"> <"\twiki_reset &&\n"> <"\tgit clone mediawiki::">) (DQ ($ VSub_Name "$WIKI_URL")) 
        (SQ <" mw_dir_18 &&\n"> <"\techo \"I will be on the wiki\" >mw_dir_18/\\\\ko\\\\o.mw &&\n"> 
          <"\t(\n"> <"\t\tcd mw_dir_18 &&\n"> <"\t\tgit add \\\\ko\\\\o.mw &&\n"> 
          <"\t\tgit commit -m \" \\\\ko\\\\o added\" &&\n"> <"\t\tgit push\n"> <"\t)&&\n"> <"\twiki_page_exist \\\\ko\\\\o &&\n"> 
          <"\twiki_check_content mw_dir_18/\\\\ko\\\\o.mw \\\\ko\\\\o\n"> <"\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"git clone with \\ in format control">)} 
      {
        (SQ <"\n"> <"\twiki_reset &&\n"> 
          <"\twiki_editpage \\\\no\\\\o \"this is not important\" false &&\n"> <"\tgit clone mediawiki::">
        ) (DQ ($ VSub_Name "$WIKI_URL")) 
        (SQ <" mw_dir_19 &&\n"> <"\ttest_path_is_file mw_dir_19/\\\\no\\\\o.mw &&\n"> 
          <"\twiki_check_content mw_dir_19/\\\\no\\\\o.mw \\\\no\\\\o\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"git push with \\ in format control">)} 
      {(SQ <"\n"> <"\twiki_reset &&\n"> <"\tgit clone mediawiki::">) (DQ ($ VSub_Name "$WIKI_URL")) 
        (SQ <" mw_dir_20 &&\n"> <"\techo \"I will be on the wiki\" >mw_dir_20/\\\\fo\\\\o.mw &&\n"> 
          <"\t(\n"> <"\t\tcd mw_dir_20 &&\n"> <"\t\tgit add \\\\fo\\\\o.mw &&\n"> 
          <"\t\tgit commit -m \" \\\\fo\\\\o added\" &&\n"> <"\t\tgit push\n"> <"\t)&&\n"> <"\twiki_page_exist \\\\fo\\\\o &&\n"> 
          <"\twiki_check_content mw_dir_20/\\\\fo\\\\o.mw \\\\fo\\\\o\n"> <"\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"fast-import meta-characters in page name (mw -> git)">)} 
      {
        (SQ <"\n"> <"\twiki_reset &&\n"> 
          <
"\twiki_editpage \\\"file\\\"_\\\\_foo \"expect to be called \\\"file\\\"_\\\\_foo\" false &&\n"
          > <"\tgit clone mediawiki::">
        ) (DQ ($ VSub_Name "$WIKI_URL")) 
        (SQ <" mw_dir_21 &&\n"> <"\ttest_path_is_file mw_dir_21/\\\"file\\\"_\\\\_foo.mw &&\n"> 
          <"\twiki_getallpage ref_page_21 &&\n"> <"\ttest_diff_directories mw_dir_21 ref_page_21\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"fast-import meta-characters in page name (git -> mw) ">)} 
      {(SQ <"\n"> <"\twiki_reset &&\n"> <"\tgit clone mediawiki::">) (DQ ($ VSub_Name "$WIKI_URL")) 
        (SQ <" mw_dir_22 &&\n"> <"\t(\n"> <"\t\tcd mw_dir_22 &&\n"> 
          <"\t\techo \"this file is called \\\"file\\\"_\\\\_foo.mw\" >\\\"file\\\"_\\\\_foo &&\n"> <"\t\tgit add . &&\n"> <"\t\tgit commit -am \"file \\\"file\\\"_\\\\_foo\" &&\n"> <"\t\tgit pull &&\n"> 
          <"\t\tgit push\n"> <"\t) &&\n"> <"\twiki_getallpage ref_page_22 &&\n"> <"\ttest_diff_directories mw_dir_22 ref_page_22\n">
        )
      }
    )
    (C {(test_done)})
  ]
)