summaryrefslogtreecommitdiff
path: root/lib/ExtUtils/t/VERSION_FROM.t
diff options
context:
space:
mode:
Diffstat (limited to 'lib/ExtUtils/t/VERSION_FROM.t')
-rw-r--r--lib/ExtUtils/t/VERSION_FROM.t37
1 files changed, 37 insertions, 0 deletions
diff --git a/lib/ExtUtils/t/VERSION_FROM.t b/lib/ExtUtils/t/VERSION_FROM.t
new file mode 100644
index 0000000000..4f3655f4ce
--- /dev/null
+++ b/lib/ExtUtils/t/VERSION_FROM.t
@@ -0,0 +1,37 @@
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir 't' if -d 't';
+ @INC = ('../lib', 'lib');
+ }
+ else {
+ unshift @INC, 't/lib';
+ }
+}
+
+chdir 't';
+
+use strict;
+use Test::More tests => 1;
+use MakeMaker::Test::Utils;
+use ExtUtils::MakeMaker;
+use TieOut;
+use File::Path;
+
+perl_lib();
+
+mkdir 'Odd-Version';
+END { chdir File::Spec->updir; rmtree 'Odd-Version' }
+chdir 'Odd-Version';
+
+open(MPL, ">Version") || die $!;
+print MPL "\$VERSION = 0\n";
+close MPL;
+END { unlink 'Version' }
+
+my $stdout = tie *STDOUT, 'TieOut' or die;
+my $mm = WriteMakefile(
+ NAME => 'Version',
+ VERSION_FROM => 'Version'
+);
+
+is( $mm->{VERSION}, 0, 'VERSION_FROM when $VERSION = 0' );