source: test.h @ 3bf5516

barnowl_perlaimdebianrelease-1.10release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since 3bf5516 was 1cf3f8d3, checked in by Nelson Elhage <nelhage@mit.edu>, 17 years ago
Make the built-in regression tests output TAP and add a perl wrapper to call it.
  • Property mode set to 100644
File size: 290 bytes
RevLine 
[0138478]1#ifndef __OWL_TEST_H__
2#define __OWL_TEST_H__
3
4#define FAIL_UNLESS(desc,pred) do { int __pred = (pred);                \
[1cf3f8d3]5    printf("%s %s", (__pred)?"ok":(numfailed++,"not ok"), desc);     \
[0138478]6    if(!(__pred)) printf("\t(%s:%d)", __FILE__, __LINE__); printf("%c", '\n'); } while(0)
7
8#endif
Note: See TracBrowser for help on using the repository browser.