tmp, register, lock are created now

diff --git a/perl/test.pl b/perl/test.pl
index f9b61f5..99bbfbc 100755 (executable)
--- a/perl/test.pl
+++ b/perl/test.pl
@@ -15,6 +15,10 @@ BEGIN {
   use_ok('IDZebra::Data1'); 
 }
 
+mkdir ("demo/tmp");
+mkdir ("demo/register");
+mkdir ("demo/lock");
+
 #Zebra::API::LogFile("a.log");