#!/bin/sh
#
# Copyright (c) 2008 Google Inc.
#

global test_description := ''git-pack-object with missing base

''
source ./test-lib.sh

# Create A-B chain
#
test_expect_success \
    'setup base' \
    'for a in a b c d e f g h i; do echo $a >>text; done &&
     echo side >side &&
     git update-index --add text side &&
     A=$(echo A | git commit-tree $(git write-tree)) &&

     echo m >>text &&
     git update-index text &&
     B=$(echo B | git commit-tree $(git write-tree) -p $A) &&
     git update-ref HEAD $B
    '

# Create repository with C whose parent is B.
# Repository contains C, C^{tree}, C:text, B, B^{tree}.
# Repository is missing B:text (best delta base for C:text).
# Repository is missing A (parent of B).
# Repository is missing A:side.
#
test_expect_success \
    'setup patch_clone' \
    'base_objects=$(pwd)/.git/objects &&
     (mkdir patch_clone &&
      cd patch_clone &&
      git init &&
      echo "$base_objects" >.git/objects/info/alternates &&
      echo q >>text &&
      git read-tree $B &&
      git update-index text &&
      git update-ref HEAD $(echo C | git commit-tree $(git write-tree) -p $B) &&
      rm .git/objects/info/alternates &&

      git --git-dir=../.git cat-file commit $B |
      git hash-object -t commit -w --stdin &&

      git --git-dir=../.git cat-file tree "$B^{tree}" |
      git hash-object -t tree -w --stdin
     ) &&
     C=$(git --git-dir=patch_clone/.git rev-parse HEAD)
    '

# Clone patch_clone indirectly by cloning base and fetching.
#
test_expect_success \
    'indirectly clone patch_clone' \
    '(mkdir user_clone &&
      cd user_clone &&
      git init &&
      git pull ../.git &&
      test $(git rev-parse HEAD) = $B &&

      git pull ../patch_clone/.git &&
      test $(git rev-parse HEAD) = $C
     )
    '

# Cloning the patch_clone directly should fail.
#
test_expect_success \
    'clone of patch_clone is incomplete' \
    '(mkdir user_direct &&
      cd user_direct &&
      git init &&
      test_must_fail git fetch ../patch_clone/.git
     )
    '

test_done
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"git-pack-object with missing base\n"> <"\n">)}
          spids: [13]
        )
      ]
      spids: [13]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(test_expect_success)} {(SQ <"setup base">)} 
      {
        (SQ <"for a in a b c d e f g h i; do echo $a >>text; done &&\n"> <"     echo side >side &&\n"> 
          <"     git update-index --add text side &&\n"> <"     A=$(echo A | git commit-tree $(git write-tree)) &&\n"> <"\n"> <"     echo m >>text &&\n"> 
          <"     git update-index text &&\n"> <"     B=$(echo B | git commit-tree $(git write-tree) -p $A) &&\n"> <"     git update-ref HEAD $B\n"> 
          <"    ">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"setup patch_clone">)} 
      {
        (SQ <"base_objects=$(pwd)/.git/objects &&\n"> <"     (mkdir patch_clone &&\n"> 
          <"      cd patch_clone &&\n"> <"      git init &&\n"> <"      echo \"$base_objects\" >.git/objects/info/alternates &&\n"> 
          <"      echo q >>text &&\n"> <"      git read-tree $B &&\n"> <"      git update-index text &&\n"> 
          <"      git update-ref HEAD $(echo C | git commit-tree $(git write-tree) -p $B) &&\n"> <"      rm .git/objects/info/alternates &&\n"> <"\n"> 
          <"      git --git-dir=../.git cat-file commit $B |\n"> <"      git hash-object -t commit -w --stdin &&\n"> <"\n"> 
          <"      git --git-dir=../.git cat-file tree \"$B^{tree}\" |\n"> <"      git hash-object -t tree -w --stdin\n"> <"     ) &&\n"> 
          <"     C=$(git --git-dir=patch_clone/.git rev-parse HEAD)\n"> <"    ">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"indirectly clone patch_clone">)} 
      {
        (SQ <"(mkdir user_clone &&\n"> <"      cd user_clone &&\n"> <"      git init &&\n"> 
          <"      git pull ../.git &&\n"> <"      test $(git rev-parse HEAD) = $B &&\n"> <"\n"> <"      git pull ../patch_clone/.git &&\n"> 
          <"      test $(git rev-parse HEAD) = $C\n"> <"     )\n"> <"    ">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"clone of patch_clone is incomplete">)} 
      {
        (SQ <"(mkdir user_direct &&\n"> <"      cd user_direct &&\n"> <"      git init &&\n"> 
          <"      test_must_fail git fetch ../patch_clone/.git\n"> <"     )\n"> <"    ">
        )
      }
    )
    (C {(test_done)})
  ]
)