Changeset 23562

Timestamp:

11/13/08 19:50:49 (5 years ago)

Author:

tokuhirom

Message:

added more test cases

Location:

lang/perl/MENTA/trunk

Files:

• NOTE (modified) (1 diff)
• t/Utils.pm (modified) (1 diff)
• t/form_post.t (added)

lang/perl/MENTA/trunk/NOTE

@@ -35 +35 @@
     template に include を実装する(NanoA からぱくる)
     テストを十分に書く。安定したフレームワークにするためにはテストが必須だ。
+    HTML エスケープは自動でかける
 

lang/perl/MENTA/trunk/t/Utils.pm

@@ -15 +15 @@
     $ENV{CONTENT_LENGTH} = $args{CONTENT_LENGTH} || 0;
     $ENV{PATH_INFO} = $args{PATH_INFO} || '/';
+    $ENV{QUERY_STRING} = $args{QUERY_STRING} || '';
+    $ENV{REQUEST_METHOD} = $args{REQUEST_METHOD} || 'GET';
 
     chdir 'app';