BDD_example.sql

-- Simple package with BDD
CREATE OR REPLACE PACKAGE simple_package IS
  --
  PROCEDURE BDD_example (
    BDD ARRAY
  );
END;
/
CREATE OR REPLACE PACKAGE BODY simple_package IS
  PROCEDURE BDD_example (
    BDD ARRAY
  ) IS
  BEGIN
    DBMS_OUTPUT.ENABLE(buffer_size => NULL);
    FOR line IN 1..BDD.COUNT LOOP
      DBMS_OUTPUT.put_Line('Fail '||BDD(line)); -- TODO
      DBMS_OUTPUT.put_Line('  Ok '||BDD(line)); -- TODO
    END LOOP;
    DBMS_OUTPUT.put_Line('');
  END;
END;
/

BDD_lv.sql

DECLARE
  BDD ARRAY := ARRAY();
BEGIN
  BDD.EXTEND(1);BDD(BDD.COUNT) := '*Funkcionalitāte:* simple_package';
  BDD.EXTEND(1);BDD(BDD.COUNT) := '  *Lai* ...';
  BDD.EXTEND(1);BDD(BDD.COUNT) := '  *Kā* ...';
  BDD.EXTEND(1);BDD(BDD.COUNT) := '  *Es grību* ...';
  BDD.EXTEND(1);BDD(BDD.COUNT) := '  *Scenārijs:* BDD_example';
  BDD.EXTEND(1);BDD(BDD.COUNT) := '    *Kad* ...';
  BDD.EXTEND(1);BDD(BDD.COUNT) := '    *Un* ...';
  BDD.EXTEND(1);BDD(BDD.COUNT) := '    *Ja* ...';
  BDD.EXTEND(1);BDD(BDD.COUNT) := '    *Tad* ...';
  cucumber.parse(BDD);
END;
/

cucumber.sql

-- Behaviour Driven Development (BDD) --
----------------------------------------
CREATE OR REPLACE TYPE ARRAY AS TABLE OF CLOB;
/
CREATE OR REPLACE PACKAGE cucumber IS
  --
  PROCEDURE parse (
    BDD ARRAY
  );
END;
/
CREATE OR REPLACE PACKAGE BODY cucumber IS
  -- cucomber.test(ARRAY)
  PROCEDURE parse (
    BDD ARRAY
  ) IS
  BEGIN
    DBMS_OUTPUT.ENABLE(buffer_size => NULL);
    --FOR line IN 1..BDD.COUNT LOOP
      --Funkcionalitāte.Scenārijs(BDD)
    --END LOOP;
    simple_package.BDD_example(BDD);
  END;
END;
/