sigil/tests/common-test-driver.exp

#!/usr/bin/env expect

proc collect_modules {arg} {
	global modules
	foreach path [glob $arg] {
		set name [file tail $path]
		file link -s $name $path
		append modules " $name "
	}
}