X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F13whitespace_keyword.t;h=c06d2b0f1b20e9424f1a7376f83edae296efcfa3;hb=a2795aac17bdfac1bf308699914f78289883c232;hp=2d2319c2de64bb0d6e443f7b2da3ef01b4906005;hpb=b4e0e260fc40159f0e12b6e98b68ecdcb30b3ab1;p=scpubgit%2FQ-Branch.git

diff --git a/t/13whitespace_keyword.t b/t/13whitespace_keyword.t
index 2d2319c..c06d2b0 100644
--- a/t/13whitespace_keyword.t
+++ b/t/13whitespace_keyword.t
@@ -5,10 +5,10 @@ use Test::More;
 use SQL::Abstract::Tree;
 
 my $sqlat = SQL::Abstract::Tree->new({
-	newline => "\n",
-	indent_string => " ",
-	indent_amount => 1,
-	indentmap => {
+   newline => "\n",
+   indent_string => " ",
+   indent_amount => 1,
+   indentmap => {
       select     => 0,
       where      => 1,
       from       => 2,
@@ -16,15 +16,15 @@ my $sqlat = SQL::Abstract::Tree->new({
       on         => 4,
       'group by' => 5,
       'order by' => 6,
-	},
+   },
 });
 
 for ( keys %{$sqlat->indentmap}) {
-	my ($l, $r) = @{$sqlat->whitespace($_, 1)};
-	is($r, ' ', "right is a space for $_");
-	is($l, "\n " . ' ' x $sqlat->indentmap->{$_}, "left calculated correctly for $_" );
+   my ($l, $r) = @{$sqlat->pad_keyword($_, 1)};
+   is($r, '', "right is empty for $_");
+   is($l, "\n " . ' ' x $sqlat->indentmap->{$_}, "left calculated correctly for $_" );
 }
 
-is($sqlat->whitespace('select', 0)->[0], '', 'Select gets no newline or indent for depth 0');
+is($sqlat->pad_keyword('select', 0)->[0], '', 'Select gets no newline or indent for depth 0');
 
 done_testing;