Set Serveroutput On Size Unlimited format truncated

set linesize 10000

set echo off

create or replace package demo_doc_reporter1 is

-- %suite

-- %displayname(Demo of documentation reporter)

-- %test

-- %displayname(A passing test sample)

procedure passing_test;

-- %test

procedure test_without_name;

-- %test

-- %displayname(A failing test exsample)

procedure failing_test;

-- %test

procedure failing_no_name;

-- %test

-- %displayname(repoting exception)

procedure failing_exception_raised;

end;

/

create or replace package body demo_doc_reporter1 is

procedure passing_test is begin null; end;

procedure test_without_name is

begin

ut.expect(1).to_equal(1);

end;

procedure failing_test is

begin

ut.expect(1).to_equal(2);

end;

procedure failing_no_name is

begin

ut.expect(sysdate).to_equal(to_char(sysdate));

end;

procedure failing_exception_raised is

l_date date;

begin

l_date := to_date('abcd');

end;

end;

/

create or replace package demo_doc_reporter2 is

-- %suite

-- %displayname(A suite package without body)

-- %test

-- %displayname(A test)

procedure test1;

-- %test

procedure test2;

end;

/

create or replace package suite_package_without_name is

-- %suite

-- %test

-- %displayname(A passing test sample)

procedure passing_test1;

-- %test

-- %displayname(A passing test sample)

procedure passing_test2;

end;

/

create or replace package body suite_package_without_name is

procedure passing_test1 is begin null; end;

procedure passing_test2 is

begin

ut.expect(1).to_equal(1);

end;

end;

/

begin

ut.run();

end;

/

drop package demo_doc_reporter2;

drop package suite_package_without_name;

drop package demo_doc_reporter1;