Changeset 811 for trunk/CommentPlugin/test/unit/CommentPlugin/CommentPluginTests.pm

Timestamp:

11/19/08 15:00:00 (4 years ago)

Author:

CrawfordCurrie

Message:

Item175: port a subset of the standard extensions over to the new namespace to make a working system with mixed TWiki and Foswiki plugins

File:

• trunk/CommentPlugin/test/unit/CommentPlugin/CommentPluginTests.pm (modified) (12 diffs)

trunk/CommentPlugin/test/unit/CommentPlugin/CommentPluginTests.pm

@@ -8 +8 @@
 use Unit::Request;
 use Unit::Response;
-use TWiki;
-use TWiki::UI::Save;
-use TWiki::Plugins::CommentPlugin;
-use TWiki::Plugins::CommentPlugin::Comment;
+use Foswiki;
+use Foswiki::UI::Save;
+use Foswiki::Plugins::CommentPlugin;
+use Foswiki::Plugins::CommentPlugin::Comment;
 use CGI;
 
@@ -34 +34 @@
 sub writeTopic {
     my( $this, $web, $topic, $text ) = @_;
-    my $meta = new TWiki::Meta($this->{twiki}, $web, $topic);
+    my $meta = new Foswiki::Meta($this->{twiki}, $web, $topic);
     $this->{twiki}->{store}->saveTopic(
         $this->{twiki}->{user}, $web, $topic, $text, $meta );
@@ -69 +69 @@
     }
 
-    my $url = "$TWiki::cfg{DefaultUrlHost}$TWiki::cfg{ScriptUrlPath}/save$TWiki::cfg{ScriptSuffix}/$web/$topic";
+    my $url = "$Foswiki::cfg{DefaultUrlHost}$Foswiki::cfg{ScriptUrlPath}/save$Foswiki::cfg{ScriptSuffix}/$web/$topic";
 
     if ( $location ) {
@@ -103 +103 @@
     my $pidx = $eidx;
     my $html =
-      TWiki::Plugins::CommentPlugin::Comment::_handleInput(
+      Foswiki::Plugins::CommentPlugin::Comment::_handleInput(
           $sattrs,
           $this->{test_web},
@@ -196 +196 @@
     }
 
-    my $session = new TWiki( $TWiki::cfg{DefaultUserLoginName}, $query);
+    my $session = new Foswiki( $Foswiki::cfg{DefaultUserLoginName}, $query);
     my $text = "Ignore this text";
 
     # invoke the save handler
-    $this->capture(\&TWiki::UI::Save::save, $session );
-
-    $text = TWiki::Func::readTopicText($web, $topic);
+    $this->capture(\&Foswiki::UI::Save::save, $session );
+
+    $text = Foswiki::Func::readTopicText($web, $topic);
     $this->assert_matches(qr/$comm/, $text, "$web.$topic: $text");
 
@@ -278 +278 @@
     my $pidx = 0;
     my $html =
-      TWiki::Plugins::CommentPlugin::Comment::_handleInput
+      Foswiki::Plugins::CommentPlugin::Comment::_handleInput
           ("rows=99 cols=104 mode=after button=HoHo id=sausage",,
            $this->{test_topic},
@@ -296 +296 @@
     my $pidx = 0;
     my $html =
-      TWiki::Plugins::CommentPlugin::Comment::_handleInput
+      Foswiki::Plugins::CommentPlugin::Comment::_handleInput
           ("target=\"$this->{test_web}.ATopic#AAnchor\" location=\"AnRE\"",
            $this->{test_topic},
@@ -318 +318 @@
     my $pidx = 0;
     my $html =
-      TWiki::Plugins::CommentPlugin::Comment::_handleInput(
+      Foswiki::Plugins::CommentPlugin::Comment::_handleInput(
           'nopost="on"',
           $this->{test_web},
@@ -339 +339 @@
     $query->path_info("/$this->{test_web}/$this->{test_topic}");
 
-    my $session = new TWiki( $TWiki::cfg{DefaultUserLoginName}, $query);
+    my $session = new Foswiki( $Foswiki::cfg{DefaultUserLoginName}, $query);
     my $text = "Ignore this text";
 
     # invoke the save handler
-    $this->capture(\&TWiki::UI::Save::save, $session );
-
-    $text = TWiki::Func::readTopicText($this->{test_web}, $this->{test_topic});
+    $this->capture(\&Foswiki::UI::Save::save, $session );
+
+    $text = Foswiki::Func::readTopicText($this->{test_web}, $this->{test_topic});
     # make sure it hasn't changed
     $text =~ s/^%META.*?\n//gm;
@@ -362 +362 @@
     my $pidx = 99;
     my $html =
-      TWiki::Plugins::CommentPlugin::Comment::_handleInput(
+      Foswiki::Plugins::CommentPlugin::Comment::_handleInput(
           'remove="on"',
           $this->{test_web},
@@ -384 +384 @@
     $query->path_info("/$this->{test_web}/$this->{test_topic}");
 
-    my $session = new TWiki( $TWiki::cfg{DefaultUserLoginName}, $query);
+    my $session = new Foswiki( $Foswiki::cfg{DefaultUserLoginName}, $query);
     my $text = "Ignore this text";
 
     # invoke the save handler
-    $this->capture(\&TWiki::UI::Save::save, $session );
-
-    $text = TWiki::Func::readTopicText($this->{test_web}, $this->{test_topic});
+    $this->capture(\&Foswiki::UI::Save::save, $session );
+
+    $text = Foswiki::Func::readTopicText($this->{test_web}, $this->{test_topic});
     # make sure it hasn't changed
     $text =~ s/^%META.*?\n//gm;
@@ -411 +411 @@
     my $pidx = 99;
     my $html =
-      TWiki::Plugins::CommentPlugin::Comment::_handleInput(
+      Foswiki::Plugins::CommentPlugin::Comment::_handleInput(
           'default="wibble"',
           $this->{test_web},