diff options
Diffstat (limited to 't/06-overwrite.t')
-rw-r--r-- | t/06-overwrite.t | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/t/06-overwrite.t b/t/06-overwrite.t new file mode 100644 index 0000000..62847fe --- /dev/null +++ b/t/06-overwrite.t @@ -0,0 +1,51 @@ +#!/usr/bin/perl +use strict; +use warnings; +use Test::More; +use Test::DZil; +use Test::Version qw( version_ok ); +use Path::Tiny qw( path ); + +my $tzil = Builder->from_config({ dist_root => 'corpus/oDZT' }); + +$tzil->build; + +version_ok( path($tzil->tempdir)->child('build/lib/oDZT.pm')); + +my $lib_0 = $tzil->slurp_file('build/lib/oDZT.pm'); + +# e short for expected files +# ------------------------------------------------------------------- + +my $elib_0 = <<'END LIB8'; +use strict; +use warnings; +package oDZT; +# ABSTRACT: lots of false leads here +<<END +# VERSION +END + +=pod + +# VERSION + +=cut + +our $VERSION = 'v0.1.0'; # VERSION + +BEGIN { our $VERSION= 'v0.1.0'; } # VERSION + +our $FOO = 1; our $VERSION='v0.1.0'; our $BAR = 2; # VERSION + +1; +__END__ + +# VERSION +END LIB8 + +# ------------------------------------------------------------------- + +is ( $lib_0, $elib_0, 'check oDZT.pm' ); + +done_testing; |