CPAN::Groonga

);
	$test_emails->{ $email } = $is_valid;
}
my $test_emails_count = scalar( keys %$test_emails );
isnt(
	$test_emails_count,
	0,
	'Find test emails.'
);

# Make sure we have a mix of valid and invalid

t_emails );
isnt(
	$valid_emails_count,
	0,
	'Valid emails exist in the list of test emails.',
);
isnt(
	$test_emails_count - $valid_emails_count,
	0,
	'Invalid emails exist in the list of test emails

_ok(
	sub
	{
		$response_data = $exact_target->version_info();
	},
	'Retrieve version info.',
);

isnt(
	$response_data,
	undef,
	'Response is not empty.',
) || diag( explain( $response_data ) );

my 

ds->[$1] if $list_id =~ /\[test(\d+)\]/;
	}

	$test_list_subscriptions->{ $email } = \@list_id;
}
isnt(
	scalar( keys %$test_list_subscriptions ),
	0,
	'Find test emails.'
);

# Create an object to co

ds->[$1] if $list_id =~ /\[test(\d+)\]/;
	}

	$test_list_subscriptions->{ $email } = \@list_id;
}
isnt(
	scalar( keys %$test_list_subscriptions ),
	0,
	'Find test emails.'
);

# Create an object to co

( $line ) || substr( $line, 0, 1 ) eq '#' || $line !~ /\w/;
	push( @$emails_to_delete, $line );
}
isnt(
	scalar( @$emails_to_delete ),
	0,
	'Find emails to delete.'
);

# Create an object to communica