From 4e9996127a718c173e58f6a7b89a17068d263b05 Mon Sep 17 00:00:00 2001 From: Petr Skoda Date: Mon, 20 Sep 2010 21:59:34 +0000 Subject: [PATCH] new test for diagnosing of Postgresql 9.0 problems with BLOBS --- lib/dml/simpletest/testdml.php | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/lib/dml/simpletest/testdml.php b/lib/dml/simpletest/testdml.php index 29c010bc60c..4e678fbe662 100755 --- a/lib/dml/simpletest/testdml.php +++ b/lib/dml/simpletest/testdml.php @@ -1585,6 +1585,20 @@ class dml_test extends UnitTestCase { $this->assertEqual($newblob, $record->onebinary, 'Test "small" BLOB insert (full contents output disabled)'); $this->assertEqual(false, $rs->key()); // Ensure recordset key() method to be working ok after closing + // And "diagnostic" LOBs too, just in case + $newclob = '\'"\\;/ěščřžýáíé'; + $newblob = '\'"\\;/ěščřžýáíé'; + $record = new object(); + $record->onetext = $newclob; + $record->onebinary = $newblob; + $recid = $DB->insert_record($tablename, $record); + $rs = $DB->get_recordset($tablename, array('id' => $recid)); + $record = $rs->current(); + $rs->close(); + $this->assertIdentical($newclob, $record->onetext); + $this->assertIdentical($newblob, $record->onebinary); + $this->assertEqual(false, $rs->key()); // Ensure recordset key() method to be working ok after closing + // test data is not modified $record = new object(); $record->id = -1; // has to be ignored -- 2.36.1