test/library/peropenertest.c

   1 /*
   2     Copyright © 2008-2009, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <proto/exec.h>
   7 #include <proto/dos.h>
   8 #include <proto/peropener.h>
   9 #include <proto/pertask.h>
  10
  11 struct Library *PeropenerBase = NULL;
  12
  13 int main (int argc, char ** argv)
  14 {
  15     struct Library *base1, *base2;
  16     BPTR seglist;
  17
  18     FPuts(Output(), (STRPTR)"Testing peropener.library\n");
  19
  20     base1=OpenLibrary((STRPTR)"peropener.library",0);
  21     base2=OpenLibrary((STRPTR)"peropener.library",0);
  22
  23     /* Set value for base1 */
  24     PeropenerBase = base1;
  25     PeropenerSetValue(1);
  26
  27     /* Set value for base2 */
  28     PeropenerBase = base2;
  29     PeropenerSetValue(2);
  30
  31     /* Check value for base2 */
  32     Printf((STRPTR)"Checking value for base2: 2 == %ld %s\n",
  33            PeropenerGetValue(), (PeropenerGetValue() == 2) ? "OK" : "FAIL!"
  34     );
  35
  36     /* Check value for base2 */
  37     PeropenerBase = base1;
  38     PeropenerGetValue();
  39     Printf((STRPTR)"Checking value for base1: 1 == %ld %s\n",
  40            PeropenerGetValue(), (PeropenerGetValue() == 1) ? "OK" : "FAIL!"
  41     );
  42
  43     FPrintf(Output(), (STRPTR)"base1=%lx, base2=%lx\n", base1, base2);
  44
  45     if (base1 != NULL)
  46         CloseLibrary(base1);
  47     if (base2 != NULL)
  48         CloseLibrary(base2);
  49
  50     FPuts(Output(), (STRPTR)"\nTesting pertask.library\n");
  51
  52     base1=OpenLibrary((STRPTR)"pertask.library",0);
  53     base2=OpenLibrary((STRPTR)"pertask.library",0);
  54
  55     FPrintf(Output(), (STRPTR)"base1=%lx, base2=%lx\n", base1, base2);
  56
  57     seglist = LoadSeg((CONST_STRPTR)"peropenertest_child");
  58     if (seglist != (BPTR)NULL)
  59     {
  60         SetProgramName("peropenertest_child");
  61         RunCommand(seglist, 10*1024, "\n", 1);
  62         UnLoadSeg(seglist);
  63     }
  64     else
  65     {
  66         FPrintf(Output(), (STRPTR)"Failed to load peropenertest_child\n");
  67     }
  68
  69     if (base1 != NULL)
  70         CloseLibrary(base1);
  71     if (base2 != NULL)
  72         CloseLibrary(base2);
  73
  74     Flush (Output ());
  75
  76     return 0;
  77 }