More standard library test scripts

[perl5.git] / t / lib / checktree.t

diff --git a/t/lib/checktree.t b/t/lib/checktree.t
new file mode 100644 (file)
index 0000000..b5426ca
--- /dev/null
+++ b/t/lib/checktree.t
@@ -0,0 +1,19 @@
+#!./perl
+
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}
+
+print "1..1\n";
+
+use File::CheckTree;
+
+# We assume that we run from the perl "t" directory.
+
+validate q{
+    lib              -d || die
+    lib/checktree.t  -f || die
+};
+
+print "ok 1\n";