#!/usr/bin/perl -w
-# $Id: runtests,v 1.11 2007-06-29 11:47:25 mike Exp $
+# $Id: runtests,v 1.12 2007-07-03 15:53:52 mike Exp $
use IO::File;
use strict;
while (<sections/*>) {
my $sdir = $_;
s@sections/@@;
- next if /^CVS$/ || /^10$/;
+ next if /^CVS$/;
print "testing section $_ - ", read_file("$sdir/name"), "\n";
while (<$sdir/*.cql>) {