Navigation Menu

Skip to content

Instantly share code, notes, and snippets.

@taiyoh
Created May 27, 2009 06:58
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save taiyoh/118495 to your computer and use it in GitHub Desktop.
Save taiyoh/118495 to your computer and use it in GitHub Desktop.
diff --git a/lib/Ark/Test.pm b/lib/Ark/Test.pm
index 9ec8f11..4f0eec4 100644
--- a/lib/Ark/Test.pm
+++ b/lib/Ark/Test.pm
@@ -5,6 +5,8 @@ use HTTP::Request;
use HTTP::Engine;
use HTTP::Cookies;
+use YAML qw/Dump/;
+
sub import {
my ($class, $app_class, @rest) = @_;
my $caller = caller;
@@ -31,6 +33,10 @@ sub import {
if ($option{minimal_setup}) {
$app->setup_home;
+ unless ( %{ $app->config } ) {
+ $app->ensure_class_loaded('FindBin');
+ $app->config->{home} = "$FindBin::Bin/..";
+ }
$app->path_to('action.cache')->remove;
my $child = fork;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment