Unit-Testing ist in vielen Programmiersprachen und -umgebungen ein etablierter Standard zur Qualit\u00e4tssicherung in der Software-Entwicklung, nicht jedoch unter PL\/SQL.<\/p>\n
\u00dcber die Gr\u00fcnde daf\u00fcr kann ich nur spekulieren. Vielleicht liegt es daran, dass der Entwickler die Technik (Abfragen, schreibende Zugriffe) nur sehr schwer von der Gesch\u00e4ftslogik trennen kann.<\/p>\n
Letztlich gibt es m.E. keinen wirklichen Grund, Unitests unter PL\/SQL zu unterlassen.<\/p>\n
Im folgenden m\u00f6chte ich die Technik und Tools vorstellen und einen Working-Prototype f\u00fcr einen einfachen PL\/SQL-Unit vorstellen.<\/p>\n
Dazu verwende ich utplsql<\/a>, welches schon seit vielen Jahren Unit-Tests unter Oracle erm\u00f6glicht. In einem ersten Schritt starte ich den Unit-Test per Shell-Script.<\/p>\n In einem weiteren Schritt stelle ich ein Plugin<\/a> f\u00fcr das Build-Tool gradle<\/a> vor, mit dem der Test angestossen wird.<\/p>\n utplsql wird nach Dokumentation installiert und kann anschliessend von allen Usern der Datenbank-Instanz verwendet werden.<\/p>\n Zum Test, ob utplsql richtig funktioniert, folgen wir dem Beispiel auf der utplsql-Homepage und definieren die Funktion<\/p>\n Als Test-Package verwende ich ebenfalls das Beispiel von der utplsql-Seite. Das Testpackage hat den Namen ut_btwnstr und definiert einen Test:<\/p>\n Der Body mit der Test-Implementierung lautet:<\/p>\n Somit haben wir einen Test definiert, den wir aus sqlplus aufrufen:<\/p>\n Wichtig ist hierbei, dass utplsql eigentlich immer als Aufrufparameter den Namen des zu testenden Objekts fordert – also nicht den Namen des Testpackages!<\/p>\n Es gibt sicher noch andere M\u00f6glichkeiten, diesen Aufruf zu formulieren, die Ausgabe ist immer:<\/p>\n Die Testausf\u00fchrung hat geklappt, die Tests waren erfolgreich.<\/p>\n Im n\u00e4chsten Artikel geht es dann um die Integration von utplsql in das Build-Tool Gradle.<\/p>\n","protected":false},"excerpt":{"rendered":" Unit-Testing ist in vielen Programmiersprachen und -umgebungen ein etablierter Standard zur Qualit\u00e4tssicherung in der Software-Entwicklung, nicht jedoch unter PL\/SQL. \u00dcber die Gr\u00fcnde daf\u00fcr kann ich nur spekulieren. Vielleicht liegt es daran, dass der Entwickler die Technik (Abfragen, schreibende Zugriffe) nur sehr schwer von der Gesch\u00e4ftslogik trennen kann. Letztlich gibt es m.E. keinen wirklichen Grund, Unitests … utplsql – Unit-Testing f\u00fcr Oracle<\/span> weiterlesen Installation von utplsql<\/h1>\n
create or replace FUNCTION betwnStr (\r\n string_in IN VARCHAR2,\r\n start_in IN INTEGER,\r\n end_in IN INTEGER\r\n )\r\n RETURN VARCHAR2\r\nIS\r\nBEGIN\r\n RETURN SUBSTR ( string_in,start_in,end_in - start_in + 1);\r\nEND;<\/pre>\n
create or replace PACKAGE ut_betwnstr\r\nIS\r\n PROCEDURE ut_setup;\r\n PROCEDURE ut_teardown;\r\n PROCEDURE ut_BETWNSTR;\r\nEND ut_betwnstr;<\/pre>\n
create or replace PACKAGE BODY ut_betwnstr\r\nIS\r\n PROCEDURE ut_setup IS\r\n BEGIN\r\n NULL;\r\n END;\r\n\r\nPROCEDURE ut_teardown\r\n IS\r\n BEGIN\r\n NULL;\r\n END;\r\n\r\nPROCEDURE ut_betwnstr IS\r\nBEGIN\r\n utAssert.eq ('Typical valid usage',\r\n BETWNSTR( STRING_IN => 'abcdefg',\r\n START_IN => 3,\r\n END_IN => 5),\r\n 'cde');\r\n END;\r\nEND;<\/pre>\nBegin\r\n utplsql.test (\r\n samepackage_in => false,\r\n package_in => 'betwnstr',\r\n prefix_in => 'UT_',\r\n recompile_in => false);\r\nEnd;<\/pre>\n
SQL*Plus: Release 11.2.0.3.0 Production on Thu Mar 17 18:15:43 2016\r\nCopyright (c) 1982, 2012, Oracle.\u00a0 All rights reserved.\r\nConnected to:\r\nOracle Database 12c Enterprise Edition Release 12.1.0.2.0 - 64bit Production\r\nWith the Partitioning, OLAP, Advanced Analytics and Real Application Testing options\r\n.\r\n>\u00a0 \u00a0 SSSS \u00a0 U \u00a0 U \u00a0 CCC \u00a0 \u00a0 CCC \u00a0 EEEEEEE \u00a0 SSSS \u00a0 \u00a0 SSSS\r\n> \u00a0 S S\u00a0 U \u00a0 U\u00a0 C C \u00a0 C C\u00a0 E \u00a0 \u00a0 S \u00a0 S \u00a0 S\u00a0 \u00a0 S\r\n>\u00a0 S \u00a0 \u00a0 U \u00a0 U C \u00a0 C C \u00a0 C E \u00a0 \u00a0 S \u00a0 \u00a0 S\r\n> \u00a0 S \u00a0 \u00a0 U \u00a0 U C \u00a0 \u00a0 C \u00a0 \u00a0 E \u00a0 \u00a0 S \u00a0 \u00a0 \u00a0 S\r\n>\u00a0 \u00a0 SSSS \u00a0 U \u00a0 U C \u00a0 \u00a0 C \u00a0 \u00a0 EEEE\u00a0 \u00a0 \u00a0 SSSS \u00a0 \u00a0 SSSS\r\n> S\u00a0 U \u00a0 U C \u00a0 \u00a0 C \u00a0 \u00a0 E \u00a0 S \u00a0 S\r\n> \u00a0 S U \u00a0 U C \u00a0 C C \u00a0 C E \u00a0 S \u00a0 \u00a0 S\r\n> \u00a0 S S \u00a0 U U \u00a0 C C \u00a0 C C\u00a0 E \u00a0 \u00a0 S \u00a0 S \u00a0 S\u00a0 \u00a0 S\r\n>\u00a0 \u00a0 SSSS \u00a0 \u00a0 UUU \u00a0 \u00a0 CCC \u00a0 \u00a0 CCC \u00a0 EEEEEEE \u00a0 SSSS \u00a0 \u00a0 SSSS\r\n.\r\nSUCCESS: \".betwnstr\"\r\n.\r\n> Individual Test Case Results:\r\n>\r\nSUCCESS - betwnstr.UT_BETWNSTR: EQ \"Typical valid usage\" Expected \"cde\" and got\r\n\"cde\"\r\n>\r\n> Errors recorded in utPLSQL Error Log:\r\n>\r\n> NONE FOUND\r\nPL\/SQL procedure successfully completed.\r\nDisconnected from Oracle Database 12c Enterprise Edition Release 12.1.0.2.0 - 64bit Production\r\nWith the Partitioning, OLAP, Advanced Analytics and Real Application Testing options<\/pre>\n