use strict;

use Test::More tests => 3;

use Bigtop::Parser;

#----------------------------------------------------------------------
# Compile test on Bigtop::Deparser
#----------------------------------------------------------------------

BEGIN { use_ok( 'Bigtop::Deparser' ) }

#----------------------------------------------------------------------
# A moderately complex deparse.  There are more tests in t/tentmaker
#----------------------------------------------------------------------

my $bigtop_string = join '', <DATA>;

my $ast = Bigtop::Parser->parse_string( $bigtop_string );

my $redone = Bigtop::Deparser->deparse( $ast );

my @redone_pieces = split /\n/, $redone;

my @correct_rebuild = split /\n/, <<EO_CORRECT_REBUILD;
config {
    engine MP13;
    template_engine TT;
    plugins `SomePlugin SomeOtherPlugin`;
    Init Std {  }
    SQL Postgres {  }
    Model GantryDBIxClass {  }
    CGI Gantry { with_server 1; }
    Control Gantry {  }
    HttpdConf Gantry {  }
}
app Name {
    authors `Phil Crow` => `crow.phil\@gmail.com`, `Tim Keefer`;
    config {
        dbconn `dbi:Pg:dbname=sample` => no_accessor;
        odbcconn `dbi:ODBC:OddOS`;
        var value;
    }
    config prod {
        dbconn `dbi:Pg:dbname=sample;host=192.168.0.1` => no_accessor;
    }
    # keeps track of names
    sequence names_seq {}
    table names {
        sequence names;
        foreign_display `%last_name, %first_name: %user_name (%screen_name)`;
        field id {
            is int4, primary_key, auto;
        }
        # should have been family_name
        field last {
            is varchar;
            html_form_type text;
            html_form_display_size 40;
        }
        field first {
            is varchar;
            html_form_optional 1;
        }
        data
            last => `Jones, John Paul`,
            first => Pam;
    }
    controller Names is AutoCRUD {
    # - Begin Controllers -
        controls_table names;
        rel_location names;
        method do_main is main_listing {
            title Address;
            cols name, phone;
            header_options Add;
            row_options Edit, Delete;
        }
        method _form is AutoCRUD_form {
            form_name address;
            all_fields_but id;
            extra_keys
                legend => `\$self->path_info =~ /edit/i ? q!Edit! : q!Add!`;
        }
        literal Location
            `    require valid-user`;
        config {
            special_to_me 5 => no_accessor;
        }
    }
    controller Nothing {
    # This one moved because extra_keys was reset
        method do_nothing is stub {
        }
    }
    join_table a_b {
        joins a => b;
        names aes => bees;
        field extra {
            is int4;
            html_form_type text;
        }
        data
            a => 1,
            b => 1,
            extra => happy;
    }
}
EO_CORRECT_REBUILD

is_deeply( \@redone_pieces, \@correct_rebuild, 'moderate deparse' );

#----------------------------------------------------------------------
# Check tree getters: get_top_level_configs
#----------------------------------------------------------------------

my $top_level_configs = $ast->get_top_level_configs();

my $correct_tlcs      = {
    engine => 'MP13',
    template_engine => 'TT',
    plugins => 'SomePlugin SomeOtherPlugin',
};

is_deeply( $top_level_configs, $correct_tlcs, 'get_top_level_configs' );

__DATA__
config {
    engine MP13;
    template_engine TT;
    plugins `SomePlugin SomeOtherPlugin`;
    Init Std {}
    SQL Postgres {  }
    Model GantryDBIxClass {  }
    CGI  Gantry { with_server 1; }
    Control Gantry {}
    HttpdConf Gantry {}
}
app Name {
    authors `Phil Crow` => `crow.phil@gmail.com`, `Tim Keefer`;
    config {
        dbconn `dbi:Pg:dbname=sample` => no_accessor;
        odbcconn `dbi:ODBC:OddOS`;
        var value;
    }
    config prod {
        dbconn `dbi:Pg:dbname=sample;host=192.168.0.1` => no_accessor;
    }
    # keeps track of names
    sequence names_seq {}
    table names {
        sequence names;
        foreign_display `%last_name, %first_name: %user_name (%screen_name)`;
        field id {
            is int4, primary_key, auto;
        }
        # should have been family_name
        field last {
            is varchar;
            html_form_type text;
            html_form_display_size 40;
        }
        field first {
            is varchar;
            html_form_optional 1;
        }
        data
            last => `Jones, John Paul`,
            first => Pam;
    }
    # - Begin Controllers -
    controller Names is AutoCRUD {
        controls_table names;
        rel_location   names;
        method do_main is main_listing {
            title            `Address`;
            cols             name, phone;
            header_options   Add;
            row_options      Edit, Delete;
        }
        method _form is AutoCRUD_form {
            form_name        address;
            all_fields_but   id;
            extra_keys
                legend     => `$self->path_info =~ /edit/i ? q!Edit! : q!Add!`;
        }
        literal Location `    require valid-user`;
        config {
            special_to_me 5 => no_accessor;
        }
    }
    # This one moved because extra_keys was reset
    controller Nothing {
        method do_nothing is stub {

        }
    }
    join_table a_b {
        joins a => b;
        names aes => bees;
        field extra {
            is int4;
            html_form_type text;
        }
        data
            a => 1,
            b => 1,
            extra => happy;
    }
}