mirror of
https://github.com/facebook/sapling.git
synced 2024-10-07 15:27:13 +03:00
39 lines
903 B
Perl
39 lines
903 B
Perl
#require serve fifo
|
|
|
|
Test hangup signal in the middle of transaction
|
|
|
|
$ hg init
|
|
$ mkfifo p
|
|
$ hg serve --stdio < p 1>out 2>&1 &
|
|
$ P=$!
|
|
|
|
Do test while holding fifo open
|
|
|
|
$ (
|
|
> echo lock
|
|
> echo addchangegroup
|
|
> start=`date +%s`
|
|
> # 10 second seems much enough to let the server catch up
|
|
> deadline=`expr $start + 10`
|
|
> while [ ! -s .hg/store/journal ]; do
|
|
> sleep 0;
|
|
> if [ `date +%s` -gt $deadline ]; then
|
|
> echo "transaction did not start after 10 seconds" >&2;
|
|
> exit 1;
|
|
> fi
|
|
> done
|
|
> kill -HUP $P
|
|
> ) > p
|
|
|
|
$ wait
|
|
$ cat out
|
|
0
|
|
0
|
|
adding changesets
|
|
transaction abort!
|
|
rollback completed
|
|
killed!
|
|
|
|
$ echo .hg/* .hg/store/*
|
|
.hg/00changelog.i .hg/journal.bookmarks .hg/journal.branch .hg/journal.desc .hg/journal.dirstate .hg/requires .hg/store .hg/store/00changelog.i .hg/store/00changelog.i.a .hg/store/journal.phaseroots
|