Changeset 9656

Timestamp:

12/13/09 02:20:31 (2 years ago)

Author:

szabgab

Message:

[Debugger] put output and error files in temporary directory, randomize port number

Location:

trunk/Debug-Client/t

Files:

• 01-add.t (modified) (3 diffs)
• lib/Debugger.pm (modified) (2 diffs)

trunk/Debug-Client/t/01-add.t

@@ -4 +4 @@
 use t::lib::Debugger;
 
-my $pid = start_script('t/eg/01-add.pl');
+use File::Temp qw(tempdir);
+my $dir = tempdir(CLEANUP => 1);
+
+my $pid = start_script('t/eg/01-add.pl', $dir);
 
 require Test::More;
@@ -14 +17 @@
 plan(tests => 7);
 
+diag("PID $pid");
 my $debugger = start_debugger();
 isa_ok($debugger, 'Debug::Client');
@@ -55 +59 @@
         or diag($debugger->buffer);
 }
+{
+    $debugger->quit;
+    sleep 1;
+}

trunk/Debug-Client/t/lib/Debugger.pm

@@ -10 +10 @@
 
 my $host = 'localhost';
-my $port = 12345;
+my $port = 12345 + int rand(1000);
 
 sub start_script {
-    my ($file) = @_;
+    my ($file, $dir) = @_;
     my $pid = fork();
     die if not defined $pid;
@@ -19 +19 @@
     if (not $pid) {
         local $ENV{PERLDB_OPTS} = "RemotePort=$host:$port";
-        unlink 'out', 'err';
         sleep 1;
-        exec "$^X -d $file > out 2> err";
+        exec "$^X -d $file > $dir/out 2> $dir/err";
         exit 0;
     }