Set Serveroutput On Size Unlimited format truncated

set echo off

@@ut_exampletest.pks

@@ut_exampletest.pkb

@@ut_exampletest2.pks

@@ut_exampletest2.pkb

declare

suite ut_test_suite;

testtoexecute ut_test;

test_item ut_test;

assert ut_assert_result;

suite := ut_test_suite(a_suite_name => 'Test Suite Name' /*,a_items => ut_test_objects_list()*/);

testtoexecute := ut_test(a_object_name => 'ut_exampletest'

,a_test_procedure => 'ut_exAmpletest'

,a_setup_procedure => 'Setup'

,a_teardown_procedure => 'tEardown');

suite.add_item(testtoexecute);

testtoexecute := ut_test(a_object_name => 'UT_EXAMPLETEST2'

,a_test_procedure => 'UT_EXAMPLETEST'

,a_setup_procedure => 'SETUP'

,a_teardown_procedure => 'TEARDOWN');

suite.add_item(testtoexecute);

suite.do_execute;

-- No reporter used in this example so outputing the results manually.

for test_idx in suite.items.first .. suite.items.last loop

test_item := treat(suite.items(test_idx) as ut_test);

dbms_output.put_line('---------------------------------------------------');

dbms_output.put_line('Test:' || test_item.test.form_name);

dbms_output.put_line('Result: ' || test_item.result_to_char);

dbms_output.put_line('Assert Results:');

for i in test_item.items.first .. test_item.items.last loop

assert := treat(test_item.items(i) as ut_assert_result);

dbms_output.put_line(i || ' - result: ' || assert.result_to_char);

dbms_output.put_line(i || ' - Message: ' || assert.message);

end loop;

end loop;

dbms_output.put_line('---------------------------------------------------');

end;

drop package ut_exampletest;

drop package ut_exampletest2;