[scpubgit/Q-Branch.git] / t / dbic / show-progress.t

use strict;
use warnings;

use Test::More;
use DBIx::Class::Storage::Debug::PrettyPrint;

my $cap;
open my $fh, '>', \$cap;

my $pp = DBIx::Class::Storage::Debug::PrettyPrint->new({
   show_progress => 1,
   clear_line    => 'CLEAR',
   executing     => 'GOGOGO',
});

$pp->debugfh($fh);

$pp->query_start('SELECT * FROM frew WHERE id = 1');
is(
   $cap,
   qq(SELECT * FROM frew WHERE id = 1 : \nGOGOGO),
   'SQL Logged'
);
$pp->query_end('SELECT * FROM frew WHERE id = 1');
is(
   $cap,
   qq(SELECT * FROM frew WHERE id = 1 : \nGOGOGOCLEAR),
   'SQL Logged'
);

done_testing;
Commit	Line	Data
13662f97	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5	use DBIx::Class::Storage::Debug::PrettyPrint;
	6
	7	my $cap;
	8	open my $fh, '>', \$cap;
	9
	10	my $pp = DBIx::Class::Storage::Debug::PrettyPrint->new({
	11	show_progress => 1,
	12	clear_line => 'CLEAR',
	13	executing => 'GOGOGO',
	14	});
	15
	16	$pp->debugfh($fh);
	17
	18	$pp->query_start('SELECT * FROM frew WHERE id = 1');
	19	is(
	20	$cap,
	21	qq(SELECT * FROM frew WHERE id = 1 : \nGOGOGO),
	22	'SQL Logged'
	23	);
	24	$pp->query_end('SELECT * FROM frew WHERE id = 1');
	25	is(
	26	$cap,
	27	qq(SELECT * FROM frew WHERE id = 1 : \nGOGOGOCLEAR),
	28	'SQL Logged'
	29	);
	30
	31	done_testing;