use Test::Harness qw( runtests );
use FindBin;
use lib ".test/lib/";
use XML::Comma;
my $dir = $FindBin::Bin;
chdir $dir;
print "--- unit tests from t/ directory --- \n";
runtests (
't/aaa_test_setup.t',
't/bootstrap.t',
't/collection.t',
't/decorator.t',
't/document_hooks.t',
't/index_only.t',
't/indexing.t',
't/introspection.t',
't/multi_store_doctype.t',
't/order.t',
't/par_def.t',
't/parser.t',
't/read_only.t',
't/storage.t',
't/timestamp.t',
't/util.t',
't/validation.t',
't/virtual_element.t',
't/zzz_test_cleanup.t',
);
print "---\n\n";
# print "--- story functional tests -- \n";
# runtests qw( functional_test/story-test.pl );
# print "---\n\n";