MyFirstUDRKit/test/testudrkit-tests.dml

set stats on;
set bail off;
select * from test_div;


set stats off;
set bail on;

select FLAGGED (190, 0) from rdb$database;

select FLAGGED (191, 0) from rdb$database;

commit;


execute procedure load_blob(1);
execute procedure load_blob(2);
execute procedure load_blob(3);
execute procedure load_blob(4);
execute procedure load_blob(5);
execute procedure load_blob(6);
commit;

-- Note that we truncate the output here to fit the console better
select cast ( left(description,16) as varchar(16) ) as DESCRIPTION
 , file_type
 , cast (left(source_file,32)  as varchar(32)) as source_file
 , source_status
 , cast (left(target_file,32)  as varchar(32)) as target_file
 , target_status
 , target_bytes
from test_blobs;
commit;

set term ^;
shell
  if [[ ! -d /tmp/testudrkit ]]; then
		mkdir --verbose /tmp/testudrkit
	fi
  ls /tmp/testudrkit
^
set term ;^

execute procedure save_blob(1, '/tmp/testudrkit/fb.conf' );
execute procedure save_blob(2, '/tmp/testudrkit/fb.log' );
execute procedure save_blob(3, '/tmp/testudrkit/timezoneTypes.res' );
execute procedure save_blob(4, '/tmp/testudrkit/zoneinfo64.res' );
execute procedure save_blob(5, '/tmp/testudrkit/libib_util.so' );
execute procedure save_blob(6, '/tmp/testudrkit/libudr_engine.so' );
commit;

select cast ( left(description,16) as varchar(16) ) as DESCRIPTION
 , file_type
 , cast (left(source_file,32)  as varchar(32)) as source_file
 , source_status
 , cast (left(target_file,32)  as varchar(32)) as target_file
 , target_status
 , cast (target_bytes as varchar(16) ) as target_bytes
from test_blobs;
commit;