test = {
  'name': 'make-exp',
  'points': 1,
  'suites': [
    {
      'type': 'scheme',
      'cases': [
        {
          'code': r"""
          scm> (make-exp 2 4)
          16
          scm> (make-exp 'x 1)
          x
          scm> (make-exp 'x 0)
          1
          scm> x^2
          (^ x 2)
          scm> (first-operand x^2)
          x
          scm> (second-operand x^2)
          2
          scm> (exp? x^2) ; #t or #f
          #t
          scm> (exp? 1)
          #f
          scm> (exp? 'x)
          #f
          """,
        }
      ],
      'setup': r"""
      scm> (load-all ".")
      scm> (define x^2 (make-exp 'x 2))
      scm> (define x^3 (make-exp 'x 3))
      """,
    },
  ]
}
