git.oblomov.eu Git - git/blob - t/t9119-git-svn-info.sh

   1 #!/bin/sh
   2 #
   3 # Copyright (c) 2007 David D. Kilzer
   4
   5 test_description='git-svn info'
   6
   7 . ./lib-git-svn.sh
   8
   9 ptouch() {
  10         perl -w -e '
  11                 use strict;
  12                 die "ptouch requires exactly 2 arguments" if @ARGV != 2;
  13                 die "$ARGV[0] does not exist" if ! -e $ARGV[0];
  14                 my @s = stat $ARGV[0];
  15                 utime $s[8], $s[9], $ARGV[1];
  16         ' "$1" "$2"
  17 }
  18
  19 test_expect_success 'setup repository and import' "
  20         mkdir info &&
  21         cd info &&
  22                 echo FIRST > A &&
  23                 echo one > file &&
  24                 ln -s file symlink-file &&
  25                 mkdir directory &&
  26                 touch directory/.placeholder &&
  27                 ln -s directory symlink-directory &&
  28                 svn import -m 'initial' . $svnrepo &&
  29         cd .. &&
  30         mkdir gitwc &&
  31         cd gitwc &&
  32                 git-svn init $svnrepo &&
  33                 git-svn fetch &&
  34         cd .. &&
  35         svn co $svnrepo svnwc &&
  36         ptouch svnwc/file gitwc/file &&
  37         ptouch svnwc/directory gitwc/directory &&
  38         ptouch svnwc/symlink-file gitwc/symlink-file &&
  39         ptouch svnwc/symlink-directory gitwc/symlink-directory
  40         "
  41
  42 test_expect_success 'info' "
  43         (cd svnwc; svn info) > expected.info &&
  44         (cd gitwc; git-svn info) > actual.info &&
  45         git-diff expected.info actual.info
  46         "
  47
  48 test_expect_success 'info --url' '
  49         test $(cd gitwc; git-svn info --url) = $svnrepo
  50         '
  51
  52 test_expect_success 'info .' "
  53         (cd svnwc; svn info .) > expected.info-dot &&
  54         (cd gitwc; git-svn info .) > actual.info-dot &&
  55         git-diff expected.info-dot actual.info-dot
  56         "
  57
  58 test_expect_success 'info --url .' '
  59         test $(cd gitwc; git-svn info --url .) = $svnrepo
  60         '
  61
  62 test_expect_success 'info file' "
  63         (cd svnwc; svn info file) > expected.info-file &&
  64         (cd gitwc; git-svn info file) > actual.info-file &&
  65         git-diff expected.info-file actual.info-file
  66         "
  67
  68 test_expect_success 'info --url file' '
  69         test $(cd gitwc; git-svn info --url file) = "$svnrepo/file"
  70         '
  71
  72 test_expect_success 'info directory' "
  73         (cd svnwc; svn info directory) > expected.info-directory &&
  74         (cd gitwc; git-svn info directory) > actual.info-directory &&
  75         git-diff expected.info-directory actual.info-directory
  76         "
  77
  78 test_expect_success 'info --url directory' '
  79         test $(cd gitwc; git-svn info --url directory) = "$svnrepo/directory"
  80         '
  81
  82 test_expect_success 'info symlink-file' "
  83         (cd svnwc; svn info symlink-file) > expected.info-symlink-file &&
  84         (cd gitwc; git-svn info symlink-file) > actual.info-symlink-file &&
  85         git-diff expected.info-symlink-file actual.info-symlink-file
  86         "
  87
  88 test_expect_success 'info --url symlink-file' '
  89         test $(cd gitwc; git-svn info --url symlink-file) \
  90              = "$svnrepo/symlink-file"
  91         '
  92
  93 test_expect_success 'info symlink-directory' "
  94         (cd svnwc; svn info symlink-directory) \
  95                 > expected.info-symlink-directory &&
  96         (cd gitwc; git-svn info symlink-directory) \
  97                 > actual.info-symlink-directory &&
  98         git-diff expected.info-symlink-directory actual.info-symlink-directory
  99         "
 100
 101 test_expect_success 'info --url symlink-directory' '
 102         test $(cd gitwc; git-svn info --url symlink-directory) \
 103              = "$svnrepo/symlink-directory"
 104         '
 105
 106 test_expect_success 'info added-file' "
 107         echo two > gitwc/added-file &&
 108         cd gitwc &&
 109                 git add added-file &&
 110         cd .. &&
 111         cp gitwc/added-file svnwc/added-file &&
 112         ptouch gitwc/added-file svnwc/added-file &&
 113         cd svnwc &&
 114                 svn add added-file > /dev/null &&
 115         cd .. &&
 116         (cd svnwc; svn info added-file) > expected.info-added-file &&
 117         (cd gitwc; git-svn info added-file) > actual.info-added-file &&
 118         git-diff expected.info-added-file actual.info-added-file
 119         "
 120
 121 test_expect_success 'info --url added-file' '
 122         test $(cd gitwc; git-svn info --url added-file) \
 123              = "$svnrepo/added-file"
 124         '
 125
 126 test_expect_success 'info added-directory' "
 127         mkdir gitwc/added-directory svnwc/added-directory &&
 128         ptouch gitwc/added-directory svnwc/added-directory &&
 129         touch gitwc/added-directory/.placeholder &&
 130         cd svnwc &&
 131                 svn add added-directory > /dev/null &&
 132         cd .. &&
 133         cd gitwc &&
 134                 git add added-directory &&
 135         cd .. &&
 136         (cd svnwc; svn info added-directory) \
 137                 > expected.info-added-directory &&
 138         (cd gitwc; git-svn info added-directory) \
 139                 > actual.info-added-directory &&
 140         git-diff expected.info-added-directory actual.info-added-directory
 141         "
 142
 143 test_expect_success 'info --url added-directory' '
 144         test $(cd gitwc; git-svn info --url added-directory) \
 145              = "$svnrepo/added-directory"
 146         '
 147
 148 test_expect_success 'info added-symlink-file' "
 149         cd gitwc &&
 150                 ln -s added-file added-symlink-file &&
 151                 git add added-symlink-file &&
 152         cd .. &&
 153         cd svnwc &&
 154                 ln -s added-file added-symlink-file &&
 155                 svn add added-symlink-file > /dev/null &&
 156         cd .. &&
 157         ptouch gitwc/added-symlink-file svnwc/added-symlink-file &&
 158         (cd svnwc; svn info added-symlink-file) \
 159                 > expected.info-added-symlink-file &&
 160         (cd gitwc; git-svn info added-symlink-file) \
 161                 > actual.info-added-symlink-file &&
 162         git-diff expected.info-added-symlink-file \
 163                  actual.info-added-symlink-file
 164         "
 165
 166 test_expect_success 'info --url added-symlink-file' '
 167         test $(cd gitwc; git-svn info --url added-symlink-file) \
 168              = "$svnrepo/added-symlink-file"
 169         '
 170
 171 test_expect_success 'info added-symlink-directory' "
 172         cd gitwc &&
 173                 ln -s added-directory added-symlink-directory &&
 174                 git add added-symlink-directory &&
 175         cd .. &&
 176         cd svnwc &&
 177                 ln -s added-directory added-symlink-directory &&
 178                 svn add added-symlink-directory > /dev/null &&
 179         cd .. &&
 180         ptouch gitwc/added-symlink-directory svnwc/added-symlink-directory &&
 181         (cd svnwc; svn info added-symlink-directory) \
 182                 > expected.info-added-symlink-directory &&
 183         (cd gitwc; git-svn info added-symlink-directory) \
 184                 > actual.info-added-symlink-directory &&
 185         git-diff expected.info-added-symlink-directory \
 186                  actual.info-added-symlink-directory
 187         "
 188
 189 test_expect_success 'info --url added-symlink-directory' '
 190         test $(cd gitwc; git-svn info --url added-symlink-directory) \
 191              = "$svnrepo/added-symlink-directory"
 192         '
 193
 194 # The next few tests replace the "Text Last Updated" value with a
 195 # placeholder since git doesn't have a way to know the date that a
 196 # now-deleted file was last checked out locally.  Internally it
 197 # simply reuses the Last Changed Date.
 198
 199 test_expect_success 'info deleted-file' "
 200         cd gitwc &&
 201                 git rm -f file > /dev/null &&
 202         cd .. &&
 203         cd svnwc &&
 204                 svn rm --force file > /dev/null &&
 205         cd .. &&
 206         (cd svnwc; svn info file) |
 207         sed -e 's/^\(Text Last Updated:\).*/\1 TEXT-LAST-UPDATED-STRING/' \
 208                 > expected.info-deleted-file &&
 209         (cd gitwc; git-svn info file) |
 210         sed -e 's/^\(Text Last Updated:\).*/\1 TEXT-LAST-UPDATED-STRING/' \
 211                 > actual.info-deleted-file &&
 212         git-diff expected.info-deleted-file actual.info-deleted-file
 213         "
 214
 215 test_expect_success 'info --url file (deleted)' '
 216         test $(cd gitwc; git-svn info --url file) \
 217              = "$svnrepo/file"
 218         '
 219
 220 test_expect_success 'info deleted-directory' "
 221         cd gitwc &&
 222                 git rm -r -f directory > /dev/null &&
 223         cd .. &&
 224         cd svnwc &&
 225                 svn rm --force directory > /dev/null &&
 226         cd .. &&
 227         (cd svnwc; svn info directory) |
 228         sed -e 's/^\(Text Last Updated:\).*/\1 TEXT-LAST-UPDATED-STRING/' \
 229                 > expected.info-deleted-directory &&
 230         (cd gitwc; git-svn info directory) |
 231         sed -e 's/^\(Text Last Updated:\).*/\1 TEXT-LAST-UPDATED-STRING/' \
 232                 > actual.info-deleted-directory &&
 233         git-diff expected.info-deleted-directory actual.info-deleted-directory
 234         "
 235
 236 test_expect_success 'info --url directory (deleted)' '
 237         test $(cd gitwc; git-svn info --url directory) \
 238              = "$svnrepo/directory"
 239         '
 240
 241 test_expect_success 'info deleted-symlink-file' "
 242         cd gitwc &&
 243                 git rm -f symlink-file > /dev/null &&
 244         cd .. &&
 245         cd svnwc &&
 246                 svn rm --force symlink-file > /dev/null &&
 247         cd .. &&
 248         (cd svnwc; svn info symlink-file) |
 249         sed -e 's/^\(Text Last Updated:\).*/\1 TEXT-LAST-UPDATED-STRING/' \
 250                 > expected.info-deleted-symlink-file &&
 251         (cd gitwc; git-svn info symlink-file) |
 252         sed -e 's/^\(Text Last Updated:\).*/\1 TEXT-LAST-UPDATED-STRING/' \
 253                 > actual.info-deleted-symlink-file &&
 254         git-diff expected.info-deleted-symlink-file \
 255                  actual.info-deleted-symlink-file
 256         "
 257
 258 test_expect_success 'info --url symlink-file (deleted)' '
 259         test $(cd gitwc; git-svn info --url symlink-file) \
 260              = "$svnrepo/symlink-file"
 261         '
 262
 263 test_expect_success 'info deleted-symlink-directory' "
 264         cd gitwc &&
 265                 git rm -f symlink-directory > /dev/null &&
 266         cd .. &&
 267         cd svnwc &&
 268                 svn rm --force symlink-directory > /dev/null &&
 269         cd .. &&
 270         (cd svnwc; svn info symlink-directory) |
 271         sed -e 's/^\(Text Last Updated:\).*/\1 TEXT-LAST-UPDATED-STRING/' \
 272                  > expected.info-deleted-symlink-directory &&
 273         (cd gitwc; git-svn info symlink-directory) |
 274         sed -e 's/^\(Text Last Updated:\).*/\1 TEXT-LAST-UPDATED-STRING/' \
 275                  > actual.info-deleted-symlink-directory &&
 276         git-diff expected.info-deleted-symlink-directory \
 277                  actual.info-deleted-symlink-directory
 278         "
 279
 280 test_expect_success 'info --url symlink-directory (deleted)' '
 281         test $(cd gitwc; git-svn info --url symlink-directory) \
 282              = "$svnrepo/symlink-directory"
 283         '
 284
 285 # NOTE: git does not have the concept of replaced objects,
 286 # so we can't test for files in that state.
 287
 288 test_expect_success 'info unknown-file' "
 289         echo two > gitwc/unknown-file &&
 290         cp gitwc/unknown-file svnwc/unknown-file &&
 291         ptouch gitwc/unknown-file svnwc/unknown-file &&
 292         (cd svnwc; svn info unknown-file) 2> expected.info-unknown-file &&
 293         (cd gitwc; git-svn info unknown-file) 2> actual.info-unknown-file &&
 294         git-diff expected.info-unknown-file actual.info-unknown-file
 295         "
 296
 297 test_expect_success 'info --url unknown-file' '
 298         test -z $(cd gitwc; git-svn info --url unknown-file \
 299                         2> ../actual.info--url-unknown-file) &&
 300         git-diff expected.info-unknown-file actual.info--url-unknown-file
 301         '
 302
 303 test_expect_success 'info unknown-directory' "
 304         mkdir gitwc/unknown-directory svnwc/unknown-directory &&
 305         ptouch gitwc/unknown-directory svnwc/unknown-directory &&
 306         touch gitwc/unknown-directory/.placeholder &&
 307         (cd svnwc; svn info unknown-directory) \
 308                 2> expected.info-unknown-directory &&
 309         (cd gitwc; git-svn info unknown-directory) \
 310                 2> actual.info-unknown-directory &&
 311         git-diff expected.info-unknown-directory actual.info-unknown-directory
 312         "
 313
 314 test_expect_success 'info --url unknown-directory' '
 315         test -z $(cd gitwc; git-svn info --url unknown-directory \
 316                         2> ../actual.info--url-unknown-directory) &&
 317         git-diff expected.info-unknown-directory \
 318                  actual.info--url-unknown-directory
 319         '
 320
 321 test_expect_success 'info unknown-symlink-file' "
 322         cd gitwc &&
 323                 ln -s unknown-file unknown-symlink-file &&
 324         cd .. &&
 325         cd svnwc &&
 326                 ln -s unknown-file unknown-symlink-file &&
 327         cd .. &&
 328         ptouch gitwc/unknown-symlink-file svnwc/unknown-symlink-file &&
 329         (cd svnwc; svn info unknown-symlink-file) \
 330                 2> expected.info-unknown-symlink-file &&
 331         (cd gitwc; git-svn info unknown-symlink-file) \
 332                 2> actual.info-unknown-symlink-file &&
 333         git-diff expected.info-unknown-symlink-file \
 334                  actual.info-unknown-symlink-file
 335         "
 336
 337 test_expect_success 'info --url unknown-symlink-file' '
 338         test -z $(cd gitwc; git-svn info --url unknown-symlink-file \
 339                         2> ../actual.info--url-unknown-symlink-file) &&
 340         git-diff expected.info-unknown-symlink-file \
 341                  actual.info--url-unknown-symlink-file
 342         '
 343
 344 test_expect_success 'info unknown-symlink-directory' "
 345         cd gitwc &&
 346                 ln -s unknown-directory unknown-symlink-directory &&
 347         cd .. &&
 348         cd svnwc &&
 349                 ln -s unknown-directory unknown-symlink-directory &&
 350         cd .. &&
 351         ptouch gitwc/unknown-symlink-directory \
 352                svnwc/unknown-symlink-directory &&
 353         (cd svnwc; svn info unknown-symlink-directory) \
 354                 2> expected.info-unknown-symlink-directory &&
 355         (cd gitwc; git-svn info unknown-symlink-directory) \
 356                 2> actual.info-unknown-symlink-directory &&
 357         git-diff expected.info-unknown-symlink-directory \
 358                  actual.info-unknown-symlink-directory
 359         "
 360
 361 test_expect_success 'info --url unknown-symlink-directory' '
 362         test -z $(cd gitwc; git-svn info --url unknown-symlink-directory \
 363                         2> ../actual.info--url-unknown-symlink-directory) &&
 364         git-diff expected.info-unknown-symlink-directory \
 365                  actual.info--url-unknown-symlink-directory
 366         '
 367
 368 test_done