[Yapcom-commit] rev 84 - lib/YAPC t

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

Author: gabor
Date: 2003-11-27 23:14:00 +0200 (Thu, 27 Nov 2003)
New Revision: 84

Modified:
   lib/YAPC/Login.pm
   lib/YAPC/Organizer.pm
   t/02-login.t
   t/03-web-adduser.t
Log:
acknowladgd -> validated

Modified: lib/YAPC/Login.pm
===================================================================
--- lib/YAPC/Login.pm	2003-11-27 21:08:12 UTC (rev 83)
+++ lib/YAPC/Login.pm	2003-11-27 21:14:00 UTC (rev 84)
@@ -44,7 +44,7 @@
    my @people = YAPC::Person->search(email => $args{email}, password => $args{password});
    croak("Too many users fit the description\n") if @people > 1;
    croak("No match found\n") if @people == 0;
-   throw YAPC::Error("Not acknowladged") if not $people[0]->acked;
+   throw YAPC::Error("Not validated.") if not $people[0]->acked;
 
    $self->create({user_id => $people[0]->id}); 
 }

Modified: lib/YAPC/Organizer.pm
===================================================================
--- lib/YAPC/Organizer.pm	2003-11-27 21:08:12 UTC (rev 83)
+++ lib/YAPC/Organizer.pm	2003-11-27 21:14:00 UTC (rev 84)
@@ -421,8 +421,7 @@
     } 
     catch YAPC::Error with {
       my $er = shift;
-      $t->param(MESSAGE => "$er");
-      #$t->param(MESSAGE => 'Login failed.');
+      $t->param(MESSAGE => $er);
       return $t->output;
     } 
     catch Error with {

Modified: t/02-login.t
===================================================================
--- t/02-login.t	2003-11-27 21:08:12 UTC (rev 83)
+++ t/02-login.t	2003-11-27 21:14:00 UTC (rev 84)
@@ -34,7 +34,7 @@
   catch YAPC::Error with {
      $ex = shift;
   };
-  like($ex, qr/Not acknowladged/, 'Login to not acknowladged account failed');
+  like($ex, qr/Not validated./, 'Login to not acknowladged account failed');
 }
 
 

Modified: t/03-web-adduser.t
===================================================================
--- t/03-web-adduser.t	2003-11-27 21:08:12 UTC (rev 83)
+++ t/03-web-adduser.t	2003-11-27 21:14:00 UTC (rev 84)
@@ -165,7 +165,7 @@
    my $webapp = YAPC::Organizer->new;
    $webapp->query($q);
    my $result = $webapp->run();
-   like($result, qr/Not acknowladged/, 'login fails if not validated');
+   like($result, qr/Not validated./, 'login fails if not validated');
 }
 
 ##### show information about one person before validation should fail

• [Yapcom-commit] rev 84 - lib/YAPC t svn 23:14 on 27 Nov 2003

Generated at 23:55 on 27 Nov 2003 by mariachi 0.51