Return to getservbyport_basic.phpt CVS log

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

Annotation of embedaddon/php/ext/standard/tests/general_functions/getservbyport_basic.phpt, revision 1.1

1.1     ! misho       1: --TEST--
        !             2: Test function getservbyport() by calling it more than or less than its expected arguments
        !             3: --CREDITS--
        !             4: Italian PHP TestFest 2009 Cesena 19-20-21 june
        !             5: Fabio Fabbrucci (fabbrucci@grupporetina.com)
        !             6: Michele Orselli (mo@ideato.it)
        !             7: Simone Gentili (sensorario@gmail.com)
        !             8: --FILE--
        !             9: <?php
        !            10:        if(stristr(PHP_OS, "linux")) $file = "/etc/services";
        !            11:        elseif(stristr(PHP_OS, "Darwin")) $file = "/etc/services";
        !            12:        elseif(substr(PHP_OS,0,3) == "WIN") $file = "C:/WINDOWS/system32/drivers/etc/services";
        !            13:        else die(PHP_OS. " unsupported");
        !            14: 
        !            15:        if(file_exists($file)){
        !            16:                $services = file_get_contents($file);
        !            17:                 $service = getservbyport( 80, "tcp" );
        !            18:                 if(preg_match("/$service\s+80\/tcp/", $services)) {
        !            19:                        echo "PASS\n";
        !            20:                }
        !            21:        }else{
        !            22:                echo "Services file not found in expected location\n";
        !            23:        }
        !            24: ?>
        !            25: --EXPECT--
        !            26: PASS