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

------------------------------------------------------------ revno: 126 revision-id: mtay...@mysql.com-20070725142611-uvn0qckni3beg9yl parent: mtay...@mysql.com-20070725141635-ij25yhatxwa6zkcp committer: Monty Taylor <mtay...@mysql.com> 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");