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);
commit;

select cast ( description 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
  mkdir --verbose /tmp/testudrkit
  ls /tmp/testudrkit
^
set term ;^

execute procedure save_blob(1, '/tmp/testudrkit/fb.conf' );
execute procedure save_blob(2, '/tmp/testudrkit/fb.log' );
commit;

select cast ( description 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;