Changeset 337

Timestamp:

10/05/07 01:46:12 (2 years ago)

Author:

eevee

Message:

M t/lib/Veekun/Test/FakeContext.pm

Location:

veekun/trunk/t

Files:

• dex-search.t (modified) (1 diff)
• lib/Veekun/Test/FakeContext.pm (modified) (2 diffs)

veekun/trunk/t/dex-search.t

@@ -7 +7 @@
 use Test::Simple 'no_plan';
 
-use Veekun::Test::FakeContext;
-
 BEGIN { $ENV{CATALYST_DEBUG} = 0; }
 use Vee;
-use aliased 'Vee::Controller::Dex::Search' => 'C';
 
-my $context = Veekun::Test::FakeContext->new;
-use Data::Dumper; warn Dumper $context->req;
-C->pokemon_search($context);
-my @results = @{ $context->stash->{results} || [] };
-
-warn join ', ', map { $_->name } @results;
+my @results = do_search( name => 'eon' );
+use Data::Dumper; $Data::Dumper::Maxdepth = 3; warn Dumper(\@results);
+warn $results[0]->name;
+warn $results[0]->has_column_loaded('name');
 
 ok 1;
+
+
+
+sub do_search {
+    my %params = @_;
+    my $context = Vee->prepare;
+    for my $key (keys %params) {
+        $context->req->params->{$key} = $params{$key};
+    }
+    Vee::Controller::Dex::Search->pokemon_search($context);
+    return @{ $context->stash->{results} || [] };
+}

veekun/trunk/t/lib/Veekun/Test/FakeContext.pm

@@ -4 +4 @@
 use warnings;
 use base 'Class::Accessor::Fast';
-
-use Veekun::Test::FakeRequest;
-
-__PACKAGE__->mk_accessors(qw/ stash request debug /);
 
 *req = \&request;
@@ -36 +32 @@
 
     my $self = $class->SUPER::new;
-    $self = new Catalyst;
-    $self->stash( {} );
+    $self = Vee->prepare;
     $self->debug( $ENV{CATALYST_DEBUG} );
-    $self->request( Veekun::Test::FakeRequest->new( {
-        parameters => {
-            name => 'vee',
-        },
-    } ) );
-
     return $self;
 }
 
-# pass along to model
-sub model {
-    my $self = shift;
-#    goto &;
+use Carp qw/confess/;
+our $AUTOLOAD;
+sub AUTOLOAD {
+    confess "no such method $AUTOLOAD; @_";
 }