The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::Simple 'no_plan';
use strict;
use lib './lib';
require './t/test.pl';
use WordPress::API::Post;

#use Smart::Comments '###';


my $conf = skiptest();






### $conf

my $w = WordPress::API::Post->new($conf);

### $w

ok($w,'object initiated');

$w->proxy or die('check your conf');
$w->password or die;
$w->username or die;

$w->title('This is ok'.time());
$w->description('this is test content');

ok($w->save, 'posted') or die;

ok($w->id,'got id()'.$w->id);



ok( $w->load, 'loaded after saving.. hmmm');
my $struct = $w->structure_data;
### $struct



sleep 1;

ok( $w->delete,'deleted' ) or die;