7 BEGIN { delete @ENV{qw(DBIC_TRACE_PROFILE)} }
10 my $schema = DBICTest->init_schema;
12 isa_ok($schema->storage->debugobj, 'DBIx::Class::Storage::Statistics');
16 local $ENV{DBIC_TRACE_PROFILE} = 'console';
18 my $schema = DBICTest->init_schema;
20 isa_ok($schema->storage->debugobj, 'DBIx::Class::Storage::Debug::PrettyPrint');;
21 is($schema->storage->debugobj->_sqlat->indent_string, ' ', 'indent string set correctly from console profile');
25 local $ENV{DBIC_TRACE_PROFILE} = './t/lib/awesome.json';
27 my $schema = DBICTest->init_schema;
29 isa_ok($schema->storage->debugobj, 'DBIx::Class::Storage::Debug::PrettyPrint');;
30 is($schema->storage->debugobj->_sqlat->indent_string, 'frioux', 'indent string set correctly from file-based profile');