tests for the config( ...->{file} ) option. addresses bug when ->{file} is a dir...

[catagits/Catalyst-Plugin-ConfigLoader.git] / t / lib / TestApp4.pm

diff --git a/t/lib/TestApp4.pm b/t/lib/TestApp4.pm
new file mode 100644 (file)
index 0000000..99fd3df
--- /dev/null
+++ b/t/lib/TestApp4.pm
@@ -0,0 +1,26 @@
+package TestApp4;
+
+use strict;
+use warnings;
+
+use MRO::Compat;
+
+use Catalyst qw/ConfigLoader/;
+
+our $VERSION = '0.01';
+
+__PACKAGE__->config(
+    "Plugin::ConfigLoader" => {
+        file => __PACKAGE__->path_to( "config.d" )
+    }
+);
+
+__PACKAGE__->setup;
+
+sub finalize_config {
+    my $c = shift;
+    $c->config( foo => 'bar4' );
+    $c->next::method( @_ );
+}
+
+1;