tests/test-issue1102.t

storageutil: extract most of peek_censored from revlog

This function is super hacky and isn't correct 100% of the time. I'm going
to need this functionality on a future non-revlog store.

Let's copy things to storageutil so this code only exists once.

Differential Revision: https://phab.mercurial-scm.org/D5118

  $ rm -rf a
  $ hg init a
  $ cd a
  $ echo a > a
  $ hg ci -Am0
  adding a
  $ hg tag t1 # 1
  $ hg tag --remove t1 # 2

  $ hg co 1
  1 files updated, 0 files merged, 0 files removed, 0 files unresolved
  $ hg tag -f -r0 t1
  $ hg tags
  tip                                3:a49829c4fc11
  t1                                 0:f7b1eb17ad24

  $ cd ..