$ od -c -N 50000 [eris]<LispCore>LIBRARY>do-test.tedit!2
0000000 S u b j e c t : d o - t e s t
0000020 \r T o : x c l i s p c o r e ^
0000040 \r c c : n u y e n s . p a \r \r
0000060 T h i s m s g i s s t o r
0000100 e d o n { e r i s } < l i s
0000120 p c o r e > c m l > t e s t > d
0000140 o - t e s t . t e d i t \r T h e
0000160 t e s t e r i s o n { e
0000200 r i s } < l i s p c o r e > l i
0000220 b r a r y > d o - t e s t . d c
0000240 o m . \r \r T h e m a i n e n
0000260 t r i e s a r e t h e f o
0000300 l l o w i n g : \r \r ( D O - T E
0000320 S T n a m e f o r m s ) \r A
0000340 t e s t s u c c e e d s i
0000360 f t h e f i n a l f o r m
0000400 r e t u r n s a n o n - n
0000420 i l r e s u l t . N a m e
0000440 i s j u s t t h e n a m
0000460 e w h i c h c a n b e a
0000500 n a t o m o r s t r i n g
0000520 . F o r m s a r e p r e s
0000540 u m e d t o b e r e a d
0000560 w i t h t h e C o m m o n
0000600 L i s p r e a d e r . \r \r ( D
0000620 O - T E S T - G R O U P n a m
0000640 e & o p t i o n s f o r m s )
0000660 \r F o r a s s o c i a t i n g
0000700 a g r o u p o f t e s t
0000720 s . F o r i n s t a n c e
0000740 , a g r o u p o f t e s
0000760 t s m a y a l l r e q u i
0001000 r e t h e s a m e s e t u
0001020 p a n d c l e a n u p . I
0001040 f t h e r e a r e a n y
0001060 o p t i o n s ( s e e b e l
0001100 o w ) t h e n t h e C A R
0001120 o f n a m e & o p t i o n s
0001140 i s t h e n a m e a n d
0001160 t h e C D R i s a k
0001200 e y w o r d / v a l u e l i s
0001220 t . \r \r ( E X P E C T - E R R O
0001240 R S e r r o r - t y p e s f
0001260 o r m s ) \r E r r o r - t y p e
0001300 s i s a l i s t o f e
0001320 r r o r s t h a t m a y o
0001340 c c u r w h i l e e x e c u
0001360 t i n g t h e f o r m s .
0001400 I f o n e o f t h e l i
0001420 s t e d e r r o r s o c c u
0001440 r s , E X P E C T - E R R O R
0001460 S r e t u r n s ( v a l u e
0001500 s t e r r o r - t h a t - o
0001520 c c u r r e d ) , o t h e r w
0001540 i s e n i l . \r \r ( D O - T E
0001560 S T - F I L E f i l e n a m e
0001600 ) \r R e a d s a n d e x e c
0001620 u t e s a f i l e o f t
0001640 e s t s . T h e f i l e
0001660 s h o u l d b e c l e a r
0001700 t e x t ( c l e a r p u t i
0001720 n T E d i t ) o r t e r
0001740 m i n a t e w i t h a S T
0001760 O P . T h e f i r s t c
0002000 h o i c e i s p r e f e r r
0002020 e d . T h e f o r m a t
0002040 f o r t e s t n a m e s i
0002060 s \r C h a p # [ - s e c # [ -
0002100 s u b s e c # ] ] - c o m m e n
0002120 t . T E S T \r \r ( D O - A L L -
0002140 T E S T S & k e y ( r e s u
0002160 l t s * t e s t - b a t c h -
0002200 r e s u l t s * ) \r \t \t \t \t
0002220 ( p a t t e r n * t e s
0002240 t - f i l e - p a t t e r n * )
0002260 \r \t \t \t \t ( s y s o u
0002300 t - t y p e n i l ) ) \r R u n
0002320 s a l l t e s t s i n f
0002340 i l e s t h a t m a t c h
0002360 p a t t e r n , p r i n t i n
0002400 g t h e r e s u l t s t o
0002420 a n e w v e r s i o n o
0002440 f r e s u l t s . T h e h
0002460 e a d o f t h e r e s u l
0002500 t s f i l e i s a m e s
0002520 s a g e o f t h e d a t e
0002540 a n d t i m e t h e t e
0002560 s t s a r e b e i n g r u
0002600 n a n d t h e M A K E S Y
0002620 S D A T E o f t h e s y s
0002640 o u t ; i f s y s o u t - t
0002660 y p e i s s u p p l i e d ,
0002700 a l i n e f o r i t g
0002720 o e s o u t t o o . \r \r T E
0002740 S T - S E T Q , T E S T - D E
0002760 F U N , T E S T - D E F M A C
0003000 R O \r T h e s e w o r k l i
0003020 k e S E T Q , D E F U N ,
0003040 a n d D E F M A C R O , e x
0003060 c e p t t h a t i f t h e
0003100 y a r e e x e c u t e d w
0003120 i t h i n a D O - T E S T -
0003140 G R O U P , t h e i r e f f
0003160 e c t s a r e m a n u a l l
0003200 y u n d o n e ( o l d v a
0003220 l u e s a r e s a v e d a
0003240 n d t h e n r e s t o r e d
0003260 ) u p o n l e a v i n g t
0003300 h e D O - T E S T - G R O U P
0003320 . U s e t h e s e i n :
0003340 B E F O R E f o r m s t h a
0003360 t a w h o l e g r o u p
0003400 o f D O - T E S T s w a n t
0003420 t o s e e . D O N ' T u
0003440 s e T E S T - S E T Q o n
0003460 l o c a l l y - b o u n d v a
0003500 r i a b l e s . \r \r R e l e v a
0003520 n t v a r i a b l e s : \r \r *
0003540 T E S T - M O D E * \r \t D e f
0003560 a u l t i s : b a t c h ,
0003600 w h i c h m e a n s t o r
0003620 e p o r t e r r o r s o n
0003640 * T E S T - S T R E A M * .
0003660 O t h e r v a l u e i s :
0003700 i n t e r a c t i v e w h i c
0003720 h m e a n s t o p r o d u
0003740 c e a b r e a k w i n d o
0003760 w . \r * T E S T - B A T C H - R
0004000 E S U L T S * \r \t D e f a u l t
0004020 s t o " { e r i s } < l i s
0004040 p c o r e > c m l > t e s t > t
0004060 e s t - r e s u l t s " \r * T E
0004100 S T - F I L E - P A T T E R N *
0004120 \r \t D e f a u l t s t o " {
0004140 e r i s } < l i s p c o r e > c
0004160 m l > t e s t > * . t e s t ; "
0004200 w h i c h r u n s a l l
0004220 t h e i n t e r n a l t e s
0004240 t s . \r * T E S T - C O M P I L
0004260 E * \r \t I f t h i s s w i t
0004300 c h i s n o n - n i l , D
0004320 O - T E S T c o m p i l e s
0004340 i t s f o r m s b e f o r e
0004360 t e s t i n g t h e m . T
0004400 h i s w i l l b e m o r e
0004420 u s e f u l l a t e r w h
0004440 e n t h e r e a l c o m p
0004460 i l e r a n d r e a l u n
0004500 w i n d e r c o m e o n l
0004520 i n e . \r \r O p t i o n s t o
0004540 d o - t e s t - g r o u p . \r
0004560 \r : b e f o r e \t a l l o w s
0004600 f o r a s e t u p f o r
0004620 m f o r a g r o u p o f
0004640 t e s t s . \r : a f t e r \t
0004660 a l l o w s a f o r m t o
0004700 b e r u n a f t e r t h
0004720 e t e s t s w i t h o u t
0004740 a f f e c t i n g r e s u l t
0004760 s . \r \r P l e a s e f e e l
0005000 f r e e t o s u g g e s t
0005020 , i m p l e m e n t a n d *
0005040 d o c u m e n t * o t h e r s
0005060 . S u g g e s t i o n s :
0005100 e v a l / c o m p i l e , a
0005120 f t e r , s i g n a l s - t o
0005140 - c a t c h , e t c . \r \r G r
0005160 e g \0 \0 \0 \0 \0 004 \0 003 \0 030 \0 \n T I
0005200 M E S R O M A N \0 \f \0 \0 \0 \0 \0 \0
0005220 001 \0 \0 030 \0 \n T I M E S R O M A N
0005240 \0 \f \0 \0 \0 \0 \0 \0 002 \0 \0 030 \0 \n T I
0005260 M E S R O M A N \0 \f \0 \0 \0 \0 \0 \0
0005300 \0 \0 \0 \0 \0 323 \0 \0 \0 \0 003 \0 \0 \0 \n \0
0005320 \0 \0 \0 001 \0 \0 \0 037 \0 \0 \0 \0 003 \0 \0 \0
0005340 004 \0 \0 \0 \0 001 \0 \0 \0 034 \0 \0 \0 \0 003 \0
0005360 \0 \0 004 \0 \0 \0 \0 001 \0 \0 001 4 \0 \0 \0 \0
0005400 003 \0 \0 \0 \f \0 \0 \0 \0 001 \0 \0 \0 V \0 \0
0005420 \0 \0 003 \0 \0 \0 \v \0 \0 \0 \0 001 \0 \0 \0 8
0005440 \0 \0 \0 \0 003 \0 \0 \0 005 \0 \0 \0 \0 001 \0 \0
0005460 001 362 \0 \0 \0 \0 003 \0 \0 \0 \a \0 \0 \0 \0 001
0005500 \0 \0 \0 + \0 \0 \0 \0 003 \0 \0 \0 \a \0 \0 \0
0005520 \0 001 \0 \0 \0 177 \0 \0 \0 \0 003 \0 \0 \0 \v \0
0005540 \0 \0 \0 001 \0 \0 001 227 \0 \0 \0 \0 003 \0 \0 \0
0005560 024 \0 \0 \0 \0 002 \0 \0 001 370 \0 \0 \0 \0 003 \0
0005600 \0 \0 032 \0 \0 \0 \0 002 \0 \0 001 002 \0 \0 \0 \0
0005620 003 \0 \0 \n r \0 027 z 272
0005631