# $Id: 02-basic.t,v 1.1 2008/04/10 13:07:17 dk Exp $
use strict;
use Acme::Ukrop;
use Test::More tests => 2;
ÄiÊÓÔ×Ï OCb_TAKE($)
ÔÏ
ÑËÝÏ ($_[0]) ÔÏ
×ÚÁÄ 0;
ÏÔÏÖ ÁÂÏ ÔÏ
×ÚÁÄ 1;
ÏÔÏÖ
ÔÁË ÏÔÏÖ
ok(1 == OCb_TAKE 0);
ok(0 == OCb_TAKE 1);