[dbsrgits/DBIx-Class.git] / t / 91debug.t

use strict;
use warnings; 

use Test::More;
use lib qw(t/lib);
use DBICTest;

my $schema = DBICTest->init_schema();

plan tests => 2;

ok ( $schema->storage->debug(1), 'debug' );
ok ( defined(
       $schema->storage->debugfh(
         IO::File->new('t/var/sql.log', 'w')
       )
     ),
     'debugfh'
   );

1;
Commit	Line	Data
004d31fb	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5	use lib qw(t/lib);
	6	use DBICTest;
	7
	8	my $schema = DBICTest->init_schema();
	9
	10	plan tests => 2;
	11
	12	ok ( $schema->storage->debug(1), 'debug' );
	13	ok ( defined(
	14	$schema->storage->debugfh(
	15	IO::File->new('t/var/sql.log', 'w')
	16	)
	17	),
	18	'debugfh'
	19	);
	20
	21	1;