[Yapcom checkin] rev 37 - / t

[prev] [thread] [next] [lurker] [Date index for 2003/11/25]

Author: gabor
Date: 2003-11-25 06:52:41 +0200 (Tue, 25 Nov 2003)
New Revision: 37

Modified:
   MANIFEST
   t/11-web-admin.t
Log:
fix test for run mode exploit

Modified: MANIFEST
===================================================================
--- MANIFEST	2003-11-24 23:54:16 UTC (rev 36)
+++ MANIFEST	2003-11-25 04:52:41 UTC (rev 37)
@@ -64,6 +64,7 @@
 templates/lost_validation.tmpl
 templates/change_password.tmpl
 templates/message.tmpl
+templates/presentations.tmpl
 docs/announcement_call_for_papers_hebrew.doc
 docs/announcement_call_for_papers_english.doc
 docs/sponsorship_letter_hebrew.doc

Modified: t/11-web-admin.t
===================================================================
--- t/11-web-admin.t	2003-11-24 23:54:16 UTC (rev 36)
+++ t/11-web-admin.t	2003-11-25 04:52:41 UTC (rev 37)
@@ -99,13 +99,12 @@
 
 ### access admin page(s)  by unauthenticated user using run=admin  on the URL 
 foreach my $page (qw(admin admin_list_people admin_list_proposals)) {
-   local $TODO = 'break-in using run mode';
    local $ENV{REQUEST_URI}   = '/index.html';
    my $q = CGI->new({run => $page});
    my $webapp = YAPC::Organizer->new;
    $webapp->query($q);
    my $result = $webapp->run();
-   like($result, qr/<h2>Login/, 'Could not fetch admin page(s)');
+   like($result, qr/2nd Perl Conference in Israel/, 'Could not fetch admin page(s) - gets the page really requested');
 }
 
 

• [Yapcom checkin] rev 37 - / t svn 06:52 on 25 Nov 2003

Generated at 09:06 on 25 Nov 2003 by mariachi 0.51