<div dir="ltr"><meta charset="utf-8">Hello John,<div><br></div><div>I have the same test for all the files.<div><br></div><div>Thanks</div><div>Colum</div><br><div class="gmail_quote">On Tue, Sep 28, 2010 at 9:48 PM, John Clements <span dir="ltr">&lt;<a href="mailto:clements@brinckerhoff.org">clements@brinckerhoff.org</a>&gt;</span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div class="im"><br>
On Sep 28, 2010, at 5:27 PM, A Z wrote:<br>
<br>
&gt; Hello,<br>
&gt;<br>
&gt; Can anyone please tell me how to process all the files in a directory.<br>
&gt;<br>
&gt; This is what I am doing:<br>
&gt;<br>
&gt; (check-progs (directory-list &quot;/home/racket/progs&quot;))<br>
&gt;<br>
&gt; (define (check-progs flist)<br>
&gt;   (if(list? flist)<br>
&gt;      (if(null? (cdr flist))<br>
&gt;         &#39;()<br>
&gt;         (check-progs (cdr flist)))<br>
&gt;      (process (simple-form-path (car flist)))))<br>
&gt;<br>
&gt;<br>
&gt; (define (process path)<br>
&gt;   (local-require path)<br>
&gt;   (local-require rackunit)<br>
&gt;   (check-equal? (twice 2) 4)<br>
&gt;<br>
<br>
</div>Hmm... perhaps the first question is this: usually, you have different tests for each file.  Is that not true for you?<br>
<font color="#888888"><br>
John Clements<br>
<br>
</font></blockquote></div><br></div></div>