Rev 126: Updated test.pl to track latest changes. in http://bazaar.launchpad.net/~ndb-connectors/ndb-connectors/ndbjmerge

[Monty Taylor]

At http://bazaar.launchpad.net/~ndb-connectors/ndb-connectors/ndbjmerge

------------------------------------------------------------
revno: 126
revision-id: mtaylor@stripped
parent: mtaylor@stripped
committer: Monty Taylor <mtaylor@stripped>
branch nick: ndbjmerge
timestamp: Wed 2007-07-25 07:26:11 -0700
message:
  Updated test.pl to track latest changes.
modified:
  perl/test.pl                  
svn-v2:1@5fca6d9a-db22-0410-b55c-899b0a28da89-trunk-perl5%2ftest.pl
=== modified file 'perl/test.pl'
--- a/perl/test.pl	2007-05-07 08:01:13 +0000
+++ b/perl/test.pl	2007-07-25 14:26:11 +0000
@@ -43,7 +43,7 @@
 $dbh->do("DROP TABLE if exists mytablename");
 $dbh->do("CREATE TABLE
   mytablename
-   (ATTR1 INT UNSIGNED not null,
+   (ATTR1 INT UNSIGNED not null auto_increment,
     ATTR2 INT UNSIGNED NOT NULL,
     PRIMARY KEY USING HASH (ATTR1)
    )
@@ -62,7 +62,7 @@
 }
 
 
-if ($connection->wait_until_ready(30,30)) {
+if ($connection->waitUntilReady(30,30)) {
     print "Cluster was not ready within 30 secs.\n";
     exit -1;
 } else { print "cluster ready\n"; }
@@ -95,12 +95,12 @@
       my $myOperation = $myTransaction->getNdbOperation("mytablename");
       $myOperation->insertTuple();
 
-      #my $auto_id = $myNdb->getAutoIncrementValue("mytablename",$BATCH_SIZE);
-      $auto_id++;
+      my $auto_id = $myNdb->getAutoIncrementValue("mytablename",$BATCH_SIZE);
+      #$auto_id++;
       #print "$t - $i - $auto_id - $myOperation\n";
 
-      $myOperation->equal("ATTR1", $auto_id);
-      $myOperation->setVal("ATTR2",$i);
+      $myOperation->equalUint64("ATTR1", $auto_id);
+      $myOperation->setValue("ATTR2",$i);
 
     }
 
@@ -141,7 +141,7 @@
 
 $myTransaction->execute($mysql::cluster::ndbapi::NoCommit);
 
-while ($myScanOperation->nextResultMt() == 0) {
+while ($myScanOperation->nextResult() == 0) {
   
   my $random_id = $myRecAttr->u_32_value();
   push(@ids,$random_id);
@@ -166,7 +166,7 @@
 
       my $id_num = $ids[rand($INSERT_NUM)];
 
-      $myOper->equal("ATTR1",$id_num);
+      $myOper->equalUint64("ATTR1",$id_num);
 
       my $myRecAttr = $myOper->getValue("ATTR2");