8 my $schema = DBICTest->init_schema( no_connect => 1, no_deploy => 1 );
12 is_deeply($schema->source_tree, {
15 ArtistUndirectedMap => {
23 Artwork_to_Artist => {
64 FourKeys_to_TwoKeys => {
105 SourceNameArtists => {},
111 TimestampPrimaryKey => {},
116 TwoKeyTreeLike => {},
124 }, 'got correct source tree');
130 ArtistSubclass => {},
131 ArtistUndirectedMap => {
139 Artwork_to_Artist => {
164 CollectionObject => {
180 FourKeys_to_TwoKeys => {
216 SourceNameArtists => {},
222 TimestampPrimaryKey => {},
227 TwoKeyTreeLike => {},
232 $schema->source_tree({ limit_sources => ['TwoKeys'] }),
234 'got correct source tree with limit_sources => [ ... ]',
238 $schema->source_tree({ limit_sources => { TwoKeys => 1 } }),
240 'got correct source tree with limit_sources => { ... }',
243 # We probably also want a "collapsed" tree thingy