From 25b5bebb75c3514e513b75b9ad57caa4c007f67f Mon Sep 17 00:00:00 2001 From: franck cuny Date: Wed, 25 Nov 2009 14:08:49 +0100 Subject: rename --- t/00_basic.t | 30 ------------------------------ t/01_basic.t | 30 ++++++++++++++++++++++++++++++ 2 files changed, 30 insertions(+), 30 deletions(-) delete mode 100644 t/00_basic.t create mode 100644 t/01_basic.t diff --git a/t/00_basic.t b/t/00_basic.t deleted file mode 100644 index 83b718f..0000000 --- a/t/00_basic.t +++ /dev/null @@ -1,30 +0,0 @@ -use strict; -use warnings; -use Test::More; -use Net::Backtype; -use Net::Backtweet; -use YAML::Syck; - -sum_methods( 'Net::Backtype', 11 ); -sum_methods( 'Net::Backtweet', 12 ); - -my $obj = Net::Backtweet->new; -ok $obj, '... object created'; -my $method = $obj->meta->find_method_by_name('user_comments'); -ok $method->meta->has_attribute('method'), '... got method as attribute'; -is $method->method, 'GET', '... method is GET'; - - -done_testing; - -sub sum_methods { - my $module = shift; - my $expect = shift; - my $obj = $module->new(); - my @methods = $obj->meta->get_all_methods(); - my $total = 0; - foreach my $m (@methods) { - ++$total if $m->meta->has_attribute('description'); - } - is $total, $expect, "... got $expect methods in our client"; -} diff --git a/t/01_basic.t b/t/01_basic.t new file mode 100644 index 0000000..83b718f --- /dev/null +++ b/t/01_basic.t @@ -0,0 +1,30 @@ +use strict; +use warnings; +use Test::More; +use Net::Backtype; +use Net::Backtweet; +use YAML::Syck; + +sum_methods( 'Net::Backtype', 11 ); +sum_methods( 'Net::Backtweet', 12 ); + +my $obj = Net::Backtweet->new; +ok $obj, '... object created'; +my $method = $obj->meta->find_method_by_name('user_comments'); +ok $method->meta->has_attribute('method'), '... got method as attribute'; +is $method->method, 'GET', '... method is GET'; + + +done_testing; + +sub sum_methods { + my $module = shift; + my $expect = shift; + my $obj = $module->new(); + my @methods = $obj->meta->get_all_methods(); + my $total = 0; + foreach my $m (@methods) { + ++$total if $m->meta->has_attribute('description'); + } + is $total, $expect, "... got $expect methods in our client"; +} -- cgit 1.4.1