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: %s\n",
  33            (PeropenerGetValue() == 2) ? "OK" : "FAIL!"
  34     );
  35
  36     /* Check value for base2 */
  37     PeropenerBase = base1;
  38     Printf((STRPTR)"Checking value for base1: %s\n",
  39            (PeropenerGetValue() == 1) ? "OK" : "FAIL!"
  40     );
  41
  42     FPrintf(Output(), (STRPTR)"base1=%lx, base2=%lx\n", base1, base2);
  43
  44     if (base1 != NULL)
  45         CloseLibrary(base1);
  46     if (base2 != NULL)
  47         CloseLibrary(base2);
  48
  49     FPuts(Output(), (STRPTR)"\nTesting pertask.library\n");
  50
  51     base1=OpenLibrary((STRPTR)"pertask.library",0);
  52     base2=OpenLibrary((STRPTR)"pertask.library",0);
  53
  54     FPrintf(Output(), (STRPTR)"base1=%lx, base2=%lx\n", base1, base2);
  55
  56     seglist = LoadSeg((CONST_STRPTR)"peropenertest_child");
  57     if (seglist != (BPTR)NULL)
  58     {
  59         SetProgramName("peropenertest_child");
  60         RunCommand(seglist, 10*1024, "\n", 1);
  61         UnLoadSeg(seglist);
  62     }
  63     else
  64     {
  65         FPrintf(Output(), (STRPTR)"Failed to load peropenertest_child\n");
  66     }
  67
  68     if (base1 != NULL)
  69         CloseLibrary(base1);
  70     if (base2 != NULL)
  71         CloseLibrary(base2);
  72
  73     Flush (Output ());
  74
  75     return 0;
  76 }