packages/language/c/libc/stdlib/v2_0/tests/getenv.c

   1 //=================================================================
   2 //
   3 //        getenv.c
   4 //
   5 //        Testcase for C library getenv()
   6 //
   7 //=================================================================
   8 //####ECOSGPLCOPYRIGHTBEGIN####
   9 // -------------------------------------------
  10 // This file is part of eCos, the Embedded Configurable Operating System.
  11 // Copyright (C) 1998, 1999, 2000, 2001, 2002 Red Hat, Inc.
  12 //
  13 // eCos is free software; you can redistribute it and/or modify it under
  14 // the terms of the GNU General Public License as published by the Free
  15 // Software Foundation; either version 2 or (at your option) any later version.
  16 //
  17 // eCos is distributed in the hope that it will be useful, but WITHOUT ANY
  18 // WARRANTY; without even the implied warranty of MERCHANTABILITY or
  19 // FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  20 // for more details.
  21 //
  22 // You should have received a copy of the GNU General Public License along
  23 // with eCos; if not, write to the Free Software Foundation, Inc.,
  24 // 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
  25 //
  26 // As a special exception, if other files instantiate templates or use macros
  27 // or inline functions from this file, or you compile this file and link it
  28 // with other works to produce a work based on this file, this file does not
  29 // by itself cause the resulting work to be covered by the GNU General Public
  30 // License. However the source code for this file must still be made available
  31 // in accordance with section (3) of the GNU General Public License.
  32 //
  33 // This exception does not invalidate any other reasons why a work based on
  34 // this file might be covered by the GNU General Public License.
  35 //
  36 // Alternative licenses for eCos may be arranged by contacting Red Hat, Inc.
  37 // at http://sources.redhat.com/ecos/ecos-license/
  38 // -------------------------------------------
  39 //####ECOSGPLCOPYRIGHTEND####
  40 //=================================================================
  41 //#####DESCRIPTIONBEGIN####
  42 //
  43 // Author(s):     jlarmour
  44 // Contributors:
  45 // Date:          2000-04-30
  46 // Description:   Contains testcode for C library getenv() function
  47 //
  48 //
  49 //####DESCRIPTIONEND####
  50
  51 // INCLUDES
  52
  53 #include <stdlib.h>                 // Main header for stdlib functions
  54 #include <cyg/infra/testcase.h>     // Testcase API
  55
  56 // GLOBALS
  57
  58 extern char **environ;              // Standard environment definition
  59
  60 // FUNCTIONS
  61
  62 static int
  63 my_strcmp(const char *s1, const char *s2)
  64 {
  65     for ( ; *s1 == *s2 ; s1++,s2++ )
  66     {
  67         if ( *s1 == '\0' )
  68             break;
  69     } // for
  70
  71     return (*s1 - *s2);
  72 } // my_strcmp()
  73
  74 int
  75 main( int argc, char *argv[] )
  76 {
  77     char *str;
  78
  79     char *env1[] = { NULL };
  80     char *env2[] = { "WIBBLE=fred", NULL };
  81     char *env3[] = { "PATH=/usr/local/bin:/usr/bin",
  82                      "HOME=/home/fred",
  83                      "TEST=1234=5678",
  84                      "home=hatstand",
  85                      NULL };
  86
  87     CYG_TEST_INIT();
  88
  89     CYG_TEST_INFO("Starting tests from testcase " __FILE__ " for C "
  90                   "library getenv() function");
  91
  92
  93     // Check 1
  94     str = getenv("ThisIsAVeryUnlikelyName");
  95     CYG_TEST_PASS_FAIL( str==NULL, "Simple getenv() default environ" );
  96
  97     // Check 2
  98     environ = (char **)&env1;
  99     str = getenv("wibble");
 100     CYG_TEST_PASS_FAIL( str==NULL, "Simple getenv() with empty environ" );
 101
 102     // Check 3
 103     environ = (char **)&env2;
 104     str = getenv("WIBBLE");
 105     CYG_TEST_PASS_FAIL( (str != NULL) && !my_strcmp(str, "fred"),
 106                         "Simple getenv()" );
 107
 108     // Check 4
 109     str = getenv("wibble");
 110     CYG_TEST_PASS_FAIL( str==NULL,
 111                         "Simple getenv() for something not in the "
 112                         "environment" );
 113
 114     // Check 5
 115     environ = (char **)&env3;
 116     str = getenv("PATH");
 117     CYG_TEST_PASS_FAIL( (str!= NULL) &&
 118                         !my_strcmp(str,"/usr/local/bin:/usr/bin"),
 119                         "Multiple string environment" );
 120
 121     // Check 6
 122     str = getenv("PATh");
 123     CYG_TEST_PASS_FAIL( str==NULL, "getenv() for something not in the "
 124                         "environment for multiple string environment" );
 125
 126     // Check 7
 127     str = getenv("home");
 128     CYG_TEST_PASS_FAIL( (str != NULL) && !my_strcmp(str, "hatstand"),
 129                         "Case-sensitive environment names" );
 130
 131     // Check 8
 132     str = getenv("TEST");
 133     CYG_TEST_PASS_FAIL( (str != NULL) && !my_strcmp(str, "1234=5678"),
 134                         "environment value containing '='" );
 135
 136 //    CYG_TEST_NA("Testing is not applicable to this configuration");
 137
 138     CYG_TEST_FINISH("Finished tests from testcase " __FILE__ " for C "
 139                     "library getenv() function");
 140
 141 } // main()
 142
 143 // EOF getenv.c