dinislage/SQL-Abstract-Complete
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Release version 1.01

Browse Source
This commit is contained in:
Gryphon Shafer
2013-02-23 16:57:54 -08:00
parent f6642a6d1e
commit e371953544
13 changed files with 673 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
t/00-load.t
+8
View File
@@ -0,0 +1,8 @@
#!perl -T
use Test::More tests => 1;
BEGIN {
use_ok( 'SQL::Abstract::Complete' ) || print "Bail out!\n";
}
diag( "Testing SQL::Abstract::Complete $SQL::Abstract::Complete::VERSION, Perl $], $^X" );
t/Complete.t
+149
View File
@@ -0,0 +1,149 @@
use strict;
use warnings;
use Test::More 'tests' => 22;
use constant MODULE => 'SQL::Abstract::Complete';
BEGIN { use_ok(MODULE); }
require_ok(MODULE);
my %sacs;
ok( $sacs{'A'} = MODULE->new(), MODULE . '->new() ...as A' );
ok(
$sacs{'B'} = MODULE->new( 'part_join' => "\n" ),
MODULE . q{->new( 'part_join' => "\n" ) ...as B},
);
is( ref( $sacs{$_} ), MODULE, 'ref($object) ...with ' . $_ )
foreach ( keys %sacs );
my ( $sql, @bind );
my $sac = $sacs{'A'};
foreach (
[ 'A', 'SELECT * FROM table_name' ],
[ 'B', "SELECT *\nFROM table_name" ],
) {
( $sql, @bind ) = $sacs{ $_->[0] }->select('table_name');
is(
$sql, $_->[1],
'Single simple table ...with ' . $_->[0],
);
}
foreach (
[ 'A', 'SELECT column_a, column_b, column_c FROM table_name' ],
[ 'B', "SELECT column_a, column_b, column_c\nFROM table_name" ],
) {
( $sql, @bind ) = $sacs{ $_->[0] }->select(
'table_name',
[ qw( column_a column_b column_c ) ],
);
is(
$sql, $_->[1],
'Single simple table and columns ...with ' . $_->[0],
);
}
is(
$sac->select('alpha'), 'SELECT * FROM alpha',
q{select('alpha')},
);
is(
$sac->select( \q(FROM alpha AS a) ), 'SELECT * FROM alpha AS a',
q{select( \q(FROM alpha AS a) )},
);
is(
$sac->select( ['alpha'] ), 'SELECT * FROM alpha',
q{select( ['alpha'] )},
);
is(
$sac->select( [ \q(FROM alpha AS a) ] ), 'SELECT * FROM alpha AS a',
q{select( [ \q(FROM alpha AS a) ] )},
);
is(
$sac->select(
[
[ [ qw( alpha a ) ] ],
[ [ qw( beta b ) ], 'id' ],
],
), 'SELECT * FROM alpha AS a JOIN beta AS b USING(id)',
q{select( [ [ [ qw( alpha a ) ] ], [ [ qw( beta b ) ], 'id' ] ] )},
);
is(
$sac->select(
[
[ [ qw( alpha a ) ] ],
[ { 'beta' => 'b' }, 'id' ],
],
), 'SELECT * FROM alpha AS a JOIN beta AS b USING(id)',
q{select( [ [ [ qw( alpha a ) ] ], [ { 'beta' => 'b' }, 'id' ] ] )},
);
is(
$sac->select(
[
[ [ qw( alpha a ) ] ],
[ { 'beta' => 'b' }, 'id' ],
\q{ LEFT JOIN something AS s USING(whatever) },
[ \q{ LEFT JOIN }, { 'omega' => 'o' }, 'last_id' ],
[ \q{ LEFT JOIN }, { 'stuff' => 't' }, \q{ ON t.thing_id = b.thing_id } ],
[
[ qw( pi p ) ],
{
'join' => 'left',
'using' => 'number_id',
},
],
],
), q{SELECT * FROM alpha AS a JOIN beta AS b USING(id) LEFT JOIN something AS s USING(whatever) } .
q{LEFT JOIN omega AS o USING(last_id) LEFT JOIN stuff AS t ON t.thing_id = b.thing_id } .
q{LEFT JOIN pi AS p USING(number_id)},
'Full select() table functionality',
);
is(
$sac->select(
'table',
[ qw( one two three ) ],
), 'SELECT one, two, three FROM table',
q{select( 'table', [ qw( one two three ) ] )},
);
is(
$sac->select(
'table',
[
'one',
\q{ IF( two > 10, 1, 0 ) AS two_bool },
{ 'three' => 'col_three' },
],
), 'SELECT one, IF( two > 10, 1, 0 ) AS two_bool, three AS col_three FROM table',
'Full select() fields functionality',
);
is(
$sac->select(
'table',
['one'],
undef,
{
'group_by' => 'two',
'having' => [ { 'MAX(three)' => { '>' => 9 } } ],
'order_by' => [ 'one', { '-desc' => 'four' }, 'five' ],
'rows' => 5,
'page' => 3,
},
), q{SELECT one FROM table GROUP BY two HAVING ( MAX(three) > ? ) } .
q{ORDER BY one, four DESC, five LIMIT 5 OFFSET 10},
'Full select() \%other functionality',
);
is( $sac->_sqlcase('from'), 'FROM', q{$sac->_sqlcase('from')} );
is( $sac->_sqlcase(undef), '', '$sac->_sqlcase(undef)' );
t/boilerplate.t
+51
View File
@@ -0,0 +1,51 @@
#!perl -T
use strict;
use warnings;
use Test::More tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename ) or die "couldn't open $filename for reading: $!";
my %violated;
while (my $line = <$fh>) {
while (my ($desc, $regex) = each %regex) {
if ($line =~ $regex) {
push @{$violated{$desc}||=[]}, $.;
}
}
}
if (%violated) {
fail("$filename contains boilerplate text");
diag "$_ appears on lines @{$violated{$_}}" for ( keys %violated );
}
else {
pass("$filename contains no boilerplate text");
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/SQL/Abstract/Complete.pm');
}
t/manifest.t
+8
View File
@@ -0,0 +1,8 @@
#!perl -T
use strict;
use warnings;
use Test::More;
eval "use Test::CheckManifest 0.9";
plan skip_all => "Test::CheckManifest 0.9 required" if $@;
ok_manifest({filter => [qr/\.git/]});
t/pod-coverage.t
+19
View File
@@ -0,0 +1,19 @@
#!perl -T
use strict;
use warnings;
use Test::More;
# Ensure a recent version of Test::Pod::Coverage
my $min_tpc = 1.08;
eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
if $@;
# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
if $@;
all_pod_coverage_ok();
t/pod.t
+11
View File
@@ -0,0 +1,11 @@
#!perl -T
use strict;
use warnings;
use Test::More;
# Ensure a recent version of Test::Pod
my $min_tp = 1.22;
eval "use Test::Pod $min_tp";
plan skip_all => "Test::Pod $min_tp required for testing POD" if $@;
all_pod_files_ok();