bject ) );
ok(
$object->{'modified'} > 0,
"The 'modified' field was auto-populated.",
) || diag( explain( $object ) );
isnt(
$object->id(),
undef,
'The auto-increment field was populated.',
);
tantiate a new object.',
);
isa_ok(
$static_class_info,
'DBIx::NinjaORM::StaticClassInfo',
);
isnt(
scalar( keys %$static_class_info ),
0,
'The object has keys defined.',
) || diag( explain( $s
object: ", $cloned_object ) );
# Make sure the objects don't point to the same memory location.
isnt(
$cloned_object,
$object,
'The object and its clone point to different memory locations.',
);
{
name => 'test_flatten_' . time(),
}
)
},
'Insert succeeds.',
);
isnt(
$object->id(),
undef,
'id() returns a defined value.',
);
$object_id = $object->id
=> 'skip_cache_' . $count . '_' . time(),
}
);
},
'Insert new row.',
);
isnt(
$insert_test->id(),
undef,
'The inserted row has a valid ID.',
);
# Retrieve
sert(
{
name => 'test_id_' . time(),
}
)
},
'Insert succeeds.',
);
isnt(
$object->id(),
undef,
'id() returns a defined value.',
);
$object_id = $object->id