(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git archive and git get-tar-commit-id test\n"> <LIT_CHARS "\n"> <LIT_CHARS "This test covers the topics of file contents, commit date handling and\n"> <LIT_CHARS "commit id embedding:\n"> <LIT_CHARS "\n"> <LIT_CHARS "  The contents of the repository is compared to the extracted tar\n"> <LIT_CHARS "  archive.  The repository contains simple text files, symlinks and a\n"> <LIT_CHARS "  binary file (/bin/sh).  Only paths shorter than 99 characters are\n"> <LIT_CHARS "  used.\n"> <LIT_CHARS "\n"> <LIT_CHARS "  git archive applies the commit date to every file in the archive it\n"> <LIT_CHARS "  creates.  The test sets the commit date to a specific value and checks\n"> <LIT_CHARS "  if the tar archive contains that value.\n"> <LIT_CHARS "\n"> <LIT_CHARS "  When giving git archive a commit id (in contrast to a tree id) it\n"> <LIT_CHARS "  embeds this commit id into the tar archive as a comment.  The test\n"> <LIT_CHARS "  checks the ability of git get-tar-commit-id to figure it out from the\n"> <LIT_CHARS "  tar file.\n"> <LIT_CHARS "\n">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('SUBSTFORMAT', {[LIT_OTHER "%"] [LIT_CHARS H] [LIT_OTHER "%"] [LIT_CHARS n]})])
  (Com {[LIT_CHARS test_lazy_prereq]} {[LIT_CHARS TAR_NEEDS_PAX_FALLBACK]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tmkdir pax &&\n"> <LIT_CHARS "\t\tcd pax &&\n"> <LIT_CHARS "\t\t\"$TAR\" xf \"$TEST_DIRECTORY\"/t5000/pax.tar &&\n"> <LIT_CHARS "\t\ttest -f PaxHeaders.1791/file\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_lazy_prereq]} {[LIT_CHARS GZIP]} {[SQ <LIT_CHARS "gzip --version">]})
  (FunctionDef get_pax_header []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('file', {[VarSub 1]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('header', {[VarSub 2] [LIT_OTHER "="]})])
      (While
        (Com {[LIT_CHARS read]} {[LIT_CHARS len]} {[LIT_CHARS rest]})
        (If
          (Com {[LIT_CHARS test]} {[DQ [VarSub len]]} {[LIT_OTHER "="]} {[ComSub (Pipeline (Com {[LIT_CHARS echo]} {[DQ [VarSub len][LIT_CHARS " "][VarSub rest]]}) (Com {[LIT_CHARS wc]} {[LIT_CHARS -c]}) )]})
          (Case to_match={[DQ [VarSub rest]]}, pat_word_list=[[{[VarSub header] [LIT_OTHER "*"]}]]
            (Com {[LIT_CHARS echo]} {[DQ [VarSub rest transform_ops=[VS_UNARY_POUND {[VarSub header]}]]]})
          )
        )
      )
    )
  )
  (FunctionDef check_tar []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('tarfile', {[VarSub 1] [LIT_CHARS .tar]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('listfile', {[VarSub 1] [LIT_CHARS .lst]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('dir', {[VarSub 1]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('dir_with_prefix', {[VarSub dir] [LIT_CHARS /] [VarSub 2]})])
      (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS " extract tar archive">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\t(mkdir $dir && cd $dir && \"$TAR\" xf -) <$tarfile\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS TAR_NEEDS_PAX_FALLBACK]} {[SQ <LIT_CHARS " interpret pax headers">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\t(\n"> <LIT_CHARS "\t\t\tcd $dir &&\n"> <LIT_CHARS "\t\t\tfor header in *.paxheader\n"> <LIT_CHARS "\t\t\tdo\n"> <LIT_CHARS "\t\t\t\tdata=${header%.paxheader}.data &&\n"> <LIT_CHARS "\t\t\t\tif test -h $data || test -e $data\n"> <LIT_CHARS "\t\t\t\tthen\n"> <LIT_CHARS "\t\t\t\t\tpath=$(get_pax_header $header path) &&\n"> <LIT_CHARS "\t\t\t\t\tif test -n \"$path\"\n"> <LIT_CHARS "\t\t\t\t\tthen\n"> <LIT_CHARS "\t\t\t\t\t\tmv \"$data\" \"$path\"\n"> <LIT_CHARS "\t\t\t\t\tfi\n"> <LIT_CHARS "\t\t\t\tfi\n"> <LIT_CHARS "\t\t\tdone\n"> <LIT_CHARS "\t\t)\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS " validate filenames">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\t(cd ${dir_with_prefix}a && find .) | sort >$listfile &&\n"> <LIT_CHARS "\t\ttest_cmp a.lst $listfile\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS " validate file contents">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\tdiff -r a ${dir_with_prefix}a\n"> <LIT_CHARS "\t">]})
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "populate workdir">]} {[SQ <LIT_CHARS "mkdir a &&\n"> <LIT_CHARS "     echo simple textfile >a/a &&\n"> <LIT_CHARS "     ten=0123456789 && hundred=$ten$ten$ten$ten$ten$ten$ten$ten$ten$ten &&\n"> <LIT_CHARS "     echo long filename >a/four$hundred &&\n"> <LIT_CHARS "     mkdir a/bin &&\n"> <LIT_CHARS "     test-genrandom \"frotz\" 500000 >a/bin/sh &&\n"> <LIT_CHARS "     printf \"A\\$Format:%s\\$O\" \"$SUBSTFORMAT\" >a/substfile1 &&\n"> <LIT_CHARS "     printf \"A not substituted O\" >a/substfile2 &&\n"> <LIT_CHARS "     if test_have_prereq SYMLINKS; then\n"> <LIT_CHARS "\tln -s a a/l1\n"> <LIT_CHARS "     else\n"> <LIT_CHARS "\tprintf %s a > a/l1\n"> <LIT_CHARS "     fi &&\n"> <LIT_CHARS "     (p=long_path_to_a_file && cd a &&\n"> <LIT_CHARS "      for depth in 1 2 3 4 5; do mkdir $p && cd $p; done &&\n"> <LIT_CHARS "      echo text >file_with_long_path) &&\n"> <LIT_CHARS "     (cd a && find .) | sort >a.lst">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "add ignored file">]} {[SQ <LIT_CHARS "echo ignore me >a/ignored &&\n"> <LIT_CHARS "     echo ignored export-ignore >.git/info/attributes">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "add files to repository">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit add a &&\n"> <LIT_CHARS "\tGIT_COMMITTER_DATE=\"2005-05-27 22:00\" git commit -m initial\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup export-subst">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"substfile?\" export-subst >>.git/info/attributes &&\n"> <LIT_CHARS "\tgit log --max-count=1 \"--pretty=format:A${SUBSTFORMAT}O\" HEAD \\\n"> <LIT_CHARS "\t\t>a/substfile1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create bare clone">]} {[SQ <LIT_CHARS "git clone --bare . bare.git &&\n"> <LIT_CHARS "     cp .git/info/attributes bare.git/info/attributes">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "remove ignored file">]} {[SQ <LIT_CHARS "rm a/ignored">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git archive">]} {[SQ <LIT_CHARS "git archive HEAD >b.tar">]})
  (Com {[LIT_CHARS check_tar]} {[LIT_CHARS b]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git archive --prefix=prefix/">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit archive --prefix=prefix/ HEAD >with_prefix.tar\n">]})
  (Com {[LIT_CHARS check_tar]} {[LIT_CHARS with_prefix]} {[LIT_CHARS prefix/]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git-archive --prefix=olde-">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit archive --prefix=olde- HEAD >with_olde-prefix.tar\n">]})
  (Com {[LIT_CHARS check_tar]} {[LIT_CHARS with_olde-prefix]} {[LIT_CHARS olde-]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git archive on large files">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "    test_config core.bigfilethreshold 1 &&\n"> <LIT_CHARS "    git archive HEAD >b3.tar &&\n"> <LIT_CHARS "    test_cmp_bin b.tar b3.tar\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git archive in a bare repo">]} {[SQ <LIT_CHARS "(cd bare.git && git archive HEAD) >b3.tar">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git archive vs. the same in a bare repo">]} {[SQ <LIT_CHARS "test_cmp_bin b.tar b3.tar">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git archive with --output">]} {[SQ <LIT_CHARS "git archive --output=b4.tar HEAD &&\n"> <LIT_CHARS "    test_cmp_bin b.tar b4.tar">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git archive --remote">]} {[SQ <LIT_CHARS "git archive --remote=. HEAD >b5.tar &&\n"> <LIT_CHARS "    test_cmp_bin b.tar b5.tar">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "validate file modification time">]} {[SQ <LIT_CHARS "mkdir extract &&\n"> <LIT_CHARS "     \"$TAR\" xf b.tar -C extract a/a &&\n"> <LIT_CHARS "     test-chmtime -v +0 extract/a/a |cut -f 1 >b.mtime &&\n"> <LIT_CHARS "     echo \"1117231200\" >expected.mtime &&\n"> <LIT_CHARS "     test_cmp expected.mtime b.mtime">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git get-tar-commit-id">]} {[SQ <LIT_CHARS "git get-tar-commit-id <b.tar >b.commitid &&\n"> <LIT_CHARS "     test_cmp .git/$(git symbolic-ref HEAD) b.commitid">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git archive with --output, override inferred format">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit archive --format=tar --output=d4.zip HEAD &&\n"> <LIT_CHARS "\ttest_cmp_bin b.tar d4.zip\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git archive --list outside of a git repo">]} {[SQ <LIT_CHARS "GIT_DIR=some/non-existing/directory git archive --list">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clients cannot access unreachable commits">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_commit unreachable &&\n"> <LIT_CHARS "\tsha1=$(git rev-parse HEAD) &&\n"> <LIT_CHARS "\tgit reset --hard HEAD^ &&\n"> <LIT_CHARS "\tgit archive $sha1 >remote.tar &&\n"> <LIT_CHARS "\ttest_must_fail git archive --remote=. $sha1 >remote.tar\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "upload-archive can allow unreachable commits">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_commit unreachable1 &&\n"> <LIT_CHARS "\tsha1=$(git rev-parse HEAD) &&\n"> <LIT_CHARS "\tgit reset --hard HEAD^ &&\n"> <LIT_CHARS "\tgit archive $sha1 >remote.tar &&\n"> <LIT_CHARS "\ttest_config uploadarchive.allowUnreachable true &&\n"> <LIT_CHARS "\tgit archive --remote=. $sha1 >remote.tar\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup tar filters">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config tar.tar.foo.command \"tr ab ba\" &&\n"> <LIT_CHARS "\tgit config tar.bar.command \"tr ab ba\" &&\n"> <LIT_CHARS "\tgit config tar.bar.remote true &&\n"> <LIT_CHARS "\tgit config tar.invalid baz\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "archive --list mentions user filter">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit archive --list >output &&\n"> <LIT_CHARS "\tgrep \"^tar\\.foo\\$\" output &&\n"> <LIT_CHARS "\tgrep \"^bar\\$\" output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "archive --list shows only enabled remote filters">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit archive --list --remote=. >output &&\n"> <LIT_CHARS "\t! grep \"^tar\\.foo\\$\" output &&\n"> <LIT_CHARS "\tgrep \"^bar\\$\" output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "invoke tar filter by format">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit archive --format=tar.foo HEAD >config.tar.foo &&\n"> <LIT_CHARS "\ttr ab ba <config.tar.foo >config.tar &&\n"> <LIT_CHARS "\ttest_cmp_bin b.tar config.tar &&\n"> <LIT_CHARS "\tgit archive --format=bar HEAD >config.bar &&\n"> <LIT_CHARS "\ttr ab ba <config.bar >config.tar &&\n"> <LIT_CHARS "\ttest_cmp_bin b.tar config.tar\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "invoke tar filter by extension">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit archive -o config-implicit.tar.foo HEAD &&\n"> <LIT_CHARS "\ttest_cmp_bin config.tar.foo config-implicit.tar.foo &&\n"> <LIT_CHARS "\tgit archive -o config-implicit.bar HEAD &&\n"> <LIT_CHARS "\ttest_cmp_bin config.tar.foo config-implicit.bar\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "default output format remains tar">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit archive -o config-implicit.baz HEAD &&\n"> <LIT_CHARS "\ttest_cmp_bin b.tar config-implicit.baz\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "extension matching requires dot">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit archive -o config-implicittar.foo HEAD &&\n"> <LIT_CHARS "\ttest_cmp_bin b.tar config-implicittar.foo\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "only enabled filters are available remotely">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git archive --remote=. --format=tar.foo HEAD \\\n"> <LIT_CHARS "\t\t>remote.tar.foo &&\n"> <LIT_CHARS "\tgit archive --remote=. --format=bar >remote.bar HEAD &&\n"> <LIT_CHARS "\ttest_cmp_bin remote.bar config.bar\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS GZIP]} {[SQ <LIT_CHARS "git archive --format=tgz">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit archive --format=tgz HEAD >j.tgz\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS GZIP]} {[SQ <LIT_CHARS "git archive --format=tar.gz">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit archive --format=tar.gz HEAD >j1.tar.gz &&\n"> <LIT_CHARS "\ttest_cmp_bin j.tgz j1.tar.gz\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS GZIP]} {[SQ <LIT_CHARS "infer tgz from .tgz filename">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit archive --output=j2.tgz HEAD &&\n"> <LIT_CHARS "\ttest_cmp_bin j.tgz j2.tgz\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS GZIP]} {[SQ <LIT_CHARS "infer tgz from .tar.gz filename">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit archive --output=j3.tar.gz HEAD &&\n"> <LIT_CHARS "\ttest_cmp_bin j.tgz j3.tar.gz\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS GZIP]} {[SQ <LIT_CHARS "extract tgz file">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgzip -d -c <j.tgz >j.tar &&\n"> <LIT_CHARS "\ttest_cmp_bin b.tar j.tar\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS GZIP]} {[SQ <LIT_CHARS "remote tar.gz is allowed by default">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit archive --remote=. --format=tar.gz HEAD >remote.tar.gz &&\n"> <LIT_CHARS "\ttest_cmp_bin j.tgz remote.tar.gz\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS GZIP]} {[SQ <LIT_CHARS "remote tar.gz can be disabled">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config tar.tar.gz.remote false &&\n"> <LIT_CHARS "\ttest_must_fail git archive --remote=. --format=tar.gz HEAD \\\n"> <LIT_CHARS "\t\t>remote.tar.gz\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "archive and :(glob)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit archive -v HEAD -- \":(glob)**/sh\" >/dev/null 2>actual &&\n"> <LIT_CHARS "\tcat >expect <<EOF &&\n"> <LIT_CHARS "a/\n"> <LIT_CHARS "a/bin/\n"> <LIT_CHARS "a/bin/sh\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "catch non-matching pathspec">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git archive -v HEAD -- \"*.abc\" >/dev/null\n">]})
  (FunctionDef tar_info []
    (Pipeline
      (Com {[DQ [VarSub TAR]]} {[LIT_CHARS tvf]} {[DQ [VarSub 1]]})
      (Com {[LIT_CHARS awk]} {[SQ <LIT_CHARS "{\n"> <LIT_CHARS "\t\tsplit($4, date, \"-\")\n"> <LIT_CHARS "\t\tprint $3 \" \" date[1]\n"> <LIT_CHARS "\t}">]})
    )
  )
  (Com {[LIT_CHARS test_lazy_prereq]} {[LIT_CHARS TAR_HUGE]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"68719476737 4147\" >expect &&\n"> <LIT_CHARS "\ttar_info \"$TEST_DIRECTORY\"/t5000/huge-and-future.tar >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS LONG_IS_64BIT]} {[SQ <LIT_CHARS "set up repository with huge blob">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tobj_d=19 &&\n"> <LIT_CHARS "\tobj_f=f9c8273ec45a8938e6999cb59b3ff66739902a &&\n"> <LIT_CHARS "\tobj=${obj_d}${obj_f} &&\n"> <LIT_CHARS "\tmkdir -p .git/objects/$obj_d &&\n"> <LIT_CHARS "\tcp \"$TEST_DIRECTORY\"/t5000/$obj .git/objects/$obj_d/$obj_f &&\n"> <LIT_CHARS "\trm -f .git/index &&\n"> <LIT_CHARS "\tgit update-index --add --cacheinfo 100644,$obj,huge &&\n"> <LIT_CHARS "\tgit commit -m huge\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS LONG_IS_64BIT]} {[SQ <LIT_CHARS "generate tar with huge size">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t{\n"> <LIT_CHARS "\t\tgit archive HEAD\n"> <LIT_CHARS "\t\techo $? >exit-code\n"> <LIT_CHARS "\t} | test_copy_bytes 4096 >huge.tar &&\n"> <LIT_CHARS "\techo 141 >expect &&\n"> <LIT_CHARS "\ttest_cmp expect exit-code\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS TAR_HUGE] [LIT_COMMA ","] [LIT_CHARS LONG_IS_64BIT]} {[SQ <LIT_CHARS "system tar can read our huge size">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo 68719476737 >expect &&\n"> <LIT_CHARS "\ttar_info huge.tar | cut -d\" \" -f1 >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS LONG_IS_64BIT]} {[SQ <LIT_CHARS "set up repository with far-future commit">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f .git/index &&\n"> <LIT_CHARS "\techo content >file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tGIT_COMMITTER_DATE=\"@68719476737 +0000\" \\\n"> <LIT_CHARS "\t\tgit commit -m \"tempori parendum\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS LONG_IS_64BIT]} {[SQ <LIT_CHARS "generate tar with future mtime">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit archive HEAD >future.tar\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS TAR_HUGE] [LIT_COMMA ","] [LIT_CHARS LONG_IS_64BIT]} {[SQ <LIT_CHARS "system tar can read our future mtime">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo 4147 >expect &&\n"> <LIT_CHARS "\ttar_info future.tar | cut -d\" \" -f2 >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_done]})
)