root/branches/new-install-process/t/61_bug_textareas.t

use Wiki::Toolkit::Setup::SQLite;
use OpenGuides::Template;
use OpenGuides::Test;
use OpenGuides::Utils;
use Test::More;

eval { require DBD::SQLite; };

if ( $@ ) {
    my ($error) = $@ =~ /^(.*?)\n/;
    plan skip_all => "DBD::SQLite could not be used - no database to test with ($error)";
}

plan tests => 1;

Wiki::Toolkit::Setup::SQLite::setup( { dbname => "t/node.db" } );
my $config = OpenGuides::Test->make_basic_config;
my $wiki = OpenGuides::Utils->make_wiki_object( config => $config );

my $out = OpenGuides::Template->output(
    wiki     => $wiki,
    config   => $config,
    template => "edit_form.tt",
    vars     => {
                  locales  => [
                                { name => "Barville" },
                                { name => "Fooville" },
                              ],
                },
);

like( $out, qr/Barville\nFooville/,
     "locales properly separated in textarea" );