test = {
  'name': 'accumulate-tail',
  'points': 1,
  'suites': [
    {
      'cases': [
        {
          'code': r"""
          scm> (define (identity x) x)
          identity
          scm> (accumulate-tail * 1 5 identity)
          120
          """,
          'hidden': False,
          'locked': False,
          'multiline': False
        },
        {
          'code': r"""
          scm> (define (square x) (* x x))
          square
          scm> (accumulate-tail + 0 5 square)
          55
          scm> (accumulate-tail + 5 5 square)
          60
          """,
          'hidden': False,
          'locked': False,
          'multiline': False
        },
        {
          'code': r"""
          scm> (define (identity x) x)
          identity
          scm> (accumulate-tail + 0 1000 identity)
          500500
          scm> (accumulate-tail + 0 5000 identity)
          12502500
          """,
          'hidden': False,
          'locked': False,
          'multiline': False
        }
      ],
      'scored': True,
      'setup': r"""
      scm> (load-all ".")
      """,
      'teardown': '',
      'type': 'scheme'
    }
  ]
}
