#!/bin/sh

global test_description := '"Tests diff generation performance'"

source ./perf-lib.sh

test_perf_default_repo

test_perf 'log -3000 (baseline)' '
	git log -3000 >/dev/null
'

test_perf 'log --raw -3000 (tree-only)' '
	git log --raw -3000 >/dev/null
'

test_perf 'log -p -3000 (Myers)' '
	git log -p -3000 >/dev/null
'

test_perf 'log -p -3000 --histogram' '
	git log -p -3000 --histogram >/dev/null
'

test_perf 'log -p -3000 --patience' '
	git log -p -3000 --patience >/dev/null
'

test_done
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(DQ ("Tests diff generation performance"))}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./perf-lib.sh)})
    (C {(test_perf_default_repo)})
    (C {(test_perf)} {(SQ <"log -3000 (baseline)">)} {(SQ <"\n"> <"\tgit log -3000 >/dev/null\n">)})
    (C {(test_perf)} {(SQ <"log --raw -3000 (tree-only)">)} 
      {(SQ <"\n"> <"\tgit log --raw -3000 >/dev/null\n">)}
    )
    (C {(test_perf)} {(SQ <"log -p -3000 (Myers)">)} {(SQ <"\n"> <"\tgit log -p -3000 >/dev/null\n">)})
    (C {(test_perf)} {(SQ <"log -p -3000 --histogram">)} 
      {(SQ <"\n"> <"\tgit log -p -3000 --histogram >/dev/null\n">)}
    )
    (C {(test_perf)} {(SQ <"log -p -3000 --patience">)} 
      {(SQ <"\n"> <"\tgit log -p -3000 --patience >/dev/null\n">)}
    )
    (C {(test_done)})
  ]
)