create or replace package test_pkg1 is

  /*
  This is the correct annotation
  */
  -- %suite
  -- %displayname(Name of suite on test_pkg1)
  -- %suitepath(all.globaltests)

  /*
  Such comments are skipped

  test name
  %test1
  %test2(name=123)
    %test3(name2=123,tete=123)
  %test4(name2=123,tete)
  */
  /*
  This procedure is annotated incorrectly as no correct annotations specified
  Procedure is skipped while suite configuration
  */
  --test name
  --%test1
  --%test2
  --%displayname(name=123)
  ----  %test3(name2=123,tete=123)
  ---- asd %test4(name2=123,tete)
  --  t3 t4
  procedure foo;

  -- %test
  -- %displayname(Name of test1)
  -- %beforetest(setup_test1)
  -- %aftertest(teardown_test1)
  procedure test1;

  -- %test
  -- %displayname(Name of test2)
  procedure test2;

  -- %beforeall
  procedure global_setup;

  procedure setup_test1;

  procedure teardown_test1;

  -- %beforeeach
  procedure def_setup;

  -- %aftereach
  procedure def_teardown;

  --%afterall
  procedure global_teardown;

end;
/
create or replace package body test_pkg1 is

  g_val1 number;
  g_val2 number;

  procedure foo is
  begin
    null;
  end;

  procedure test1 is
  begin
    ut.expect(g_val1,'1 equals 1 check').to_equal(1);
  end;

  procedure test2 is
  begin
    ut.expect(g_val2,'2 equals 2 check').to_equal(2);
  end;

  procedure global_setup is
  begin
    dbms_output.put_line('setup procedure of test_pkb1');
  end;

  procedure setup_test1 is
  begin
    g_val1 := 1;
  end;

  procedure teardown_test1 is
  begin
    g_val1 := null;
  end;

  procedure def_setup is
  begin
    g_val2 := 2;
  end;

  procedure def_teardown is
  begin
    g_val2 := null;
  end;

  procedure global_teardown is
  begin
    dbms_output.put_line('global teardown procedure of test_pkb1');
  end;
end test_pkg1;
/