develooper Front page | perl.dbd.oracle.changes | Postings from April 2012

[svn:dbd-oracle] r15282 - dbd-oracle/trunk/t

From:
mjevans
Date:
April 22, 2012 02:04
Subject:
[svn:dbd-oracle] r15282 - dbd-oracle/trunk/t
Message ID:
20120422090442.27D17184B0A@xx12.develooper.com
Author: mjevans
Date: Sun Apr 22 02:04:37 2012
New Revision: 15282

Modified:
   dbd-oracle/trunk/t/51scroll.t

Log:
just test string changes


Modified: dbd-oracle/trunk/t/51scroll.t
==============================================================================
--- dbd-oracle/trunk/t/51scroll.t	(original)
+++ dbd-oracle/trunk/t/51scroll.t	Sun Apr 22 02:04:37 2012
@@ -118,15 +118,15 @@
 # it should give us the 4th rcord and not the 5th
 
 $value =  $sth->ora_fetch_scroll(OCI_FETCH_RELATIVE,2);
-is($value->[0], 3, '... we should get the 3rd record');
+is($value->[0], 3, '... we should get the 3rd record rt76695');
 ($value) = $sth->fetchrow;
-is($value, 4, '... we should get the 4th record');
+is($value, 4, '... we should get the 4th record rt 76695');
 
 # rt 76410 - fetch after fetch absolute always returns the same row
 $value = $sth->ora_fetch_scroll(OCI_FETCH_ABSOLUTE, 2);
-is($value->[0], 2, "... we should get the 2nd row");
+is($value->[0], 2, "... we should get the 2nd row rt76410_2");
 ($value) = $sth->fetchrow;
-is($value, 3, "... we should get the 3rd row");
+is($value, 3, "... we should get the 3rd row rt76410_2");
 
 $sth->finish();
 drop_table($dbh);



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About