DBIx::Recordset - DataSource => $DSN fails in test.pl

[Terrence Brannon]

*** I plan to fix this my using the created $dbh in DoTest() throughout 
test.pl instead of passing $DSN to each independent Search() call, but 
thought I would report this. I am further down in the test suite, 
getting it to truly pass for DBD::Pg, and have run across this error:

Select dbixrs2.name2 id=id...         
--------------------
WARN: DBI connect('dbname=test','metaperl',...) failed: could not 
connect to server: Address already in use at blib/lib/DBIx/Recordset.pm 
line 203

DB:  ERROR open DB dbi:Pg:dbname=test (could not connect to server: 
Address already in use)
DB:  New Recordset driver=  placeholders supported
DB:  FLUSH Recordset id = 7  DBIx::Recordset=HASH(0x10547af8)
DB:  Disconnect (id=7, numOpen = 1)
DB:  DESTROY (id=7, numOpen = 1)
CHK-IDS: 2
ERROR in Select dbixrs2.name2 id=id
Got too few rows (got 0, expected 1)
Select dbixrs2.value2 id=id...        

*** Which  corresponds to this code:

printlogf "Select $Table[1].name2 id=id";
       print LOG "\n--------------------\n" ;
       *set1_ = DBIx::Recordset -> Search ({  '!DataSource'   =>  $DSN,
                                           '!Username'     =>  $User,
                                           '!Password'     =>  $Password,
                                           '!Table'        =>  
"$Table[0], $Table[1]",
                                           '!Fields'       =>  
"$Table[0].id, $Table[0].name, $Table[0].value1, $Table[0].addon",
                                          "'$Table[1].name2" => 'Second 
Name in Tab2',
                                          "\\$Table[0].id" => 
"$Table[1].id",
                                          '$operator'=>'='})  or die 
"not ok ($DBI::errstr)" ;

*** also note: I just committed my changes to test.pl back to svn up to 
this point:

       ~/hacks/dbirs $ svn commit --message 'incremental commit while 
fixing test suite for DBD::Pg'
Sending        test.pl
Transmitting file data .
Committed revision 143.
       ~/hacks/dbirs $



---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]