test = {
  'name': 'derive-exp',
  'points': 1,
  'suites': [
    {
      'type': 'scheme',
      'cases': [
        {
          'code': r"""
          scm> (derive x^2 'x) ; Remember products have the form (* a b)
          (* 2 x)
          scm> (derive x^3 'x)
          (* 3 (^ x 2))
          """
        },
        {
          'code': r"""
          scm> (derive (make-sum x^3 x^2) 'x)
          (+ (* 3 (^ x 2)) (* 2 x))
          """,
          'locked': False,
        }
      ],
      'setup': r"""
      scm> (load-all ".")
      scm> (define x^2 (make-exp 'x 2))
      scm> (define x^3 (make-exp 'x 3))
      """,
    },
  ]
}
