Changeset 19721 for lang/perl/App-Hachero

Timestamp:

09/22/08 14:59:59 (5 years ago)

Author:

lopnor

Message:

lang/perl/App-Hachero: now temprary files disappear after the tests.

Location:

lang/perl/App-Hachero/trunk/t/plugin

Files:

• input/01_stdin.t (modified) (2 diffs)
• output/02_hadoop_reduce.t (modified) (1 diff)
• output_line/01_hadoop_map.t (modified) (1 diff)

lang/perl/App-Hachero/trunk/t/plugin/input/01_stdin.t

@@ -10 +10 @@
 {
     my $line = 'hoge';
-    my ($fh, $log) = File::Temp::tempfile;
+    my $fh = File::Temp->new;
     print $fh $line;
     close $fh;
+    my $log = $fh->filename;
 
     my $config = {
@@ -24 +25 @@
     my $app = App::Hachero->new({config => $config});
     $app->run_hook('input');
+    close STDIN;
     is $app->currentline, $line;
 }

lang/perl/App-Hachero/trunk/t/plugin/output/02_hadoop_reduce.t

@@ -16 +16 @@
 };
 
-my $out = File::Temp->new->filename;
+my $fh = File::Temp->new;
+close $fh;
+my $out = $fh->filename;
 local *STDOUT;
 open STDOUT, '>', $out;

lang/perl/App-Hachero/trunk/t/plugin/output_line/01_hadoop_map.t

@@ -19 +19 @@
 };
 
-my $out = File::Temp->new->filename;
+my $fh = File::Temp->new;
+close $fh;
+my $out = $fh->filename;
 
 local *STDOUT;