tst230.mal

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

# a test checking BAT reference counting under various situations
	b:= bat.new(:int,:str);
	i:= bbp.getRefCount(b);
	io.printf("refcount =%d\n",i);
	j:= bbp.getLRefCount(b);
	io.printf("lrefcount =%d\n",j);

	bat.insert(b,1,"bat B");
	io.print(b);
	i:= bbp.getRefCount(b);
	io.printf("second refcount =%d\n",i);
	j:= bbp.getLRefCount(b);
	io.printf("lrefcount =%d\n",j);

	# referenceing through mirroring
	b5:= bat.reverse(b);
	i:= bbp.getRefCount(b);
	io.printf("after reverse assignment refcount =%d\n",i);
	j:= bbp.getLRefCount(b);
	io.printf("lrefcount =%d\n",j);