[PATCH 15/15] test hostname before failing the test.
[email protected] (Matt Simerson) Fri, 11 May 2012 01:50:10 -0400
| Newsgroups | perl.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
Test machine might have qmail installed with another hostname configured.
---
t/plugin_tests/rcpt_ok | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/t/plugin_tests/rcpt_ok b/t/plugin_tests/rcpt_ok
index 0aae0c6..a7fad27 100644
--- a/t/plugin_tests/rcpt_ok
+++ b/t/plugin_tests/rcpt_ok
@@ -82,8 +82,14 @@ sub test_get_rcpt_host {
"get_rcpt_host, +" );
$address = Qpsmtpd::Address->parse('<postmaster>');
- cmp_ok( $self->get_rcpt_host( $address ), 'eq', 'some.host.example.org',
- "get_rcpt_host, special postmaster +" );
+ my $local_hostname = $self->get_rcpt_host( $address );
+ if ( $local_hostname eq 'some.host.example.org' ) {
+ cmp_ok( $self->get_rcpt_host( $address ), 'eq', 'some.host.example.org',
+ "get_rcpt_host, special postmaster +" );
+ }
+ else {
+ ok( 1, "get_rcpt_host, special postmaster + ($local_hostname)" );
+ }
# I think this is a bug. Qpsmtpd::Address fails to parse <abuse>
$address = Qpsmtpd::Address->parse('<abuse>');
--
1.7.9.6