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

trunk/UnitTestContrib/test/unit/AddToHeadTests.pm

@@ -5 +5 @@
 package AddToHeadTests;
 
-use base qw( TWikiFnTestCase );
+use base qw( FoswikiFnTestCase );
 
-use TWiki;
+use Foswiki;
 use Error qw( :try );
 
@@ -71 +71 @@
     my $topicName = $this->{test_topic};
     my $webName   = $this->{test_web};
-    TWiki::Func::addToHEAD("first", "QQQ");
+    Foswiki::Func::addToHEAD("first", "QQQ");
     my $raw_tag  = '%RENDERHEAD%';
     my $expected = "<!-- first --> QQQ";
@@ -84 +84 @@
     my $topicName = $this->{test_topic};
     my $webName   = $this->{test_web};
-    TWiki::Func::addToHEAD("first", "QQQ FIRST");
-    TWiki::Func::addToHEAD("second", "QQQ SECOND", "third");
-    TWiki::Func::addToHEAD("third", "QQQ THIRD");
+    Foswiki::Func::addToHEAD("first", "QQQ FIRST");
+    Foswiki::Func::addToHEAD("second", "QQQ SECOND", "third");
+    Foswiki::Func::addToHEAD("third", "QQQ THIRD");
     my $raw_tag  = '%RENDERHEAD%';
     my $expected = "<!-- first --> QQQ FIRST"
@@ -107 +107 @@
     my $topicName = $this->{test_topic};
     my $webName   = $this->{test_web};
-    TWiki::Func::addToHEAD('PATTERN_STYLE','<link id="twikiLayoutCss" rel="stylesheet" type="text/css" href="PatternSkin/layout.css" media="all" />');
+    Foswiki::Func::addToHEAD('PATTERN_STYLE','<link id="twikiLayoutCss" rel="stylesheet" type="text/css" href="PatternSkin/layout.css" media="all" />');
     my $raw_tag  = '%RENDERHEAD%';
     my $expected = '<!-- PATTERN_STYLE --> <link id="twikiLayoutCss" rel="stylesheet" type="text/css" href="PatternSkin/layout.css" media="all" />';