Dwimmer

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

---
abstract: 'A platform to develop things'
author:
  - 'Gabor Szabo <szabgab@dwimmer.org>'
build_requires:
  ExtUtils::MakeMaker: 6.59
  Test::Deep: 0
  Test::Differences: 0
  Test::More: 0
  Test::WWW::Mechanize: 0
configure_requires:
  ExtUtils::MakeMaker: 6.59
  File::Copy::Recursive: 0
  File::Find::Rule: 0
  File::Spec: 0
distribution_type: module
dynamic_config: 1
generated_by: 'Module::Install version 1.12'

Makefile.PL  view on Meta::CPAN

	$prereq{'Win32::Process'} = 0;
}

foreach my $module ( keys %prereq ) {
	requires $module => $prereq{$module};
}

test_requires 'Test::More'           => 0;
test_requires 'Test::Deep'           => 0;
test_requires 'Test::WWW::Mechanize' => 0;
test_requires 'Test::Differences'    => 0;


homepage 'http://dwimmer.org/';
bugtracker 'http://github.com/szabgab/dwimmer';
repository 'http://github.com/szabgab/dwimmer';

install_script 'script/dwimmer_admin.pl';
install_script 'script/dwimmer_backup.pl';
install_script 'script/dwimmer';

t/010_subscribe.t  view on Meta::CPAN

eval "use Test::More";
eval "use Test::Deep";
require Test::WWW::Mechanize;
plan( skip_all => 'Unsupported OS' ) if not $run;

my $url = "http://localhost:$ENV{DWIMMER_PORT}";

plan( tests => 30 );

require Test::Differences;

use Dwimmer::Client;

my $admin = Dwimmer::Client->new( host => $url );
is_deeply(
	$admin->login( username => 'admin', password => $password ),
	{   success   => 1,
		username  => 'admin',
		userid    => 1,
		logged_in => 1,

t/010_subscribe.t  view on Meta::CPAN

	my $link       = '';
	my $found_code = '';
	if ( $VAR1->{Data}
		=~ s{(http://localhost:$ENV{DWIMMER_PORT}/_dwimmer/validate_email\?listid=1&email=$email\@dwimmer\.org&code=(\w+))}{<% url %>}
		)
	{
		( $link, $found_code ) = ( $1, $2 );
	}

	my $data = delete $VAR1->{Data};
	Test::Differences::eq_or_diff($data, $validate_template, 'validate e-mail data');
	is_deeply_full(
		$VAR1,
		bless(
			{
				'From'    => $from_address,
				'Subject' => "$list_title registration - email validation",
				'To'      => $email . '@dwimmer.org',
			},
			'MIME::Lite'
		),

t/010_subscribe.t  view on Meta::CPAN

	return ( $found_code, $link );
}

sub _check_confirm_mail {
	my $email = shift;

	local $Test::Builder::Level = $Test::Builder::Level + 1;
	my $confirm_mail = read_file( $ENV{DWIMMER_MAIL} );
	eval $confirm_mail;
	my $data = delete $VAR1->{Data};
	Test::Differences::eq_or_diff($data, $confirm_template, 'confirm e-mail data');
	is_deeply_full(
		$VAR1,
		bless(
			{
				'From'    => $from_address,
				'Subject' => "$list_title - Thank you for subscribing",
				'To'      => $email . '@dwimmer.org',
			},
			'MIME::Lite'
		),