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/perid.h>
  10
  11 int main (int argc, char ** argv)
  12 {
  13     struct Library *base1, *base2;
  14     BPTR seglist;
  15
  16     FPuts(Output(), (STRPTR)"Testing peropener.library\n");
  17
  18     base1=OpenLibrary((STRPTR)"peropener.library",0);
  19     base2=OpenLibrary((STRPTR)"peropener.library",0);
  20
  21     FPrintf(Output(), (STRPTR)"base1=%lx, base2=%lx\n", base1, base2);
  22
  23     if (base1 != NULL)
  24         CloseLibrary(base1);
  25     if (base2 != NULL)
  26         CloseLibrary(base2);
  27
  28     FPuts(Output(), (STRPTR)"\nTesting perid.library\n");
  29
  30     base1=OpenLibrary((STRPTR)"perid.library",0);
  31     base2=OpenLibrary((STRPTR)"perid.library",0);
  32
  33     FPrintf(Output(), (STRPTR)"base1=%lx, base2=%lx\n", base1, base2);
  34
  35     seglist = LoadSeg((CONST_STRPTR)"peropenertest_child");
  36     if (seglist != (BPTR)NULL)
  37     {
  38         RunCommand(seglist, 10*1024, "\n", -1);
  39         UnLoadSeg(seglist);
  40     }
  41     else
  42     {
  43         FPrintf(Output(), (STRPTR)"Failed to load peropenertest_child\n");
  44     }
  45
  46     if (base1 != NULL)
  47         CloseLibrary(base1);
  48     if (base2 != NULL)
  49         CloseLibrary(base2);
  50
  51     Flush (Output ());
  52
  53     return 0;
  54 }