SF.net SVN: ledger-smb:[3008] trunk/t/11-ledgersmb.t

[..hidden..]

Revision: 3008
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3008&view=rev
Author:   aurynn_cmd
Date:     2010-05-25 23:01:26 +0000 (Tue, 25 May 2010)

Log Message:
-----------
Modify tests to include specific schema information.

Modified Paths:
--------------
    trunk/t/11-ledgersmb.t

Modified: trunk/t/11-ledgersmb.t
===================================================================
--- trunk/t/11-ledgersmb.t	2010-05-25 21:45:47 UTC (rev 3007)
+++ trunk/t/11-ledgersmb.t	2010-05-25 23:01:26 UTC (rev 3008)
@@ -213,19 +213,19 @@
 	$lsmb->{dbh} = DBI->connect("dbi:Pg:dbname=$ENV{PGDATABASE}", 
 		undef, undef, {AutoCommit => 0 });
 	@r = $lsmb->call_procedure('procname' => 'character_length', 
-		'args' => ['month']);
+		'args' => ['month'], 'schema'=>"pg_catalog");
 	is($#r, 0, 'call_procedure: correct return length (one row)');
 	is($r[0]->{'character_length'}, 5, 
 		'call_procedure: single arg, non-numeric return');
 
-	@r = $lsmb->call_procedure('procname' => 'trunc', 'args' => [57.1, 0]);
+	@r = $lsmb->call_procedure('procname' => 'trunc', 'args' => [57.1, 0], 'schema' => 'pg_catalog');
 	is($r[0]->{'trunc'}, Math::BigFloat->new('57'), 
 		'call_procedure: two args, numeric return');
 
-	@r = $lsmb->call_procedure('procname' => 'pi', 'args' => []);
+	@r = $lsmb->call_procedure('procname' => 'pi', 'args' => [], 'schema'=>'pg_catalog');
 	like($r[0]->{'pi'}, qr/^3.14/, 
 		'call_procedure: empty arg list, non-numeric return');
-	@r = $lsmb->call_procedure('procname' => 'pi');
+	@r = $lsmb->call_procedure('procname' => 'pi', 'schema'=>'pg_catalog');
 	like($r[0]->{'pi'}, qr/^3.14/, 
 		'call_procedure: no args, non-numeric return');
 }


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