view release on metacpan or  search on metacpan

t/06-helloworld.t  view on Meta::CPAN

use strict;
use warnings;
use Socket;

#########################

# There is currently a problem under Windows with Date::Manip on
# certain non-english installations of XP (and possible others).
#
# So we set our time zone to CET
BEGIN {
    if(!defined($ENV{TZ})) {
        $ENV{TZ} = "CET";
    }
}

#########################

# change 'tests => 1' to 'tests => last_test_to_print';

use Test::More;
my $hasMemcached;
BEGIN { 
    if ( not $ENV{TEST_SIMPLE} ) {
        my $msg = 'Author test.  Set $ENV{TEST_SIMPLE} to a true value to run.';
        plan( skip_all => $msg );
    }
    plan tests => 10;
    use_ok('Maplat::Web');
    use_ok('Time::HiRes', qw(sleep usleep));
    use_ok('XML::Simple');
    use_ok('WWW::Mechanize');
    use_ok('Maplat::Web::MemCacheSim');

    require("t/testhelpers.pm");
    require("t/Maplat/Web/HelloWorld.pm");
    my $daemon_status = connect_memcached();
    
    if($daemon_status ne "OK") {
        warn("No running memcached - using SIM\n");
        $hasMemcached = 0;
    } else {
        $hasMemcached = 1;
    }
};


our $APPNAME = "Maplat Webtest";
our $VERSION = "0.95";

chdir "t";
my $configfile = "configs/simple.xml";
if(!-f $configfile) {
    fail("Missing config file");
    exit(1);
}

my $config = XMLin($configfile,
                    ForceArray => [ 'module', 'redirect', 'menu', 'view', 'userlevel' ],);

$APPNAME = $config->{appname};
print "Changing application name to '$APPNAME'\n\n";
my $isForking = $config->{server}->{forking} || 0;

my @modlist = @{$config->{module}};
my $webserver = new Maplat::Web($config->{server}->{port});
$webserver->startconfig($config->{server}, 0);

foreach my $module (@modlist) {
    if($module->{pm} eq "MemCache" && !$hasMemcached) {
        $module->{pm} = "MemCacheSim";  # Just change the perl module to use
    }
    $webserver->configure($module->{modname}, $module->{pm}, %{$module->{options}});