File Coverage

test/Romani/Query/SQL/TTT.pm

Criterion	Covered	Total	%
statement	39	58	67.2
branch			n/a
condition			n/a
subroutine	13	16	81.2
pod			n/a
total	52	74	70.2

#!/usr/bin/perl -w

package Local::Romani::Query::SQL::TTT;
use base qw(Test::Class);

use DBIx::Romani::Query::SQL::TTT::Operator;
use DBIx::Romani::Query::SQL::TTT::Function;
use DBIx::Romani::Query::SQL::TTT::Keyword;
use DBIx::Romani::Query::SQL::TTT::Join;
use DBIx::Romani::Query::SQL::Column;
use DBIx::Romani::Query::SQL::Literal;
use DBIx::Romani::Driver::sqlite;
use Test::More;
use strict;

use Data::Dumper;

# utility function makes SQL out of whatever
sub generate_sql { return DBIx::Romani::Driver::sqlite->new()->generate_sql( @_ ) };

sub tttOperator1 : Test(1)
{
	my $op_eq1 = DBIx::Romani::Query::SQL::TTT::Operator->new( '=' );
	$op_eq1->add( DBIx::Romani::Query::SQL::Column->new(undef, 'column1') );
	$op_eq1->add( DBIx::Romani::Query::SQL::Literal->new('ABC') );

	my $op_eq2 = DBIx::Romani::Query::SQL::TTT::Operator->new( '=' );
	$op_eq2->add( DBIx::Romani::Query::SQL::Column->new(undef, 'column2') );
	$op_eq2->add( DBIx::Romani::Query::SQL::Literal->new('123') );

	my $op_and = DBIx::Romani::Query::SQL::TTT::Operator->new( 'and' );
	$op_and->add( $op_eq1 );
	$op_and->add( $op_eq2 );

	my $s = generate_sql( $op_and );
	is( $s, "((column1 = 'ABC') and (column2 = '123'))" );
}

sub tttFunction1 : Test(1)
{
	my $func     = DBIx::Romani::Query::SQL::TTT::Function->new( "COUNT" );
	my $ttt_join = DBIx::Romani::Query::SQL::TTT::Join->new();
	$ttt_join->add( DBIx::Romani::Query::SQL::TTT::Keyword->new('DISTINCT') );
	$ttt_join->add( DBIx::Romani::Query::SQL::Column->new( undef, "column1" ) );
	$func->add( $ttt_join );

	my $s = generate_sql( $func );
	is( $s, 'COUNT(DISTINCT column1)' );
}

1;