Changeset 21775 for lang/perl/Module-Setup

Timestamp:

10/21/08 14:39:16 (5 years ago)

Author:

yappo

Message:

module_setup_dir が見つからなかったら死ぬよ

Location:

lang/perl/Module-Setup/trunk

Files:

• lib/Module/Setup.pm (modified) (1 diff)
• t/010_core/setup_base_dir.t (modified) (2 diffs)

lang/perl/Module-Setup/trunk/lib/Module/Setup.pm

@@ -103 +103 @@
         $path = $self->options->{module_setup_dir} || $ENV{MODULE_SETUP_DIR} || Path::Class::Dir->new(File::HomeDir->my_home, '.module-setup');
     }
+    die 'module_setup directory was not able to be discovered.' unless $path;
 
     $self->{base_dir} = Module::Setup::Path->new($path);

lang/perl/Module-Setup/trunk/t/010_core/setup_base_dir.t

@@ -1 +1 @@
 use t::Utils;
-use Test::More tests => 6;
+use Test::More tests => 7;
 
 my $obj = Module::Setup->new;
@@ -25 +25 @@
     ok -d setup_dir('options');
 };
+
+do {
+    no warnings 'redefine';
+    local *Path::Class::Dir::new = sub {};
+    eval { $obj->setup_base_dir };
+    like $@, qr/module_setup directory was not able to be discovered/;
+};