[Jifty-commit] r7327 - jifty/trunk/t/TestApp-Plugin-SetupWizard/lib/TestApp/Plugin/SetupWizard

[Jifty commits]

Author: sartak
Date: Wed Jul 15 07:13:31 2009
New Revision: 7327

Modified:
   jifty/trunk/t/TestApp-Plugin-SetupWizard/lib/TestApp/Plugin/SetupWizard/Test.pm

Log:
Add a site_config_is test function

Modified: jifty/trunk/t/TestApp-Plugin-SetupWizard/lib/TestApp/Plugin/SetupWizard/Test.pm
==============================================================================
--- jifty/trunk/t/TestApp-Plugin-SetupWizard/lib/TestApp/Plugin/SetupWizard/Test.pm	(original)
+++ jifty/trunk/t/TestApp-Plugin-SetupWizard/lib/TestApp/Plugin/SetupWizard/Test.pm	Wed Jul 15 07:13:31 2009
@@ -8,19 +8,36 @@
 
 use warnings;
 use strict;
+use base 'Exporter';
+
 use Jifty::Test::Dist ();
 use Jifty::Test::WWW::Mechanize ();
 
+our @EXPORT = qw(site_config_is);
+
 sub import {
     my $class = shift;
 
     strict->import;
     warnings->import;
 
+    $class->export_to_level(2);
+
     unshift @_, 'Jifty::Test::Dist';
     my $import = Jifty::Test::Dist->can('import');
     goto $import;
 }
 
+sub site_config_is {
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
+    my $expected = shift;
+    my $name     = shift;
+
+    my $got = eval { Jifty::YAML::LoadFile('etc/site_config.yml') };
+    die $@ if $@ && $@ !~ /Cannot read from/;
+
+    Test::More::is_deeply($got, $expected, $name);
+}
+
 1;