diff options
| author | Leah Neukirchen <leah@vuxu.org> | 2021-06-25 21:24:47 +0200 |
|---|---|---|
| committer | Leah Neukirchen <leah@vuxu.org> | 2021-06-25 21:28:19 +0200 |
| commit | 32c82229d93471c25eaaaed5e76704893162a125 (patch) | |
| tree | 7f396797c397dac8121fd8742d7eb9aa1cd90b64 /t/dirgen.pl | |
| parent | ca309754c6aba81be4f290279666a68f75306d70 (diff) | |
| download | lr-32c82229d93471c25eaaaed5e76704893162a125.tar.gz lr-32c82229d93471c25eaaaed5e76704893162a125.tar.xz lr-32c82229d93471c25eaaaed5e76704893162a125.zip | |
add partial test suite testsuite
Diffstat (limited to 't/dirgen.pl')
| -rw-r--r-- | t/dirgen.pl | 14 |
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"; + } +} |