Changeset 816 for trunk/UnitTestContrib/test/unit/Fn_SCRIPTURL.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_SCRIPTURL.pm (modified) (2 diffs)

trunk/UnitTestContrib/test/unit/Fn_SCRIPTURL.pm

@@ -5 +5 @@
 package Fn_SCRIPTURL;
 
-use base qw( TWikiFnTestCase );
+use base qw( FoswikiFnTestCase );
 
-use TWiki;
+use Foswiki;
 use Error qw( :try );
 
@@ -18 +18 @@
     my $this = shift;
 
-    $TWiki::cfg{ScriptUrlPaths}{snarf} = "sausages";
-    undef $TWiki::cfg{ScriptUrlPaths}{view};
-    $TWiki::cfg{ScriptSuffix} = ".dot";
+    $Foswiki::cfg{ScriptUrlPaths}{snarf} = "sausages";
+    undef $Foswiki::cfg{ScriptUrlPaths}{view};
+    $Foswiki::cfg{ScriptSuffix} = ".dot";
 
     my $result = $this->{twiki}->handleCommonTags("%SCRIPTURL%", $this->{test_web}, $this->{test_topic});
     $this->assert_str_equals(
-        "$TWiki::cfg{DefaultUrlHost}$TWiki::cfg{ScriptUrlPath}", $result);
+        "$Foswiki::cfg{DefaultUrlHost}$Foswiki::cfg{ScriptUrlPath}", $result);
 
     $result = $this->{twiki}->handleCommonTags(
         "%SCRIPTURLPATH{view}%", $this->{test_web}, $this->{test_topic});
-    $this->assert_str_equals("$TWiki::cfg{ScriptUrlPath}/view.dot", $result);
+    $this->assert_str_equals("$Foswiki::cfg{ScriptUrlPath}/view.dot", $result);
 
     $result = $this->{twiki}->handleCommonTags(