#!/usr/bin/perl print "1..1\n"; print "ok - tests_recursive called test in subdir\n";