SF.net SVN: ledger-smb:[2518] trunk/t

[..hidden..]

Revision: 2518
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2518&view=rev
Author:   einhverfr
Date:     2009-03-19 19:07:37 +0000 (Thu, 19 Mar 2009)

Log Message:
-----------
New reconciliationt test cases, bugs fixed in lwp test script.

Modified Paths:
--------------
    trunk/t/63-lwp.t
    trunk/t/data/62-request-data

Modified: trunk/t/63-lwp.t
===================================================================
--- trunk/t/63-lwp.t	2009-03-19 18:22:10 UTC (rev 2517)
+++ trunk/t/63-lwp.t	2009-03-19 19:07:37 UTC (rev 2518)
@@ -9,6 +9,7 @@
 	plan 'no_plan';
 }
 
+
 my $host = $ENV{LSMB_BASE_URL} || 'http://localhost/ledger-smb/';
 if ($host !~ /\/$/){
 	$host .= "/";
@@ -60,8 +61,8 @@
 		like($response->header('content-type'), qr/^text\/html/,
 			"$test->{_test_id} HTML sent");
 	}
-	if (ref($lwp_tests->{"$test->{_test_id}"}) eq 'CODE'){
-		&$lwp_tests->{"$test->{_test_id}"};
+	if (ref($test->{_lwp_tests}) eq 'CODE'){
+		$test->{_lwp_tests}($response);
 	}
 	#cmp_ok(($response->content =~ /Error/), 'eq', "$test->{_lwp_error}", "No Error on Request $test->{_test_id}");
 	#if ($response->content =~ /Error/){

Modified: trunk/t/data/62-request-data
===================================================================
--- trunk/t/data/62-request-data	2009-03-19 18:22:10 UTC (rev 2517)
+++ trunk/t/data/62-request-data	2009-03-19 19:07:37 UTC (rev 2518)
@@ -164,6 +164,13 @@
 		action 		=> 'get_search_results',
 	},
 	{
+		'_test_id'  => 'Recon Search Screen',
+		'_codebase' => 'new',
+		'module'    => 'recon.pl',
+		'report'    => '1',
+		'action'    => 'search',
+	},	
+	{
 		'_test_id'      => 'Payment print total',
 		'_codebase'     => 'new',
 		'action'        => 'print',


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.