#!/usr/bin/perl -w
use strict;
use Gtk2::TestHelper tests => 4;

use Gtk2::Ex::TreeMaker;
use Data::Dumper;

my $column_names = [ 
	'Region',
	'Nov-2003', 'Dec-2003', 'Jan-2004', 
	'Feb-2004', 'Mar-2004', 'Apr-2004',
	'May-2004', 'Jun-2004', 'Jul-2004' 
];

my $data_attributes = [
	{'text' => 'Glib::String'},
	{'background' => 'Glib::String'},
];

my @recordset;
while(<DATA>) {
	next if /^#/;
	chomp;
	my @record = split /\,/, $_;
	push @recordset, \@record;
}

my $treemaker = Gtk2::Ex::TreeMaker->new($column_names, $data_attributes);
isa_ok($treemaker, "Gtk2::Ex::TreeMaker");

ok($treemaker->set_data_flat(\@recordset));

ok(!$treemaker->build_model);

my $treemaker_widget = $treemaker->get_widget();
isa_ok($treemaker_widget, "Gtk2::HPaned");

my $window = Gtk2::Window->new;
$window->signal_connect(destroy => sub { Gtk2->main_quit; });

$window->add($treemaker_widget);
$window->set_default_size(500, 300);
$window->show_all;

__DATA__
#state,city,product,date,text,editable,underline,background
Texas,Dallas,Dec-2003,300,red
Texas,Austin,Jan-2004,120,green
Texas,Houston,Nov-2003,310,yellow
Texas,Dallas,Feb-2004,20,orange
Texas,San Antonio,Jun-2004,80,brown
California,Irvine,Jun-2004,100,blue