Fix test t/35prepare.t

pali · pali · commit f4e3a3fa8d6a · 2019-02-06T16:46:42.000+01:00
Do not test perl assignment operator
diff --git a/t/35prepare.t b/t/35prepare.t
@@ -64,7 +64,7 @@ for (my $i = 0 ; $i < 10; $i++)
    # save these values for later testing
   $testInsertVals->{$i}= $random_chars;
   ok($rows= $sth->execute($i, $random_chars), "Testing insert row");
-  ok($rows= 1, "Should have inserted one row");
+  is($rows, 1, "Should have inserted one row");
 }
 
 ok($sth= $dbh->prepare("SELECT * FROM dbd_mysql_t35prepare WHERE id = ? OR id = ?"),

Original file line number	Diff line number	Diff line change
`@@ -64,7 +64,7 @@ for (my $i = 0 ; $i < 10; $i++)`
`64`	`64`	`# save these values for later testing`
`65`	`65`	`$testInsertVals->{$i}= $random_chars;`
`66`	`66`	`ok($rows= $sth->execute($i, $random_chars), "Testing insert row");`
`67`		`- ok($rows= 1, "Should have inserted one row");`
	`67`	`+ is($rows, 1, "Should have inserted one row");`
`68`	`68`	`}`
`69`	`69`
`70`	`70`	`ok($sth= $dbh->prepare("SELECT * FROM dbd_mysql_t35prepare WHERE id = ? OR id = ?"),`