X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F13whitespace_keyword.t;h=20929bfd47c02bb5d22f26ac8847181611d2e635;hb=bd05b0bcde7617b5a3579f62da800cbcb5c19ffe;hp=2d2319c2de64bb0d6e443f7b2da3ef01b4906005;hpb=b4e0e260fc40159f0e12b6e98b68ecdcb30b3ab1;p=dbsrgits%2FSQL-Abstract.git

diff --git a/t/13whitespace_keyword.t b/t/13whitespace_keyword.t
index 2d2319c..20929bf 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 a space 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;