#!/home/jj/bin/camilax -n

dlload("./jjdb.solaris.so");
a <- dbopen("_aaa");

dbput(a,<1,2,3>, <1,2,<2,3,4,<3,4,5,{"aaa","bbb"},[12 -> {'a,'b,'c}]>>>);
dbput(a,"1","2");
dbput(a,1,2);

x1 <- dbget(a,1);
x2 <- dbget(a,"1");
x3<- dbget(a,<1,2,3>);

pp(if(x3 == <1,2,<2,3,4,<3,4,5,{"aaa","bbb"},[12 -> {'a,'b,'c}]>>>  /\
      x2 == "2" /\
      x1 == 2 /\
     dbdom(a) == {"1",1,<1,2,3>}
     ) then "ok" else "ERROR: db");

dbclose(a);
quit.