Utilities for Unit Testing

by Dave Herman <dherman at ccs dot neu dot edu>

This package provides several utility functions and forms for unit testing.

1 Getting Started

This package provides one module:

  (require (planet dherman/test:2))

2 Functions

(list-permutation? ls1 ls2 [equiv?]) → boolean?

ls1 : list?

ls2 : list?

equiv? : (any any -> boolean?) = eq?

Determines whether ls1 and ls2 are equivalent up to reordering.

3 Forms

(in-this-directory body-form ...+)

An expression form that evaluates each body-form with the current-directory parameterized to the directory containing the module in which the expression appears.

(in-new-directory dir-expr body-form ...+)

An expression form that creates the directory dir-expr and evaluates each body-form with the current-directory parameterized to the new directory. If keep-new-directories? is #f, the new directory is completely erased, including all of its contents, after evaluation terminates.

keep-new-directories? : (parameter/c boolean?)

Should in-new-directory allow created directories to persist after completing?