From d72f5a22b348d770388ea7bcae72221c1b109460 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Sun, 20 Dec 2009 15:54:14 +0100
Subject: remove tests, not clean enough

---
 lib/MooseX/Net/API/Test.pm | 89 ----------------------------------------------
 1 file changed, 89 deletions(-)
 delete mode 100644 lib/MooseX/Net/API/Test.pm

(limited to 'lib/MooseX/Net/API')

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;
-- 
cgit 1.4.1