use Test::Simple 'no_plan';
use strict;
use lib './lib';
require './t/test.pl';
use WordPress::XMLRPC;
no strict 'refs';

ok(1,'starting test.');


if( ! -f './t/wppost' ){
   ok(1, 'see README for further testing, skipped.');
   exit;
}



my $w = WordPress::XMLRPC->new(_conf('./t/wppost'));

my $_attempt_delete = 0;






my $getAuthors = $w->getAuthors;
## getAuthors
ok($getAuthors,'getAuthors()');

my $getCategories = $w->getCategories;
ok(ref $getCategories eq 'ARRAY' ,'getCategories');
## $getCategories



my $ncn = ( int rand 10000 ).'testc';

print STDERR "\n\n=======\nnewCategory.. \n";
my $newCategory = $w->newCategory({ name => $ncn }) 
   or warn("newCategory no return, " . $w->errstr );

### $newCategory
=pod
unless( ok( $newCategory->{categoryName} eq $ncn ) ){
   my @k = keys %$newCategory;
   print STDERR "keys: ".scalar @k."\n";
   for my $k  (@k){
      my $v = $newCategory->{$k};
      print STDERR" k:$k, v:$v\n";
   }

 die;
}

=cut

for my $m (qw(getRecentPosts getUsersBlogs)){
   my $r = $w->$m;
   ok($r, "m $m");
   ### $m
   ### $r
}

#getTemplate
#setTemplate
#uploadFile



my $suggestCategories = $w->suggestCategories;
ok($suggestCategories, "suggestCategories()");
### $suggestCategories