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