Changeset 14071 for lang/perl/Sledge-View/trunk

Timestamp:

06/15/08 23:01:10 (5 years ago)

Author:

tokuhirom

Message:

r3504@gp (orig r154): tokuhiro | 2006-10-29 21:33:06 +0900

r4587@toco: tokuhiro | 2006-10-29 21:33:02 +0900
many changes.

Location:

lang/perl/Sledge-View/trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/Sledge/Plugin/View.pm (modified) (2 diffs)
• lib/Sledge/Response.pm (modified) (1 diff)
• t/00.load.t (modified) (1 diff)
• t/01.base.t (modified) (2 diffs)
• t/TestPages.pm (added)
• t/View (added)
• t/View/Text.pm (added)
• t/foo.html (added)

lang/perl/Sledge-View/trunk/Makefile.PL

@@ -7 +7 @@
 
 requires 'Class::Accessor::Fast' => 0;
+build_requires 'Class::Trigger' => 0;
 
 auto_install;

lang/perl/Sledge-View/trunk/lib/Sledge/Plugin/View.pm

@@ -9 +9 @@
 
     # add BEFORE_OUTPUT trigger
-    $pkg->__trigger_points(
-        %{ $pkg->__trigger_points },
-        BEFORE_OUTPUT => 1,
+    $pkg->__triggerpoints(
+        {
+            %{ $pkg->__triggerpoints },
+            BEFORE_OUTPUT => 1,
+        }
     );
 
@@ -21 +23 @@
         my $self = shift;
 
-        unless ($self->r->content_type) {
+        unless ($self->res->content_type) {
             # process the default view.
             $self->create_view->process;

lang/perl/Sledge-View/trunk/lib/Sledge/Response.pm

@@ -7 +7 @@
 
 1;
+
+=head1 NAME
+
+Sledge::Response - response object for Sledge
+
+=head1 SYNOPSIS
+
+    package Your::Pages;
+
+    sub dispatch_foo {
+        my $self = shift;
+        $self->response->content_type('text/html');
+        $self->response->body('hoge');
+    }
+
+=head1 DESCRIPTION
+
+HTTP response object for Sledge.
+
+=head1 METHODS
+
+=head2 body
+    
+HTTP Response body.
+
+=head2 content_type
+
+HTTP Response content_type.
+
+=head1 BUGS AND LIMITATIONS
+
+No bugs have been reported.
+
+=head1 AUTHOR
+
+Tokuhiro Matsuno  C<< <tokuhiro __at__ mobilefactory.jp> >>
+
+=head1 LICENCE AND COPYRIGHT
+
+Copyright (c) 2006, Tokuhiro Matsuno C<< <tokuhiro __at__ mobilefactory.jp> >>. All rights reserved.
+
+This module is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself. See L<perlartistic>.
+

lang/perl/Sledge-View/trunk/t/00.load.t

@@ -1 @@
-use Test::More tests => 1;
+use strict;
+use warnings;
+use Test::More tests => 4;
+use Class::Trigger qw/AFTER_INIT/;
+
+sub mk_accessors { 'dummy for testing' }
 
 BEGIN {
-use_ok( 'Sledge::View' );
+    use_ok( 'Sledge::View' );
+    use_ok( 'Sledge::Plugin::View' );
+    use_ok( 'Sledge::View::Template' );
+    use_ok( 'Sledge::Response' );
 }
 

lang/perl/Sledge-View/trunk/t/01.base.t

@@ -2 +2 @@
 use warnings;
 use Test::More;
+
 BEGIN {
-    eval q[use Test::Base];
-    plan skip_all => "Test::Base required for testing base" if $@;
+    eval q[use Test::Base;use t::TestPages];
+    plan skip_all => "Test::Base, t::TestPages required for testing base: $@" if $@;
+};
+plan tests => 1*blocks;
+
+run {
+    my $block = shift;
+
+    no warnings 'once';
+    local *t::TestPages::dispatch_foo = sub {
+        my $self = shift;
+        eval $block->input;
+        die $@ if $@;
+    };
+
+    my $page = t::TestPages->new;
+    $page->dispatch('foo');
+    is($page->output, $block->expected, $block->name);
 };
 
@@ -11 +28 @@
 === simple
 --- input
+$self->tmpl->param(abc => 'foo');
 --- expected
+Content-Length: 9
+Content-Type: text/html; charset=euc-jp
+
+abc: foo
+
+=== another view
+--- input
+use t::View::Text;
+$self->tmpl->param('text' => "boofy boofy\n");
+t::View::Text->new($self)->process;
+--- expected
+Content-Length: 12
+Content-Type: text/plain
+
+boofy boofy
+