Added -forced-filename option to the P::C::Document contstructor.

[gknop/Perl-Critic.git] / t / 08_document.t

diff --git a/t/08_document.t b/t/08_document.t
index c84a5af..10e0186 100644 (file)
--- a/t/08_document.t
+++ b/t/08_document.t
@@ -22,7 +22,7 @@ use Perl::Critic::Utils::DataConversion qw< dor >;
 
 
 use Test::Deep;
-use Test::More tests => 41;
+use Test::More tests => 43;
 
 #-----------------------------------------------------------------------------
 
@@ -185,6 +185,15 @@ sub test_version {
 
 #-----------------------------------------------------------------------------
 
+my $nameless_code = 'use strict';
+my $nameless_doc = Perl::Critic::Document->new( -source => \$nameless_code,
+                                                '-forced-filename' => 'Build.PL' );
+
+is($nameless_doc->filename(), 'Build.PL', 'Got forced filename');
+is($nameless_doc->is_module(), 0, 'Forced name affects module determination');
+
+#-----------------------------------------------------------------------------
+
 # ensure we return true if this test is loaded by
 # t/08_document.t_without_optional_dependencies.t
 1;