[Http-webtest-commits] HTTP-WebTest/lib/HTTP/WebTest Cookbook.pod,1.15,1.16

[Ilya M. <m_...@us...>]

Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest
In directory usw-pr-cvs1:/tmp/cvs-serv32316/lib/HTTP/WebTest

Modified Files:
	Cookbook.pod 
Log Message:
Extended 'User-Defined Tests' example


Index: Cookbook.pod
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Cookbook.pod,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** Cookbook.pod	21 Jun 2002 10:51:54 -0000	1.15
--- Cookbook.pod	22 Aug 2002 08:36:50 -0000	1.16
***************
*** 151,157 ****
  
      # load HTTP::WebTest::Plugin::Hooks module which provides test
!     # parameter 'on_response'
      plugins = ( ::Hooks )
  
      ....
  
--- 151,168 ----
  
      # load HTTP::WebTest::Plugin::Hooks module which provides test
!     # parameters 'on_start', 'on_finish' and 'on_response'
      plugins = ( ::Hooks )
  
+     on_start = {
+         # initialize a database handle used later in the tests
+         require DBI;
+         $dbh = DBI->connect('dbi:mysql:test', 'login', 'password');
+     }
+ 
+     on_finish = {
+         # disconnect from the database
+         $dbh->disconnect;
+     }
+ 
      ....
  
***************
*** 163,168 ****
          # define check
          on_response = {
!             # it is assumed that $Test::dbh is database handler
!             my $has_record = $Test::dbh->selectrow_array(
                                   'SELECT COUNT(*) FROM USERS ' .
                                   'WHERE NAME = ?',
--- 174,178 ----
          # define check
          on_response = {
!             my $has_record = $dbh->selectrow_array(
                                   'SELECT COUNT(*) FROM USERS ' .
                                   'WHERE NAME = ?',