test/dos/setenv.c

   1 /*
   2     Copyright © 1995-2015, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <string.h>
   7 #include <stdio.h>
   8 #include <proto/dos.h>
   9
  10 static void testvalue(CONST_STRPTR var, STRPTR expval, ULONG explen,
  11     BOOL expnull, LONG cnt)
  12 {
  13     TEXT buffer[10];
  14     LONG len;
  15     struct LocalVar *lv;
  16
  17     if ((len = GetVar(var, buffer, sizeof(buffer), 0)) < 0)
  18         printf("test %d ERROR getvar %d\n", (int)cnt, (int)len);
  19     else
  20         printf("test %d getvar '%s'\n", (int)cnt, buffer);
  21     if ((lv = FindVar(var, 0)) == NULL)
  22         printf("test %d ERROR findvar\n", (int)cnt);
  23     else
  24         printf("test %d findvar lv_Value=%p, lv_Len=%d\n", (int)cnt,
  25             lv->lv_Value, (int)lv->lv_Len);
  26     if (lv->lv_Len != explen)
  27         printf("test %d ERROR lv_Len, expected %d, found %d\n", (int)cnt,
  28             (int)explen, (int)lv->lv_Len);
  29     if (expnull && lv->lv_Value != NULL)
  30         printf("test %d ERROR lv_Value expected NULL, found %p\n", (int)cnt,
  31             lv->lv_Value);
  32
  33     if (!expnull && lv->lv_Value == NULL)
  34         printf("test %d ERROR lv_Value expected not NULL, found %p\n",
  35             (int)cnt, lv->lv_Value);
  36 }
  37
  38 int main(void)
  39 {
  40     CONST_STRPTR var = "abc";
  41     STRPTR val = "cde";
  42     LONG cnt = 1;
  43
  44     /* Behavior validated with OS3.x */
  45
  46     printf("test %d setvar '%s'\n", (int)cnt, val);
  47     if (SetVar(var, val, strlen(val), 0) == DOSFALSE)
  48         printf("error setvar\n");
  49     testvalue(var, val, 3, FALSE, cnt++);
  50
  51     val = "";
  52     printf("test %d setvar '%s'\n", (int)cnt, val);
  53     if (SetVar(var, val, strlen(val), 0) == DOSFALSE)
  54         printf("error setvar\n");
  55     testvalue(var, val, 0, TRUE, cnt++);
  56
  57     val = "abcd";
  58     printf("test %d setvar '%s'\n", (int)cnt, val);
  59     if (SetVar(var, val, strlen(val), 0) == DOSFALSE)
  60         printf("error setvar\n");
  61     testvalue(var, val, 4, FALSE, cnt++);
  62
  63     val = "";
  64     printf("test %d setvar '%s'\n", (int)cnt, val);
  65     if (SetVar(var, val, strlen(val), 0) == DOSFALSE)
  66         printf("error setvar\n");
  67     testvalue(var, val, 0, TRUE, cnt++);
  68
  69     val = "";
  70     printf("test %d setvar '%s'\n", (int)cnt, val);
  71     if (SetVar(var, val, strlen(val), 0) == DOSFALSE)
  72         printf("error setvar\n");
  73     testvalue(var, val, 0, TRUE, cnt++);
  74
  75     return 0;
  76 }