no className is passed and the invocant's class is Asset. This is
due to the root. In the db, the root Asset has the className WebGUI::Asset,
and the getRoot method matches this.
Changed the failing test in Asset.t to look for a WebGUI::Asset to be returned.
Added two tests to Asset.t to validate the object returned by Asset->getRoot method.
Reverted previous work and updated the POD for Asset->new.
The first tests, Asset_diagnose.t checks that assetIds match in tables
asset, assetData and each Asset's default table.
Asset/Wobject/DataForm_diagnose.t adds tests for verifying DataForm
collateral tables, DataForm_field and DataForm_tab. With a few
small changes, the test could also cover the DataForm data tables,
DataForm_entry and DataForm_entryData.
The tests are optimized to do a quick preliminary test, and if this
test fails, then an in-depth test is run. This second test will
run a VERY VERY VERY long time, but will tell you exactly what's
missing from your tables.
The new tests require the module Test::Deep, for comparing data structures.
