#!/bin/sh
#  -*- tcl -*-        \
exec tcl "$0" "$@"

set lay "."
for {set i 3} {$i<53} {incr i} {
  if {[clength $i] == 1} { set k 0$i } { set k $i }
  set f [open "test$k" w]
  for {set j 1} {$j<=$i} {incr j} {
     puts $f "Test - line $j"
  }
  close $f
  set cdn laytest$k
  set f [open "~/.tkcdlayout/config" w]
  puts $f "cdn=$cdn"
  puts $f "cddir="
  puts $f "lay=$lay"
  puts $f "mid=$lay/$cdn.x"
  puts $f "lines=test$k"
  puts $f "maxdepth="
  puts $f "exclude="
  puts $f "dironly="
  puts $f "Title=\"Test with $k lines\""
  puts $f "Warn=no"
  puts $f "page=front"
  puts $f "layout_type=taf"
  close $f

 exec >@stdout 2>@stderr "TestLayout"  
 file delete test$k
}

