Return to mail_basic_alt3-win32.phpt CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / php / ext / standard / tests / mail

Annotation of embedaddon/php/ext/standard/tests/mail/mail_basic_alt3-win32.phpt, revision 1.1.1.1

1.1       misho       1: --TEST--
                      2: Test mail() function : basic functionality 
                      3: --SKIPIF--
                      4: <?php 
                      5: if( substr(PHP_OS, 0, 3) != 'WIN' ) {
                      6:    die('skip...Windows only test');
                      7: }
                      8: 
                      9: require_once(dirname(__FILE__).'/mail_skipif.inc');
                     10: ?>
                     11: --INI--
                     12: max_execution_time = 120
                     13: --FILE--
                     14: <?php
                     15: /* Prototype  : int mail(string to, string subject, string message [, string additional_headers [, string additional_parameters]])
                     16:  * Description: Send an email message 
                     17:  * Source code: ext/standard/mail.c
                     18:  * Alias to functions: 
                     19:  */
                     20: 
                     21: error_reporting(E_ALL & ~E_STRICT);
                     22: 
                     23: echo "*** Testing mail() : basic functionality ***\n";
                     24: require_once(dirname(__FILE__).'/mail_include.inc');
                     25: $subject_prefix = "!**PHPT**!";
                     26: 
                     27: $to = "$username";
                     28: $subject = "$subject_prefix: Basic PHPT test for mail() function";
                     29: $message = <<<HERE
                     30: Description
                     31: bool mail ( string \$to , string \$subject , string \$message [, string \$additional_headers [, string \$additional_parameters]] )
                     32: Send an email message
                     33: HERE;
                     34: 
                     35: $extra_headers = "FRom: user@company.com";
                     36: 
                     37: $res = mail($to, $subject, $message, $extra_headers);
                     38: 
                     39: if ($res !== true) {
                     40:        exit("TEST FAILED : Unable to send test email\n"); 
                     41: } else {
                     42:        echo "Msg sent OK\n";
                     43: }
                     44: 
                     45: // Search for email message on the mail server using imap.
                     46: $imap_stream = imap_open($default_mailbox, $username, $password);
                     47: if ($imap_stream === false) {
                     48:        echo "Cannot connect to IMAP server $server: " . imap_last_error() . "\n";
                     49:        return false;
                     50: }      
                     51: 
                     52: $found = false;
                     53: $repeat_count = 20; // we will repeat a max of 20 times 
                     54: while (!$found && $repeat_count > 0) {
                     55: 
                     56:        // sleep for a while to allow msg to be delivered
                     57:        sleep(1);
                     58: 
                     59:        $current_msg_count = imap_check($imap_stream)->Nmsgs;
                     60: 
                     61:        // Iterate over recent msgs to find the one we sent above
                     62:        for ($i = 1; $i <= $current_msg_count; $i++) {
                     63:                // get hdr details
                     64:                $hdr = imap_headerinfo($imap_stream, $i);  
                     65: 
                     66:                if (substr($hdr->Subject, 0 , strlen($subject_prefix)) == $subject_prefix) {
                     67:                        echo "Id of msg just sent is $i\n"; 
                     68:                        echo ".. delete it\n"; 
                     69:                        imap_delete($imap_stream, $i);
                     70:                        $found = true;
                     71:                        break; 
                     72:                }
                     73:        }
                     74:        
                     75:        $repeat_count -= 1;
                     76: }
                     77: 
                     78: if (!$found) { 
                     79:        echo "TEST FAILED: email not delivered\n"; 
                     80: } else {
                     81:        echo "TEST PASSED: Msgs sent and deleted OK\n";
                     82: }
                     83: 
                     84: imap_close($imap_stream, CL_EXPUNGE);
                     85: ?>
                     86: ===Done===
                     87: --EXPECTF--
                     88: *** Testing mail() : basic functionality ***
                     89: Msg sent OK
                     90: Id of msg just sent is %d
                     91: .. delete it
                     92: TEST PASSED: Msgs sent and deleted OK
                     93: ===Done===