t / t8011-blame-split-file.shon commit fsmonitor: read from getcwd(), not the PWD environment variable (6f1dc21)
   1#!/bin/sh
   2
   3test_description='
   4The general idea is that we have a single file whose lines come from
   5multiple other files, and those individual files were modified in the same
   6commits. That means that we will see the same commit in multiple contexts,
   7and each one should be attributed to the correct file.
   8
   9Note that we need to use "blame -C" to find the commit for all lines. We will
  10not bother testing that the non-C case fails to find it. That is how blame
  11behaves now, but it is not a property we want to make sure is retained.
  12'
  13. ./test-lib.sh
  14
  15# help avoid typing and reading long strings of similar lines
  16# in the tests below
  17generate_expect () {
  18        while read nr data
  19        do
  20                i=0
  21                while test $i -lt $nr
  22                do
  23                        echo $data
  24                        i=$((i + 1))
  25                done
  26        done
  27}
  28
  29test_expect_success 'setup split file case' '
  30        # use lines long enough to trigger content detection
  31        test_seq 1000 1010 >one &&
  32        test_seq 2000 2010 >two &&
  33        git add one two &&
  34        test_commit base &&
  35
  36        sed "6s/^/modified /" <one >one.tmp &&
  37        mv one.tmp one &&
  38        sed "6s/^/modified /" <two >two.tmp &&
  39        mv two.tmp two &&
  40        git add -u &&
  41        test_commit modified &&
  42
  43        cat one two >combined &&
  44        git add combined &&
  45        git rm one two &&
  46        test_commit combined
  47'
  48
  49test_expect_success 'setup simulated porcelain' '
  50        # This just reads porcelain-ish output and tries
  51        # to output the value of a given field for each line (either by
  52        # reading the field that accompanies this line, or referencing
  53        # the information found last time the commit was mentioned).
  54        cat >read-porcelain.pl <<-\EOF
  55        my $field = shift;
  56        while (<>) {
  57                if (/^[0-9a-f]{40} /) {
  58                        flush();
  59                        $hash = $&;
  60                } elsif (/^$field (.*)/) {
  61                        $cache{$hash} = $1;
  62                }
  63        }
  64        flush();
  65
  66        sub flush {
  67                return unless defined $hash;
  68                if (defined $cache{$hash}) {
  69                        print "$cache{$hash}\n";
  70                } else {
  71                        print "NONE\n";
  72                }
  73        }
  74        EOF
  75'
  76
  77for output in porcelain line-porcelain
  78do
  79        test_expect_success "generate --$output output" '
  80                git blame --root -C --$output combined >output
  81        '
  82
  83        test_expect_success "$output output finds correct commits" '
  84                generate_expect >expect <<-\EOF &&
  85                5 base
  86                1 modified
  87                10 base
  88                1 modified
  89                5 base
  90                EOF
  91                perl read-porcelain.pl summary <output >actual &&
  92                test_cmp expect actual
  93        '
  94
  95        test_expect_success "$output output shows correct filenames" '
  96                generate_expect >expect <<-\EOF &&
  97                11 one
  98                11 two
  99                EOF
 100                perl read-porcelain.pl filename <output >actual &&
 101                test_cmp expect actual
 102        '
 103
 104        test_expect_success "$output output shows correct previous pointer" '
 105                generate_expect >expect <<-EOF &&
 106                5 NONE
 107                1 $(git rev-parse modified^) one
 108                10 NONE
 109                1 $(git rev-parse modified^) two
 110                5 NONE
 111                EOF
 112                perl read-porcelain.pl previous <output >actual &&
 113                test_cmp expect actual
 114        '
 115done
 116
 117test_done