X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F12format_keyword.t;h=be31a6af563abf345dcd8d0426a0a611b450bb6d;hb=428975b0e646c0769d7eb530d4f52443471a9a9a;hp=a1cd8d8e4051819b1422957cbff003e9078e44fc;hpb=23401b818b099397e04df91b43340ecd59e8f92b;p=scpubgit%2FQ-Branch.git diff --git a/t/12format_keyword.t b/t/12format_keyword.t index a1cd8d8..be31a6a 100644 --- a/t/12format_keyword.t +++ b/t/12format_keyword.t @@ -5,20 +5,20 @@ use Test::More; use SQL::Abstract::Tree; my $sqlat = SQL::Abstract::Tree->new({ - colormap => { - select => ['s(', ')s'], - where => ['w(', ')w'], - from => ['f(', ')f'], - join => ['j(', ')f'], - on => ['o(', ')o'], - 'group by' => ['gb(',')gb'], - 'order by' => ['ob(',')ob'], - }, + colormap => { + select => ['s(', ')s'], + where => ['w(', ')w'], + from => ['f(', ')f'], + join => ['j(', ')f'], + on => ['o(', ')o'], + 'group by' => ['gb(',')gb'], + 'order by' => ['ob(',')ob'], + }, }); for ( keys %{$sqlat->colormap}) { - my ($l, $r) = @{$sqlat->colormap->{$_}}; - is($sqlat->format_keyword($_), "$l$_$r", "$_ 'colored' correctly"); + my ($l, $r) = @{$sqlat->colormap->{$_}}; + is($sqlat->format_keyword($_), "$l$_$r", "$_ 'colored' correctly"); }