test/library/usereltest.c

   1 /*
   2     Copyright © 1995-2008, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <proto/exec.h>
   7 #include <proto/dos.h>
   8 #include <proto/pertask.h>
   9 #include <proto/userel.h>
  10
  11 #include "pertaskvalue.h"
  12
  13 int main (int argc, char ** argv)
  14 {
  15     IPTR vec[3] = {1, 2, 0};
  16
  17     vec[2] = DummyAdd(vec[0], vec[1]);
  18
  19     VPrintf((STRPTR)"%ld+%ld=%ld\n",vec);
  20
  21     vec[0] = (IPTR)PertaskGetParentBase();
  22
  23     VPrintf((STRPTR)"ParentBase = %ld\n",vec);
  24
  25     Printf("104 205 306 407:\n");
  26     DummyPrint4(101, 202, 303, 404);
  27
  28     pertaskvalue = 1;
  29     Printf("\n1 == %ld ?\n", PertaskGetValue());
  30     Printf("1 == %ld ?\n", GetChildValue());
  31
  32     PertaskSetValue(2);
  33     Printf("\n2 == %ld ?\n", GetChildValue());
  34
  35     Flush (Output ());
  36
  37     return 0;
  38 }