function DatabaseInsertLOBTestCase::testInsertOneBlob in SimpleTest 7

Test that we can insert a single blob field successfully.

File

tests/database_test.test, line 573

Class

DatabaseInsertLOBTestCase

Insert tests using LOB fields, which are weird on some databases.

Code

function testInsertOneBlob() {
  $data = "This is\0a test.";
  $this
    ->assertTrue(strlen($data) === 15, t('Test data contains a NULL.'));
  $id = db_insert('test_one_blob')
    ->fields(array(
    'blob1' => $data,
  ))
    ->execute();
  $r = db_query('SELECT * FROM {test_one_blob} WHERE id = :id', array(
    ':id' => $id,
  ))
    ->fetchAssoc();
  $this
    ->assertTrue($r['blob1'] === $data, t('Can insert a blob: id @id, @data.', array(
    '@id' => $id,
    '@data' => serialize($r),
  )));
}