Changeset 21790

Timestamp:

10/21/08 17:14:47 (5 years ago)

Author:

yappo

Message:

select_flavor, dialog, stdout, log のテストを書いた

Location:

lang/perl/Module-Setup/trunk/t

Files:

• 010_core/dialog.t (added)
• 010_core/select-flavor.t (added)
• 010_core/stdout-log.t (added)
• 010_core/system.t (added)
• Utils.pm (modified) (3 diffs)

lang/perl/Module-Setup/trunk/t/Utils.pm

@@ -8 +8 @@
 use Module::Setup;
 
+my $stdout = [];
+sub stdout { $stdout }
+
 sub import {
     my $class  = shift;
     my $caller = caller;
+    my %args   = @_;
 
     for my $func (qw/ module_setup stdout dialog default_dialog setup_dir target_dir clear_tempdir flavors_dir template_dir plugins_dir config_file /) {
@@ -19 +23 @@
     strict->import;
     warnings->import;
+
+    unless ($args{without_stdout}) {
+        no warnings 'redefine';
+        *Module::Setup::stdout = sub { push @{ $stdout }, $_[1] };
+    }
 }
 
@@ -55 +64 @@
     $target_dir = undef;
 }
-
-my $stdout = [];
-{
-    no warnings 'redefine';
-    *Module::Setup::stdout = sub { push @{ $stdout }, $_[1] };
-}
-sub stdout { $stdout }
 
 my $context;