Mercurial > hg > rc1
diff vendor/pear/net_smtp/tests/basic.phpt @ 0:1e000243b222
vanilla 1.3.3 distro, I hope
author | Charlie Root |
---|---|
date | Thu, 04 Jan 2018 15:50:29 -0500 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/vendor/pear/net_smtp/tests/basic.phpt Thu Jan 04 15:50:29 2018 -0500 @@ -0,0 +1,42 @@ +--TEST-- +Net_SMTP: Basic Functionality +--SKIPIF-- +<?php if (!@include('config.php')) die("skip\n"); +--FILE-- +<?php + +require_once 'Net/SMTP.php'; +require_once 'config.php'; + +if (! ($smtp = new Net_SMTP(TEST_HOSTNAME, TEST_PORT, TEST_LOCALHOST))) { + die("Unable to instantiate Net_SMTP object\n"); +} + +if (PEAR::isError($e = $smtp->connect())) { + die($e->getMessage() . "\n"); +} + +if (PEAR::isError($e = $smtp->auth(TEST_AUTH_USER, TEST_AUTH_PASS))) { + die("Authentication failure\n"); +} + +if (PEAR::isError($smtp->mailFrom(TEST_FROM))) { + die('Unable to set sender to <' . TEST_FROM . ">\n"); +} + +if (PEAR::isError($res = $smtp->rcptTo(TEST_TO))) { + die('Unable to add recipient <' . TEST_TO . '>: ' . + $res->getMessage() . "\n"); +} + +$headers = 'Subject: ' . TEST_SUBJECT; +if (PEAR::isError($smtp->data(TEST_BODY, $headers))) { + die("Unable to send data\n"); +} + +$smtp->disconnect(); + +echo 'Success!'; + +--EXPECT-- +Success!