#!/usr/bin/perl

# Tests the beautification of SQL

use strict;
BEGIN {
	$|  = 1;
	$^W = 1;
}

use Test::More tests => 1;
use ORLite::Pod ();

# Simple test
is( ORLite::Pod->beautify(<<'END_INPUT'), <<'END_OUTPUT', 'ORLite::Pod->beautify() works' );
CREATE TABLE settings (id           INTEGER PRIMARY KEY,                    name         TEXT NOT NULL)
END_INPUT
CREATE TABLE settings (
    id INTEGER PRIMARY KEY,
    name TEXT NOT NULL
)
END_OUTPUT