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

trunk/UnitTestContrib/test/unit/AutoAttachTests.pm

@@ -3 +3 @@
 # Test cases:
 # 1) Autoattach = off. Save a topic referring to an attachmentMissing that does not exist.
-# 2) Add attachmentAdded into the attachment area for that topic, circumventing TWiki
+# 2) Add attachmentAdded into the attachment area for that topic, circumventing Foswiki
 # 3) Turn autoattach = on. Ask for the list of attachments. attachmentAdded should appear. attachmentMissing should not.
 
 package AutoAttachTests;
-use base qw(TWikiFnTestCase);
+use base qw(FoswikiFnTestCase);
 
 use strict;
-use TWiki;
-use TWiki::Meta;
+use Foswiki;
+use Foswiki::Meta;
 use Error qw( :try );
-use TWiki::UI::Save;
-use TWiki::OopsException;
+use Foswiki::UI::Save;
+use Foswiki::OopsException;
 use Devel::Symdump;
 
@@ -72 +72 @@
     my $this = shift;
     my ($topic, @filenames) = @_;
-    my $dir = $TWiki::cfg{PubDir};
+    my $dir = $Foswiki::cfg{PubDir};
     $dir = "$dir/$this->{test_web}/$topic";
     #print STDERR "DEBUG: dir=$dir\n";
@@ -94 +94 @@
 
 sub test_autoattach {
-#   print "Default AutoAttachPubFiles = $TWiki::cfg{AutoAttachPubFiles}\n";
-    $TWiki::cfg{AutoAttachPubFiles} = 1;
-#   print "AutoAttachPubFiles now = $TWiki::cfg{AutoAttachPubFiles}\n";
+#   print "Default AutoAttachPubFiles = $Foswiki::cfg{AutoAttachPubFiles}\n";
+    $Foswiki::cfg{AutoAttachPubFiles} = 1;
+#   print "AutoAttachPubFiles now = $Foswiki::cfg{AutoAttachPubFiles}\n";
 
     my $this = shift; 
@@ -103 +103 @@
     $this->verify_normal_attachment($topic, "afile.txt");
     $this->verify_normal_attachment($topic, "bfile.txt");
-    $this->addMissingAttachment($topic, 'bogusAttachment.txt', "I'm a figment of TWiki's imagination");
+    $this->addMissingAttachment($topic, 'bogusAttachment.txt', "I'm a figment of Foswiki's imagination");
     $this->addMissingAttachment($topic, 'ressurectedComment.txt', 'ressurected attachment comment');
     $this->sneakAttachmentsAddedToTopic($topic, 'sneakedfile1.txt','sneakedfile2.txt', 'commavfilesshouldbeignored2.txt,v','_hiddenAttachment.txt', 'ressurectedComment.txt');
@@ -169 +169 @@
     $this->assert($this->{twiki}->{store}->topicExists($this->{test_web}, $topic));
 
-    open( FILE, ">$TWiki::cfg{TempfileDir}/$attachment" );
+    open( FILE, ">$Foswiki::cfg{TempfileDir}/$attachment" );
     print FILE "Test attachment\n";
     close(FILE);
@@ -179 +179 @@
     $this->{twiki}->{store}->saveAttachment(
         $this->{test_web}, $topic, $attachment, $this->{test_user_wikiname},
-        { file => "$TWiki::cfg{TempfileDir}/$attachment", comment => 'comment 1' } );
-
-    unlink "$TWiki::cfg{TempfileDir}/$attachment";
+        { file => "$Foswiki::cfg{TempfileDir}/$attachment", comment => 'comment 1' } );
+
+    unlink "$Foswiki::cfg{TempfileDir}/$attachment";
 
     # Check revision number