#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Test::More tests => 5;
use lib 'lib';
BEGIN {
use_ok 'Socialtext::WikiObject::TableConfig';
use_ok 'Socialtext::Resting::Mock';
}
my $rester = Socialtext::Resting::Mock->new;
sub new_wikiobject {
Socialtext::WikiObject::TableConfig->new( rester => $rester, @_ );
}
Simple_table: {
$rester->put_page('Foo', <<EOT);
| *Key* | *Value* |
| foo | bar |
| perl | python |
EOT
my $wo = new_wikiobject(page => 'Foo');
my $table = $wo->table;
is ref($table), 'HASH';
is $table->{foo}, 'bar';
is $table->{perl}, 'python';
}