use ARDB::Test;

$ARDB::DEBUG = 1;

# $ARDB::LOGPRINT = 1;

use ARDB;

my $ardb = ARDB -> new( "t/home" );

test $ardb;

my $id = 'RePEc:boc:bocode:s369901xxx';

my $record = $ardb -> get_record ($id);

test $record, $record -> type;

$ardb -> put_record ($record);

1;
