Changeset 816 for trunk/UnitTestContrib/test/unit/Fn_USERINFO.pm

Timestamp:

11/19/08 19:11:33 (4 years ago)

Author:

CrawfordCurrie

Message:

Item175: ported unit tests to new namespace. They all pass.

File:

• trunk/UnitTestContrib/test/unit/Fn_USERINFO.pm (modified) (5 diffs)

trunk/UnitTestContrib/test/unit/Fn_USERINFO.pm

@@ -5 +5 @@
 package Fn_USERINFO;
 
-use base qw( TWikiFnTestCase );
+use base qw( FoswikiFnTestCase );
 
-use TWiki;
+use Foswiki;
 use Error qw( :try );
 
 sub new {
-    $TWiki::cfg{Register}{AllowLoginName}    =  1;
+    $Foswiki::cfg{Register}{AllowLoginName}    =  1;
     my $self = shift()->SUPER::new('USERINFO', @_);
     return $self;
@@ -28 +28 @@
     my $this = shift;
 
-    $TWiki::cfg{AntiSpam}{HideUserDetails} = 0;
+    $Foswiki::cfg{AntiSpam}{HideUserDetails} = 0;
     my $ui = $this->{twiki}->handleCommonTags(
         '%USERINFO%', $this->{test_web}, $this->{test_topic});
     $this->assert_str_equals(
-        $TWiki::cfg{DefaultUserLogin}.", $TWiki::cfg{UsersWebName}.".$TWiki::cfg{DefaultUserWikiName}.", ", $ui);
+        $Foswiki::cfg{DefaultUserLogin}.", $Foswiki::cfg{UsersWebName}.".$Foswiki::cfg{DefaultUserWikiName}.", ", $ui);
 }
 
@@ -38 +38 @@
     my $this = shift;
 
-    $TWiki::cfg{AntiSpam}{HideUserDetails} = 0;
+    $Foswiki::cfg{AntiSpam}{HideUserDetails} = 0;
     my $ui = $this->{twiki}->handleCommonTags('%USERINFO{"ScumBag"}%', $this->{test_web}, $this->{test_topic});
     $this->assert_str_equals(
-        "scum, $TWiki::cfg{UsersWebName}.ScumBag, scumbag\@example.com", $ui);
+        "scum, $Foswiki::cfg{UsersWebName}.ScumBag, scumbag\@example.com", $ui);
 }
 
@@ -47 +47 @@
     my $this = shift;
 
-    $TWiki::cfg{AntiSpam}{HideUserDetails} = 0;
+    $Foswiki::cfg{AntiSpam}{HideUserDetails} = 0;
     my $ui = $this->{twiki}->handleCommonTags('%USERINFO{"scum"}%', $this->{test_web}, $this->{test_topic});
     $this->assert_str_equals(
-        "scum, $TWiki::cfg{UsersWebName}.ScumBag, scumbag\@example.com", $ui);
+        "scum, $Foswiki::cfg{UsersWebName}.ScumBag, scumbag\@example.com", $ui);
 }
 
@@ -56 +56 @@
     my $this = shift;
 
-    $TWiki::cfg{AntiSpam}{HideUserDetails} = 0;
+    $Foswiki::cfg{AntiSpam}{HideUserDetails} = 0;
     my $ui = $this->{twiki}->handleCommonTags('%USERINFO{"ScumBag" format="W$wikiusernameU$wikinameE$emailsG$groupsE"}%', $this->{test_web}, $this->{test_topic});
     $this->assert_str_equals(
-        "W$TWiki::cfg{UsersWebName}.ScumBagUScumBagEscumbag\@example.comGGropeGroupE", $ui);
+        "W$Foswiki::cfg{UsersWebName}.ScumBagUScumBagEscumbag\@example.comGGropeGroupE", $ui);
 
     my $guest_ui = $this->{twiki}->handleCommonTags('%USERINFO{"WikiGuest" format="W$wikiusernameU$wikinameE$emailsG$groupsE"}%', $this->{test_web}, $this->{test_topic});
     $this->assert_str_equals(
-                "WTemporaryUSERINFOUsersWeb.WikiGuestUWikiGuestEGTWikiBaseGroup, GropeGroupE", $guest_ui);
+                "WTemporaryUSERINFOUsersWeb.WikiGuestUWikiGuestEGBaseGroup, GropeGroupE", $guest_ui);
 }