$ "$TESTDIR/hghave" serve || exit 80

  $ hg init test

  $ cd test

  $ echo foo>foo

  $ hg commit -Am 1 -d '1 0'

  adding foo

  $ echo bar>bar

  $ hg commit -Am 2 -d '2 0'

  adding bar

  $ mkdir baz

  $ echo bletch>baz/bletch

  $ hg commit -Am 3 -d '1000000000 0'

  adding baz/bletch

  $ echo "[web]" >> .hg/hgrc

  $ echo "name = test-archive" >> .hg/hgrc

  $ cp .hg/hgrc .hg/hgrc-base

  > test_archtype() {

  >     echo "allow_archive = $1" >> .hg/hgrc

  >     hg serve -p $HGPORT -d --pid-file=hg.pid -E errors.log

  >     cat hg.pid >> $DAEMON_PIDS

  >     echo % $1 allowed should give 200

  >     "$TESTDIR/get-with-headers.py" localhost:$HGPORT "archive/tip.$2" | head -n 1

  >     echo % $3 and $4 disallowed should both give 403

  >     "$TESTDIR/get-with-headers.py" localhost:$HGPORT "archive/tip.$3" | head -n 1

  >     "$TESTDIR/get-with-headers.py" localhost:$HGPORT "archive/tip.$4" | head -n 1

  >     "$TESTDIR/killdaemons.py" $DAEMON_PIDS

  >     cat errors.log

  >     cp .hg/hgrc-base .hg/hgrc

  > }

check http return codes

  $ test_archtype gz tar.gz tar.bz2 zip

  % gz allowed should give 200

  200 Script output follows

  % tar.bz2 and zip disallowed should both give 403

  403 Archive type not allowed: bz2

  403 Archive type not allowed: zip

  $ test_archtype bz2 tar.bz2 zip tar.gz

  % bz2 allowed should give 200

  200 Script output follows

  % zip and tar.gz disallowed should both give 403

  403 Archive type not allowed: zip

  403 Archive type not allowed: gz

  $ test_archtype zip zip tar.gz tar.bz2

  % zip allowed should give 200

  200 Script output follows

  % tar.gz and tar.bz2 disallowed should both give 403

  403 Archive type not allowed: gz

  403 Archive type not allowed: bz2

  $ echo "allow_archive = gz bz2 zip" >> .hg/hgrc

  $ hg serve -p $HGPORT -d --pid-file=hg.pid -E errors.log

  $ cat hg.pid >> $DAEMON_PIDS

invalid arch type should give 404

  $ "$TESTDIR/get-with-headers.py" localhost:$HGPORT "archive/tip.invalid" | head -n 1

  404 Unsupported archive type: None

  $ TIP=`hg id -v | cut -f1 -d' '`

  $ QTIP=`hg id -q`

  $ cat > getarchive.py <<EOF

  > import os, sys, urllib2

  > try:

  >     # Set stdout to binary mode for win32 platforms

  >     import msvcrt

  >     msvcrt.setmode(sys.stdout.fileno(), os.O_BINARY)

  > except ImportError:

  >     pass

  > if len(sys.argv) <= 3:

  >     node, archive = sys.argv[1:]

  >     requeststr = 'cmd=archive;node=%s;type=%s' % (node, archive)

  > else:

  >     node, archive, file = sys.argv[1:]

  >     requeststr = 'cmd=archive;node=%s;type=%s;file=%s' % (node, archive, file)

  > try:

  >     f = urllib2.urlopen('http://127.0.0.1:%s/?%s'

  >                     % (os.environ['HGPORT'], requeststr))

  >     sys.stdout.write(f.read())

  > except urllib2.HTTPError, e:

  >     sys.stderr.write(str(e) + '\n')

  > EOF

  $ python getarchive.py "$TIP" gz | gunzip | tar tf - 2>/dev/null

  test-archive-2c0277f05ed4/.hg_archival.txt

  test-archive-2c0277f05ed4/bar

  test-archive-2c0277f05ed4/baz/bletch

  test-archive-2c0277f05ed4/foo

  $ python getarchive.py "$TIP" bz2 | bunzip2 | tar tf - 2>/dev/null

  test-archive-2c0277f05ed4/.hg_archival.txt

  test-archive-2c0277f05ed4/bar

  test-archive-2c0277f05ed4/baz/bletch

  test-archive-2c0277f05ed4/foo

  $ python getarchive.py "$TIP" zip > archive.zip

  $ unzip -t archive.zip

  Archive:  archive.zip

      testing: test-archive-2c0277f05ed4/.hg_archival.txt   OK

      testing: test-archive-2c0277f05ed4/bar   OK

      testing: test-archive-2c0277f05ed4/baz/bletch   OK

      testing: test-archive-2c0277f05ed4/foo   OK

  No errors detected in compressed data of archive.zip.

test that we can download single directories and files

  $ python getarchive.py "$TIP" gz baz | gunzip | tar tf - 2>/dev/null

  test-archive-2c0277f05ed4/baz/bletch

  $ python getarchive.py "$TIP" gz foo | gunzip | tar tf - 2>/dev/null

  test-archive-2c0277f05ed4/foo

test that we reject unsafe patterns

  $ python getarchive.py "$TIP" gz relre:baz

  HTTP Error 403: Archive pattern not allowed: relre:baz

  $ "$TESTDIR/killdaemons.py" $DAEMON_PIDS

  $ hg archive -t tar test.tar

  $ tar tf test.tar

  test/.hg_archival.txt

  test/bar

  test/baz/bletch

  test/foo

  $ hg archive --debug -t tbz2 -X baz test.tar.bz2

  archiving: 0/2 files (0.00%)

  archiving: bar 1/2 files (50.00%)

  archiving: foo 2/2 files (100.00%)

  $ bunzip2 -dc test.tar.bz2 | tar tf - 2>/dev/null

  test/.hg_archival.txt

  test/bar

  test/foo

  $ hg archive -t tgz -p %b-%h test-%h.tar.gz

  $ gzip -dc test-$QTIP.tar.gz | tar tf - 2>/dev/null

  test-2c0277f05ed4/.hg_archival.txt

  test-2c0277f05ed4/bar

  test-2c0277f05ed4/baz/bletch

  test-2c0277f05ed4/foo

  $ hg archive autodetected_test.tar

  $ tar tf autodetected_test.tar

  autodetected_test/.hg_archival.txt

  autodetected_test/bar

  autodetected_test/baz/bletch

  autodetected_test/foo

The '-t' should override autodetection

  $ hg archive -t tar autodetect_override_test.zip

  $ tar tf autodetect_override_test.zip

  autodetect_override_test.zip/.hg_archival.txt

  autodetect_override_test.zip/bar

  autodetect_override_test.zip/baz/bletch

  autodetect_override_test.zip/foo

  $ for ext in tar tar.gz tgz tar.bz2 tbz2 zip; do

  >     hg archive auto_test.$ext

  >     if [ -d auto_test.$ext ]; then

  >         echo "extension $ext was not autodetected."

  >     fi

  > done

  $ cat > md5comp.py <<EOF

  > try:

  >     from hashlib import md5

  > except ImportError:

  >     from md5 import md5

  > import sys

  > f1, f2 = sys.argv[1:3]

  > h1 = md5(file(f1, 'rb').read()).hexdigest()

  > h2 = md5(file(f2, 'rb').read()).hexdigest()

  > print h1 == h2 or "md5 differ: " + repr((h1, h2))

  > EOF

archive name is stored in the archive, so create similar archives and

rename them afterwards.

  $ hg archive -t tgz tip.tar.gz

  $ mv tip.tar.gz tip1.tar.gz

  $ sleep 1

  $ hg archive -t tgz tip.tar.gz

  $ mv tip.tar.gz tip2.tar.gz

  $ python md5comp.py tip1.tar.gz tip2.tar.gz

  True

  $ hg archive -t zip -p /illegal test.zip

  abort: archive prefix contains illegal components

  [255]

  $ hg archive -t zip -p very/../bad test.zip

  $ hg archive --config ui.archivemeta=false -t zip -r 2 test.zip

  $ unzip -t test.zip

  Archive:  test.zip

      testing: test/bar                 OK

      testing: test/baz/bletch          OK

      testing: test/foo                 OK

  No errors detected in compressed data of test.zip.

  $ hg archive -t tar - | tar tf - 2>/dev/null

  test-2c0277f05ed4/.hg_archival.txt

  test-2c0277f05ed4/bar

  test-2c0277f05ed4/baz/bletch

  test-2c0277f05ed4/foo

  $ hg archive -r 0 -t tar rev-%r.tar

  $ if [ -f rev-0.tar ]; then

  $ fi

test .hg_archival.txt

  $ hg archive ../test-tags

  $ cat ../test-tags/.hg_archival.txt

  repo: daa7f7c60e0a224faa4ff77ca41b2760562af264

  node: 2c0277f05ed49d1c8328fb9ba92fba7a5ebcb33e

  branch: default

  latesttag: null

  latesttagdistance: 3

  $ hg tag -r 2 mytag

  $ hg tag -r 2 anothertag

  $ hg archive -r 2 ../test-lasttag

  $ cat ../test-lasttag/.hg_archival.txt

  repo: daa7f7c60e0a224faa4ff77ca41b2760562af264

  node: 2c0277f05ed49d1c8328fb9ba92fba7a5ebcb33e

  branch: default

  tag: anothertag

  tag: mytag

  $ hg archive -t bogus test.bogus

  abort: unknown archive type 'bogus'

  [255]

enable progress extension:

  $ cp $HGRCPATH $HGRCPATH.no-progress

  $ cat >> $HGRCPATH <<EOF

  > [extensions]

  > progress =

  > [progress]

  > assume-tty = 1

  > format = topic bar number

  > delay = 0

  > refresh = 0

  > width = 60

  > EOF

  $ hg archive ../with-progress

  \r (no-eol) (esc)

  archiving [                                           ] 0/4\r (no-eol) (esc)

  archiving [                                           ] 0/4\r (no-eol) (esc)

  archiving [=========>                                 ] 1/4\r (no-eol) (esc)

  archiving [=========>                                 ] 1/4\r (no-eol) (esc)

  archiving [====================>                      ] 2/4\r (no-eol) (esc)

  archiving [====================>                      ] 2/4\r (no-eol) (esc)

  archiving [===============================>           ] 3/4\r (no-eol) (esc)

  archiving [===============================>           ] 3/4\r (no-eol) (esc)

  archiving [==========================================>] 4/4\r (no-eol) (esc)

  archiving [==========================================>] 4/4\r (no-eol) (esc)

                                                              \r (no-eol) (esc)

cleanup after progress extension test:

  $ cp $HGRCPATH.no-progress $HGRCPATH

server errors

  $ cat errors.log

empty repo

  $ hg init ../empty

  $ cd ../empty

  $ hg archive ../test-empty

  abort: no working directory: please specify a revision

  [255]

old file -- date clamped to 1980

  $ touch -t 197501010000 old

  $ hg add old

  $ hg commit -m old

  $ hg archive ../old.zip

  $ unzip -l ../old.zip

  Archive:  ../old.zip

  \s*Length.* (re)

  *-----* (glob)

  *147*80*00:00*old/.hg_archival.txt (glob)

  *0*80*00:00*old/old (glob)

  *-----* (glob)

  \s*147\s+2 files (re)

  $ cd ..

issue3600: check whether "hg archive" can create archive files which

are extracted with expected timestamp, even though TZ is not

configured as GMT.

  $ mkdir issue3600

  $ cd issue3600

  $ hg init repo

  $ echo a > repo/a

  $ hg -R repo add repo/a

  $ hg -R repo commit -m '#0' -d '456789012 21600'

  $ cat > show_mtime.py <<EOF

  > import sys, os

  > print int(os.stat(sys.argv[1]).st_mtime)

  > EOF

  $ hg -R repo archive --prefix tar-extracted archive.tar

  $ (TZ=UTC-3; export TZ; tar xf archive.tar)

  $ python show_mtime.py tar-extracted/a

  456789012

  $ hg -R repo archive --prefix zip-extracted archive.zip

  $ (TZ=UTC-3; export TZ; unzip -q archive.zip)

  $ python show_mtime.py zip-extracted/a

  456789012

  $ cd ..