#lang scribble/doc @(require scribble/manual scribble/eval "../evaluator.ss") @(require "../../private/planet.ss") @(require (cce scribble)) @(require (for-label (this-package-in lang/dracula) (this-package-in teachpacks/testing))) @title[(scheme "testing")] @(declare-exporting/this-package [teachpacks/testing] []) @specform[(include-book "testing" :dir :teachpacks)] This teachpack provides a graphical interface for unit tests. @defform[(generate-report)]{ Write this at the end of your file to display the test results. } @defform[(check-expect actual expected)]{ Tests @scheme[(equal actual expected)]. } @defform[(check-within actual expected delta)]{ Tests @scheme[(and (<= (- expected delta) actual) (<= actual (+ expected delta)))]. } @defform[(check-error expr)]{ Tests that @scheme[expr] triggers a guard violation. }