Item12117: remove embedded META: from testcases. They should be built…

… in the meta object and should not rely on the vagaries of the Meta extraction git-svn-id: http://svn.foswiki.org/trunk@15501 0b4bb1d4-4e5a-0410-9cc4-b2b747904278
foswiki · Oct 4, 2012 · ff4719c · ff4719c
1 parent 52a97da
commit ff4719c
Showing 1 changed file with 18 additions and 6 deletions.
diff --git a/UnitTestContrib/test/unit/Fn_REVINFO.pm b/UnitTestContrib/test/unit/Fn_REVINFO.pm
@@ -203,9 +203,15 @@ sub test_compatibility1 {
     }
     my ($topicObject) =
       Foswiki::Func::readTopic( $this->{test_web}, 'CrikeyMoses' );
-    $topicObject->text( <<'HERE');
-%META:TOPICINFO{author="ScumBag" date="1120846368" format="1.1" version="$Rev$"}%
-HERE
+    $topicObject->put(
+        'TOPICINFO',
+        {
+            author  => "ScumBag",
+            date    => "1120846368",
+            format  => "1.1",
+            version => '$Rev$'
+        }
+    );
     $topicObject->save();
     $topicObject->finish();
     ($topicObject) =
@@ -230,9 +236,15 @@ sub test_compatibility2 {
     }
     my ($topicObject) =
       Foswiki::Func::readTopic( $this->{test_web}, 'CrikeyMoses' );
-    $topicObject->text( <<'HERE');
-%META:TOPICINFO{author="scum" date="1120846368" format="1.1" version="$Rev$"}%
-HERE
+    $topicObject->put(
+        'TOPICINFO',
+        {
+            author  => "ScumBag",
+            date    => "1120846368",
+            format  => "1.1",
+            version => '$Rev$'
+        }
+    );
     $topicObject->save();
     $topicObject->finish();
     ($topicObject) =