Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Tree: 91187a17a4
Fetching contributors…

Cannot retrieve contributors at this time

34 lines (23 sloc) 697 Bytes
use strict;
use warnings;
use Test::More tests => 4;
use SQL::Beautify;
my $sql = new SQL::Beautify(
spaces => 1,
break => '<br>',
space => '&nbsp;',
my $query;
my $beauty;
ok($sql, 'got instance');
# Test plain text formatting.
$query = <DATA>;
$beauty = <DATA>;
$beauty = eval $beauty;
ok($sql->query($query) eq $query, 'query set');
ok($sql->query eq $query, 'query get');
ok($sql->beautify eq $beauty, 'beautified');
SELECT * FROM foo, bar, baz WHERE = AND =
Jump to Line
Something went wrong with that request. Please try again.