Changeset 12558 for branches/scratch/UnitTestContrib/test/unit/PrefsTests.pm

Timestamp:

09/18/11 12:43:08 (20 months ago)

Author:

PaulHarvey

Message:

Item11135: wiring up the new store API - now the unit test infrastructure doesn't crash - next up, make some tests pass

File:

• branches/scratch/UnitTestContrib/test/unit/PrefsTests.pm (modified) (2 diffs)

branches/scratch/UnitTestContrib/test/unit/PrefsTests.pm

@@ -44 +44 @@
         my $webObject = Foswiki::Meta->new( $this->{session}, $TWiki::cfg{SystemWebName} );
         $webObject->populateNewWeb($original);
-        my $m =
-          Foswiki::Meta->load( $this->{session}, $original,
-            $TWiki::cfg{SitePrefsTopicName} );
-        $m->saveAs( $TWiki::cfg{SystemWebName},
-            $TWiki::cfg{SitePrefsTopicName} );
+
+        my $orig_sitepref = Foswiki::Store::load(address=>{web=>$original, topic=>$Foswiki::cfg{SitePrefsTopicName}});
+        my $m = Foswiki::Store::create(address=>{web=>$TWiki::cfg{SystemWebName}, topic=>$Foswiki::cfg{SitePrefsTopicName}}, data=>{_text=>$orig_sitepref->text()});
+        $m->save();
     }
     catch Foswiki::AccessControlException with {
@@ -80 +79 @@
     my $user = $fatwilly->{user};
     $this->assert_not_null($user);
-    my $topicObject = Foswiki::Meta->load( $fatwilly, $web, $topic );
+    my $topicObject = Foswiki::Store::load(address=>{web=>$web, topic=>$topic});
+
     my $text = $topicObject->text() || '';
     $text =~ s/^\s*\* $type $pref =.*$//gm;