t/bench.sh

   1 #!/bin/sh
   2
   3 # this is a test as well, but it would take a lot of time, so don't
   4 # prefix it with 'test'.
   5
   6 . lib.sh
   7
   8 if [ ! -d darcs-benchmark ]; then
   9         darcs get http://code.haskell.org/darcs/darcs-benchmark
  10         cd darcs-benchmark
  11 else
  12         cd darcs-benchmark
  13         darcs pull -a
  14 fi
  15 sh initialise.sh
  16 cd big-zoo
  17 if [ -n "$1" ]; then
  18         targets=$1
  19 else
  20         targets=*_play.tar.gz
  21 fi
  22 for i in $targets
  23 do
  24         echo "benchmarking $i"
  25         rm -rf _playground
  26         tar xf $i
  27         cd _playground
  28         log="../$i.d-f-e-$(git describe).log"
  29         sh -c 'time d2x -f git sandbox' 2>&1 |tee $log
  30         darcs show repo --repodir sandbox |egrep -v 'Root|Cache|Default' >> $log
  31         if diff_git sandbox >/dev/null; then
  32                 echo "ok, the result is correct" >> $log
  33         else
  34                 echo "ouch, the result is corrupted" >> $log
  35                 exit 1
  36         fi
  37         cd ..
  38 done