(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git p4 tests">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./lib-git-p4.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "start p4d">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tstart_p4d\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "add p4 files">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\techo file1 >file1 &&\n"> <LIT_CHARS "\t\tp4 add file1 &&\n"> <LIT_CHARS "\t\tp4 submit -d \"file1\" &&\n"> <LIT_CHARS "\t\techo file2 >file2 &&\n"> <LIT_CHARS "\t\tp4 add file2 &&\n"> <LIT_CHARS "\t\tp4 submit -d \"file2\"\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "basic git p4 clone">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot &&\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgit log --oneline >lines &&\n"> <LIT_CHARS "\t\ttest_line_count = 1 lines\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "depot typo error">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git p4 clone --dest=\"$git\" /depot 2>errs &&\n"> <LIT_CHARS "\tgrep \"Depot paths must start with\" errs\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git p4 clone @all">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot@all &&\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgit log --oneline >lines &&\n"> <LIT_CHARS "\t\ttest_line_count = 2 lines\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git p4 sync uninitialized repo">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_create_repo \"$git\" &&\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\ttest_must_fail git p4 sync 2>errs &&\n"> <LIT_CHARS "\t\ttest_i18ngrep \"Perhaps you never did\" errs\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git p4 sync new branch">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_create_repo \"$git\" &&\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\ttest_commit head &&\n"> <LIT_CHARS "\t\tgit p4 sync --branch=refs/remotes/p4/depot //depot@all &&\n"> <LIT_CHARS "\t\tgit log --oneline p4/depot >lines &&\n"> <LIT_CHARS "\t\ttest_line_count = 2 lines\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone two dirs">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\tmkdir sub1 sub2 &&\n"> <LIT_CHARS "\t\techo sub1/f1 >sub1/f1 &&\n"> <LIT_CHARS "\t\techo sub2/f2 >sub2/f2 &&\n"> <LIT_CHARS "\t\tp4 add sub1/f1 &&\n"> <LIT_CHARS "\t\tp4 submit -d \"sub1/f1\" &&\n"> <LIT_CHARS "\t\tp4 add sub2/f2 &&\n"> <LIT_CHARS "\t\tp4 submit -d \"sub2/f2\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot/sub1 //depot/sub2 &&\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgit ls-files >lines &&\n"> <LIT_CHARS "\t\ttest_line_count = 2 lines &&\n"> <LIT_CHARS "\t\tgit log --oneline p4/master >lines &&\n"> <LIT_CHARS "\t\ttest_line_count = 1 lines\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone two dirs, @all">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\techo sub1/f3 >sub1/f3 &&\n"> <LIT_CHARS "\t\tp4 add sub1/f3 &&\n"> <LIT_CHARS "\t\tp4 submit -d \"sub1/f3\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot/sub1@all //depot/sub2@all &&\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgit ls-files >lines &&\n"> <LIT_CHARS "\t\ttest_line_count = 3 lines &&\n"> <LIT_CHARS "\t\tgit log --oneline p4/master >lines &&\n"> <LIT_CHARS "\t\ttest_line_count = 3 lines\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone two dirs, @all, conflicting files">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\techo sub2/f3 >sub2/f3 &&\n"> <LIT_CHARS "\t\tp4 add sub2/f3 &&\n"> <LIT_CHARS "\t\tp4 submit -d \"sub2/f3\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot/sub1@all //depot/sub2@all &&\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgit ls-files >lines &&\n"> <LIT_CHARS "\t\ttest_line_count = 3 lines &&\n"> <LIT_CHARS "\t\tgit log --oneline p4/master >lines &&\n"> <LIT_CHARS "\t\ttest_line_count = 4 lines &&\n"> <LIT_CHARS "\t\techo sub2/f3 >expected &&\n"> <LIT_CHARS "\t\ttest_cmp expected f3\n"> <LIT_CHARS "\t)\n">]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('revision_ranges', {[DQ [LIT_CHARS "2000/01/01,#head "][LIT_CHARS "\t\t 1,2080/01/01 "][LIT_CHARS "\t\t 2000/01/01,2080/01/01 "][LIT_CHARS "\t\t 2000/01/01,1000 "][LIT_CHARS "\t\t 1,1000"]]})])
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone using non-numeric revision ranges">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\tfor r in $revision_ranges\n"> <LIT_CHARS "\tdo\n"> <LIT_CHARS "\t\trm -fr \"$git\" &&\n"> <LIT_CHARS "\t\ttest ! -d \"$git\" &&\n"> <LIT_CHARS "\t\tgit p4 clone --dest=\"$git\" //depot@$r &&\n"> <LIT_CHARS "\t\t(\n"> <LIT_CHARS "\t\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\t\tgit ls-files >lines &&\n"> <LIT_CHARS "\t\t\ttest_line_count = 6 lines\n"> <LIT_CHARS "\t\t)\n"> <LIT_CHARS "\tdone\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone with date range, excluding some changes">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\tbefore=$(date +%Y/%m/%d:%H:%M:%S) &&\n"> <LIT_CHARS "\tsleep 2 &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$cli\" &&\n"> <LIT_CHARS "\t\t:>date_range_test &&\n"> <LIT_CHARS "\t\tp4 add date_range_test &&\n"> <LIT_CHARS "\t\tp4 submit -d \"Adding file\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot@1,$before &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\ttest_path_is_missing date_range_test\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "exit when p4 fails to produce marshaled output">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir badp4dir &&\n"> <LIT_CHARS "\ttest_when_finished \"rm badp4dir/p4 && rmdir badp4dir\" &&\n"> <LIT_CHARS "\tcat >badp4dir/p4 <<-EOF &&\n"> <LIT_CHARS "\t#!$SHELL_PATH\n"> <LIT_CHARS "\texit 1\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tchmod 755 badp4dir/p4 &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tPATH=\"$TRASH_DIRECTORY/badp4dir:$PATH\" &&\n"> <LIT_CHARS "\t\texport PATH &&\n"> <LIT_CHARS "\t\ttest_expect_code 1 git p4 clone --dest=\"$git\" //depot >errs 2>&1\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcat errs &&\n"> <LIT_CHARS "\ttest_i18ngrep ! Traceback errs\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "exit gracefully for p4 server errors">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished \"mv \\\"$db\\\"/depot/file1,v,hidden \\\"$db\\\"/depot/file1,v\" &&\n"> <LIT_CHARS "\tmv \"$db\"/depot/file1,v \"$db\"/depot/file1,v,hidden &&\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\ttest_expect_code 1 git p4 clone --dest=\"$git\" //depot@1 >out 2>err &&\n"> <LIT_CHARS "\ttest_i18ngrep \"Error from p4 print\" err\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone --bare should make a bare repository">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -rf \"$git\" &&\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" --bare //depot &&\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\ttest_path_is_missing .git &&\n"> <LIT_CHARS "\t\tgit config --get --bool core.bare true &&\n"> <LIT_CHARS "\t\tgit rev-parse --verify refs/remotes/p4/master &&\n"> <LIT_CHARS "\t\tgit rev-parse --verify refs/remotes/p4/HEAD &&\n"> <LIT_CHARS "\t\tgit rev-parse --verify refs/heads/master &&\n"> <LIT_CHARS "\t\tgit rev-parse --verify HEAD\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "initial import time from top change time">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tp4change=$(p4 -G changes -m 1 //depot/... | marshal_dump change) &&\n"> <LIT_CHARS "\tp4time=$(p4 -G changes -m 1 //depot/... | marshal_dump time) &&\n"> <LIT_CHARS "\tsleep 3 &&\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot &&\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgittime=$(git show -s --raw --pretty=format:%at HEAD) &&\n"> <LIT_CHARS "\t\techo $p4time $gittime &&\n"> <LIT_CHARS "\t\ttest $p4time = $gittime\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "unresolvable host in P4PORT should display error">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tP4PORT=nosuchhost:65537 &&\n"> <LIT_CHARS "\t\texport P4PORT &&\n"> <LIT_CHARS "\t\ttest_expect_code 1 git p4 sync >out 2>err &&\n"> <LIT_CHARS "\t\tgrep \"connect to nosuchhost\" err\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "submit from detached head">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished cleanup_git &&\n"> <LIT_CHARS "\tgit p4 clone --dest=\"$git\" //depot &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$git\" &&\n"> <LIT_CHARS "\t\tgit checkout p4/master &&\n"> <LIT_CHARS "\t\t>detached_head_test &&\n"> <LIT_CHARS "\t\tgit add detached_head_test &&\n"> <LIT_CHARS "\t\tgit commit -m \"add detached_head\" &&\n"> <LIT_CHARS "\t\tgit config git-p4.skipSubmitEdit true &&\n"> <LIT_CHARS "\t\tgit p4 submit &&\n"> <LIT_CHARS "\t\tgit p4 rebase &&\n"> <LIT_CHARS "\t\tgit log p4/master | grep detached_head\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "kill p4d">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tkill_p4d\n">]})
  (Com {[LIT_CHARS test_done]})
)