TDD con PL/SQL: utPLSQL

Negli ultimi giorni ho rispolverato le mie conoscenze di PL/SQL, per scrivere dei banali web-service LOW REST invocati da un Interactive Voice Responder, che sfruttano alcune succose funzionalità offerte da Oracle DBMS 10g. Sono tra quelli che credono che 9 volte su 10 non sia cosa buona e giusta scrivere della logica di business nel database, ma in questa situazione ho i miei buoni motivi per farlo (e magari ve ne parlo in un altro post).

Ma veniamo all’argomento del post. Come potete vedere dal logo qui a destra, sono test driven, e quando vi prende il virus, non guarite più . Ho quindi deciso di programmare a la TDD anche in PL/SQL, anche per la ruggine che si è posata sulla mia memoria.

Le classi (ops volevo dire i package) che implementano xUnit in PL/SQL si possono trovare qui e la libreria si chiama utPLSQL. Installarlo è semplicissimo:

1. unzip del contenuto del download in una directory
2. dalla directory code dove avete fatto l’unzip lanciate sqlplus sullo schema sul quale volete installare utPLSQL
3. da sqlplus: @ut_i_do_install

utplsql non pone alcun vincolo sullo schema sul quale installarlo, l’importante è che l’utente che poi eseguirà i test abbia le grant necessarie a vederlo. E’ invece buona norma (ma non richiesto) che i test case siano nello stesso schema delle procedure da testare.

Questo è quanto! Come potete vedere, lo script ha creato una serie di package, tutti con prefisso ut.

A questo punto scrivere i nostri test di unità è molto semplice. Supponiamo di voler testare la procedure get_id_addetto_by_cell.

CREATE OR REPLACE PACKAGE test_get_id_addetto_by_cell
	IS
	PROCEDURE ut_setup;
	PROCEDURE ut_teardown;

PROCEDURE ut_get_id_addetto_by_cell;
END test_get_id_addetto_by_cell;
/

Le due procedure ut_setup e ut_teardown sono i nostri setUp e tearDown. La procedure di test deve avere nome con prefisso ut per poter essere riconosciuta come test case.

CREATE OR REPLACE PACKAGE BODY test_get_id_addetto_by_cell IS
	 PROCEDURE ut_setup IS
	 BEGIN
	  INSERT INTO R33_AN_ADDETTI (CID, COGNOME, CELLULARE)
                 VALUES ('E-TEST', 'TDD, '123456');
	 END ut_setup;

	 PROCEDURE ut_teardown IS
	 BEGIN
		ROLLBACK;
	 END ut_teardown;

	 PROCEDURE ut_get_id_addetto_by_cell IS
	 BEGIN
		utAssert.eq (
		   'E-TEST',
		    mobi_query.get_id_addetto_by_cell('123456'),
		   'E-TEST'
		);
	 END ut_get_id_addetto_by_cell;

END test_get_id_addetto_by_cell;
/

A questo punto per lanciare il test (da TOAD o da sqlplus):

• exec utplsql.run(‘test_get_id_addetto_by_cell’)

>    SSSS   U     U   CCC     CCC   EEEEEEE   SSSS     SSSS
  >   S    S  U     U  C   C   C   C  E        S    S   S    S
  >  S        U     U C     C C     C E       S        S
  >   S       U     U C       C       E        S        S
  >    SSSS   U     U C       C       EEEE      SSSS     SSSS
  >        S  U     U C       C       E             S        S
  >         S U     U C     C C     C E              S        S
  >   S    S   U   U   C   C   C   C  E        S    S   S    S
  >    SSSS     UUU     CCC     CCC   EEEEEEE   SSSS     SSSS
  .
   SUCCESS: "test_get_id_formazione_by_cell"
  .
  > Individual Test Case Results:
  >
  SUCCESS - ut_get_id_addetto_by_cell.TEST_RITORNA_CELL: EQ "E-TEST" Expected "E-TEST" and got "E-TEST"

E’ anche possibile creare test suite.

Questo è quanto. Esiste anche un front end grafico per utPLSQL, OUnit, ma non ho avuto modo di provarlo.

TDD rulez!