# In test suite.

  # Check CDBI object is as expected.
  is $cdbi_object->name, 'Foo', "name is correct (Foo)"

  # Change the name through web site.
  $mech->get_ok('http://localhost:3000/object/change?name=Bar');

  # Check that the name has changed.
  is $cdbi_object->name, 'Bar', "name has changed to 'Bar'";

  # Test fails.

##</code><code>##

  # Reload the object from the database.
  $cdbi_object->remove_from_object_index;
  $cdbi_object = My::Object->retrieve( $cdbi_object->id );