added test for root overriding automatic detection.

diff --git a/t/engine/setup/basics.t b/t/engine/setup/basics.t
new file mode 100644 (file)
index 0000000..5a27671
--- /dev/null
+++ b/t/engine/setup/basics.t
@@ -0,0 +1,15 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../../lib";
+
+use Test::More tests => 1;
+use Catalyst::Test 'TestApp';
+
+{
+  # Allow overriding automatic root.
+  is(TestApp->config->{root},'/Users/chansen/src/MyApp/root');
+}