test_dirac = ->
  run_test [
    "dirac(-x)",
    "dirac(x)",
  ]