'tagA', 'label' => 'Tag A', 'description' => 'Tag known as "A"', ]); $oTagA->DBInsert(); $oTagB = \MetaModel::NewObject(\TagSetFieldData::GetTagDataClassName('TestObject', 'tagset'), [ 'code' => 'tagB', 'label' => 'Tag B', 'description' => 'Tag known as "B"', ]); $oTagB->DBInsert(); $sTargetClass = 'TestObject'; $aValues = [ 'name' => [ 'value' => 'Tadam!', 'type' => 'php:integer', ], 'org_id' => [ 'value' => $this->getTestOrgId(), 'type' => 'php:integer', ], 'parent_id' => [ 'value' => 0, 'type' => 'php:integer', ], 'caselog' => [ 'value' => '{"items":[{"message":"Hi folks!"}]}', 'type' => 'ormCaseLog', ], 'date' => [ 'value' => '2023-10-04', 'type' => 'php:string', ], 'date_time' => [ 'value' => '2023-10-04 17:11:54', 'type' => 'php:string', ], 'deadline' => [ 'value' => '2023-10-04 17:11:54', 'type' => 'php:string', ], 'decimal' => [ 'value' => '123456.78', 'type' => 'php:string', ], 'duration' => [ 'value' => 3660, // One hour and one minute 'type' => 'php:integer', ], 'email' => [ 'value' => 'john.foo@company.com', 'type' => 'php:string', ], 'encrypted' => [ 'value' => 'secret...inDB!', 'type' => 'php:string', ], 'password' => [ 'value' => 'abc123', 'type' => 'php:string', ], 'onewaypassword' => [ 'value' => 'az"e(t-yè', 'type' => 'php:string', ], 'enum' => [ 'value' => 'yes', 'type' => 'php:string', ], 'enumset' => [ 'value' => 'low,high', 'type' => 'php:string', ], 'file' => [ 'value' => '{"data":"blahblah","mimetype":"text/plain","filename":"trash.txt", "downloads_count":0}', 'type' => 'ormDocument', ], 'html' => [ 'value' => '

Hello world!

', 'type' => 'php:string', ], 'image' => [ 'value' => '{"data":"notanimage-sowhat?","mimetype":"image/png","filename":"trash.png", "downloads_count":0}', 'type' => 'ormDocument', ], 'integer' => [ 'value' => 123, 'type' => 'php:integer', ], 'ip_address' => [ 'value' => '192.158.1.38', 'type' => 'php:string', ], 'percentage' => [ 'value' => 49.3, 'type' => 'php:double', ], 'phone' => [ 'value' => '+33476123456', 'type' => 'php:string', ], 'status' => [ 'value' => 'investigation', 'type' => 'php:string', ], 'stopwatch' => [ 'value' => null, 'type' => 'ormStopWatch', ], 'tagset' => [ 'value' => 'tagA tagB', 'type' => 'php:string', ], 'text' => [ 'value' => 'Hello world!', 'type' => 'php:string', ], 'long_text' => [ 'value' => 'Hello world!', 'type' => 'php:string', ], 'url' => [ 'value' => 'http://www.combodo.com/void', 'type' => 'php:string', ], 'oql' => [ 'value' => 'SELECT Organization', 'type' => 'php:string', ], 'boolean' => [ 'value' => true, 'type' => 'php:boolean', ], ]; $aValuesToSet = []; foreach ($aValues as $sAttCode => $aValueData) { $oAttDef = \MetaModel::GetAttributeDef($sTargetClass, $sAttCode); if (substr($aValueData['type'], 0, 4) == 'php:') { $aValuesToSet[$sAttCode] = $aValueData['value']; } else { $oJSONObject = is_null($aValueData['value']) ? null : json_decode($aValueData['value'], false); $aValuesToSet[$sAttCode] = $oAttDef->FromJSONToValue($oJSONObject); } static::assertTrue((bool) $oAttDef->CheckFormat($aValuesToSet[$sAttCode]), "Given test value of attribute '$sAttCode' is not valid: {$aValueData['value']}"); } // Test that I can write without any error (such as malformed SQL query, that would throw an exception) $oObject = \MetaModel::NewObject($sTargetClass, $aValuesToSet); $oObject->DBInsert(); // Test that I can read without any error (such as malformed SQL query, that would throw an exception) $iTestObject = $oObject->GetKey(); $oObjectFromDB = \MetaModel::GetObject($sTargetClass, $iTestObject); // Test that each value matches the original value foreach ($aValues as $sAttCode => $aValueData) { $oAttDef = \MetaModel::GetAttributeDef($sTargetClass, $sAttCode); static::assertTrue($oAttDef->Equals( $oObject->Get($sAttCode), $oObjectFromDB->Get($sAttCode) ), "Value of attribute '$sAttCode' has been altered after DB write + read"); } // Create an indirection $oSubObject = \MetaModel::NewObject('SubObject', [ 'name' => 'subobject for '.$iTestObject, 'testobject_id' => $iTestObject, ]); $oSubObject->DBInsert(); // Test that it can be read from the DB $iSubObject = $oSubObject->GetKey(); $oSubObjectFromDB = \MetaModel::GetObject('SubObject', $iSubObject); // Test that each external field value matches the original value foreach ($aValues as $sAttCode => $aValueData) { $sExtFieldAttCode = '_'.$sAttCode; $oAttDef = \MetaModel::GetAttributeDef($sTargetClass, $sAttCode); static::assertTrue($oAttDef->Equals($oObject->Get($sAttCode), $oSubObjectFromDB->Get($sExtFieldAttCode)), "Value of attribute '$sAttCode' not correctly read as an external key"); } } }