Thanks to visit codestin.com
Credit goes to github.com

Skip to content
Prev Previous commit
Next Next commit
fixed example
  • Loading branch information
Pazus committed Nov 29, 2016
commit 9624fb765ed292ac539036b334583ccd981e58ef
Original file line number Diff line number Diff line change
Expand Up @@ -19,25 +19,25 @@ declare
testtoexecute ut_test;
reporter ut_reporter;
begin
suite1 := ut_test_suite(a_suite_name => 'Test Suite 1' /*,a_items => ut_test_objects_list()*/);
suite1 := ut_test_suite(a_suite_name => 'Test Suite 1', a_object_name => null /*,a_items => ut_test_objects_list()*/);

testtoexecute := ut_test(a_object_name => 'ut_exampletest'
,a_test_procedure => 'ut_exAmpletest'
,a_test_name => 'Example test1'
,a_test_name => 'Example test1'
,a_setup_procedure => 'Setup'
,a_teardown_procedure => 'tEardown');

suite1.add_item(testtoexecute);

suite2 := ut_test_suite(a_suite_name => 'Test Suite 2' /*,a_items => ut_test_objects_list()*/);
suite2 := ut_test_suite(a_suite_name => 'Test Suite 2', a_object_name => null /*,a_items => ut_test_objects_list()*/);
testtoexecute := ut_test(a_object_name => 'UT_EXAMPLETEST2'
,a_test_procedure => 'UT_EXAMPLETEST'
,a_setup_procedure => 'SETUP'
,a_teardown_procedure => 'TEARDOWN');

suite2.add_item(testtoexecute);

suite_complex := ut_test_suite(a_suite_name => 'Complex Test Suite', a_items => ut_objects_list(suite1, suite2));
suite_complex := ut_test_suite(a_suite_name => 'Complex Test Suite', a_object_name => null, a_items => ut_objects_list(suite1, suite2));

-- provide a reporter to process results
reporter := ut_custom_reporter(a_tab_size => 2);
Expand Down