regress: more work on remote-fd test

[bacula/bacula] / regress / scripts / functions.pm

diff --git a/regress/scripts/functions.pm b/regress/scripts/functions.pm
index 28e01215eff3f7382b19325e1da469ebf5108958..a9774a5af1a277065aac5e538e049517e76f8a9a 100644 (file)
--- a/regress/scripts/functions.pm
+++ b/regress/scripts/functions.pm
@@ -33,7 +33,6 @@ use strict;
 =cut
 
 package scripts::functions;
-use File::Copy;
 # Export all functions needed to be used by a simple 
 # perl -Mscripts::functions -e '' script
 use Exporter;
@@ -625,6 +624,10 @@ Messages {
     # create a hardlink
     link("test.sh", "link-test.sh");
 
+    # create long filename
+    mkdir("b" x 255) or print "can't create long dir $!\n";
+    copy("test.sh", ("b" x 255) . '/' . ("a" x 255)) or print "can't create long dir $!\n";
+
     # play with some symlinks
     symlink("test.sh", "sym-test.sh");
     symlink("$REMOTE_FILE/save/test.sh", "sym-abs-test.sh");