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

diff --git a/t/13whitespace_keyword.t b/t/13whitespace_keyword.t
index 838ed04..20929bf 100644
--- a/t/13whitespace_keyword.t
+++ b/t/13whitespace_keyword.t
@@ -20,11 +20,11 @@ my $sqlat = SQL::Abstract::Tree->new({
 });
 
 for ( keys %{$sqlat->indentmap}) {
-   my ($l, $r) = @{$sqlat->whitespace_keyword($_, 1)};
+   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_keyword('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;