test_50.mils

来自「一个内存数据库的源代码这是服务器端还有客户端」· MILS 代码 · 共 29 行

setoid(oid(20000000));
# Selfcontained test of delta operations
module("trans");
var b:=new(int,int);
var bi:=new(int,int);
var bd:=new(int,int);
insert(b,1,2);
insert(b,2,3);
bd:=b.delta();
print(bd);
var a:= b.alpha();
a.print();

#commit the changes and repeat the action
clear(bd);
commit(b);
b.alpha().print();

insert(b,4,5);
delete(b,2,3);
print(b);
bd:=b.delta();
print(bd);
a:= b.alpha();
a.print();
abort(b);
print(b);
quit();