1 files changed, 14 insertions, 0 deletions
diff --git a/t/dirgen.pl b/t/dirgen.pl
new file mode 100644
index 0000000..0431a37
--- /dev/null
+++ b/t/dirgen.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl -w
+use v5.16;
+
+# [fdl]
+while (<>) {
+    if (/^f:(.*?)(?::(\d+))?$/) {
+        my $size = $2 || 0;
+        print "creating file $1 of size $size";
+    } elsif (/^d:(.*)$/) {
+        print "creating dir $1";
+    } elsif (/^l:(.*?):(.*)$/) {
+        print "symlinking $1 -> $2";
+    }
+}