fixed inheritance test
Christian Hansen [Thu, 24 Mar 2005 01:50:31 +0000 (01:50 +0000)]
t/17inheritance.t

index fa187e5..334b196 100644 (file)
@@ -16,17 +16,17 @@ TestApp->action(
 
     '!begin' => sub {
         my ( $self, $c ) = @_;
-        $c->res->output( 'foo' . $c->res->output  );
+        $c->res->output( 'foo' );
     },
 
     '!default' => sub { 
         my ( $self, $c ) = @_;
-        $c->res->output( 'foo' . $c->res->output );
+        $c->res->output( $c->res->output . 'foo' );
      },
 
     '!end' => sub {
         my ( $self, $c ) = @_;
-        $c->res->output( 'foo' . $c->res->output );
+        $c->res->output( $c->res->output . 'foo');
     },
 );
 
@@ -65,4 +65,6 @@ use Data::Dumper;
 {
     my $response = request('/foo/bar');
     ok( $response->content =~ /foobarfoobarfoobar/ );
+    warn $response->content;
+
 }