summary refs log tree commit diff
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2009-12-20 15:54:14 +0100
committerfranck cuny <franck@lumberjaph.net>2009-12-20 15:54:14 +0100
commitd72f5a22b348d770388ea7bcae72221c1b109460 (patch)
tree9bb7e1635c89a3e6b48d80db140b6232d45ce326
parentadd expected code, error, remove croak (diff)
downloadmoosex-net-api-d72f5a22b348d770388ea7bcae72221c1b109460.tar.gz
remove tests, not clean enough
-rw-r--r--lib/MooseX/Net/API/Test.pm89
1 files changed, 0 insertions, 89 deletions
diff --git a/lib/MooseX/Net/API/Test.pm b/lib/MooseX/Net/API/Test.pm
deleted file mode 100644
index dbd4349..0000000
--- a/lib/MooseX/Net/API/Test.pm
+++ /dev/null
@@ -1,89 +0,0 @@
-package MooseX::Net::API::Test;
-
-use lib ('t/lib');
-use Try::Tiny;
-
-use Test::More;
-use Moose;
-use Moose::Exporter;
-use MooseX::Net::API::Meta::Class;
-use MooseX::Net::API::Meta::Method;
-
-with qw/MooseX::Net::API::Role::CatalystTest/;
-
-Moose::Exporter->setup_import_methods(
-    with_caller => [qw/test_api_method test_api_declare run/] );
-
-my $api_to_test;
-
-sub init_meta {
-    my ( $me, %options ) = @_;
-
-    my $for = $options{for_class};
-    Moose::Util::MetaRole::apply_metaclass_roles(
-        for_class       => $for,
-        metaclass_roles => ['MooseX::Net::API::Meta::Class'],
-    );
-}
-
-sub test_api_declare {
-    my $caller  = shift;
-    my $name    = shift;
-    my %options = @_;
-
-    unless ( Class::MOP::is_class_loaded($name) ) {
-        Class::MOP::load_class($name);
-    }
-
-    $api_to_test = $name;
-}
-
-sub test_api_method {
-    my $caller  = shift;
-    my $name    = shift;
-    my %options = @_;
-
-    my $meta   = $api_to_test->meta;
-    my $method = $meta->find_method_by_name($name);
-
-    if ( !$method ) {
-        die "method $name does not exists\n";
-    }
-
-    my $class = Moose::Meta::Class->initialize($caller);
-    foreach my $test_name ( keys %{ $options{tests} } ) {
-        foreach my $test ( @{ $options{tests}{$test_name} } ) {
-            __PACKAGE__->meta->add_method(
-                $test_name => sub {
-                    my $res    = $method->execute( $api_to_test->new );
-                    if (ref $test eq 'HASH') {
-                        my $action = $test->{test};
-                        my $result = $test->{expected};
-                        # XXX sucky sucky sucky
-                        if ( $action eq 'is_deeply' ) {
-                            is_deeply( $res, $result );
-                        }
-                    }else{
-                        if ($test eq 'ok') {
-                            ok $res;
-                        }
-                    }
-                }
-            );
-            $class->_add_api_test_method($test_name);
-        }
-    }
-}
-
-sub run {
-    my $caller = shift;
-
-    my $class = Moose::Meta::Class->initialize($caller);
-    my @test_methods = $class->local_api_test_methods();
-    foreach my $m (@test_methods) {
-        my $method = __PACKAGE__->meta->find_method_by_name($m);
-        $method->execute();
-    }
-}
-
-1;