1 files changed, 14 insertions, 0 deletions
diff --git a/t/dosftp.t b/t/dosftp.t
new file mode 100644
index 0000000..b273d2d
--- /dev/null
+++ b/t/dosftp.t
@@ -0,0 +1,14 @@
+use Test;
+plan tests => 4;
+
+use File::Listing ('parse_dir');
+
+$list = parse_dir(<<EOT, undef, 'dosftp');
+02-05-96  10:48AM                 1415 src.slf
+09-10-96  09:18AM       <DIR>          sl_util
+EOT
+
+ok @$list, 2;
+ok $list->[0][0], "src.slf";
+ok $list->[0][1], "f";
+ok $list->[1][1], "d";