Item9352: unit tests to highlight the change in behaviour of Foswiki:…

…:Func::attachmentExists

git-svn-id: http://svn.foswiki.org/trunk@8242 0b4bb1d4-4e5a-0410-9cc4-b2b747904278

UnitTestContrib/test/unit/FuncTests.pm

@@ -1012,6 +1012,41 @@ sub test_copyAttachment {
 
 }
 
+sub test_attachmentExists {
+    my $this = shift;
+
+    my $topic = "AttachmentExists";
+
+    open( FILE, ">", "$Foswiki::cfg{TempfileDir}/testfile.txt" );
+    print FILE "one two three";
+    close( FILE );
+
+    Foswiki::Func::saveTopicText( $this->{test_web}, $topic, 'foo' );
+    Foswiki::Func::saveAttachment(
+        $this->{test_web}, $topic, "testfile.txt",
+        { file => "$Foswiki::cfg{TempfileDir}/testfile.txt",
+          comment => "a comment" } );
+
+    $this->assert(Foswiki::Func::attachmentExists( $this->{test_web}, $topic,
+                                                 "testfile.txt"));
+}
+
+sub test_attachmentExistsInMetaOnly {
+    my $this = shift;
+
+    my $topic = "AttachmentExistsInMetaOnly";
+    my $text = <<'HERE';
+foo
+
+%META:FILEATTACHMENT{name="Sample.txt" attr="" comment="Just a sample" date="964294620" path="Sample.txt" size="30" user="ProjectContributor" version=""}%
+HERE
+
+    Foswiki::Func::saveTopicText( $this->{test_web}, $topic, $text );
+
+    $this->assert(not Foswiki::Func::attachmentExists( $this->{test_web}, $topic,
+                                                 "Sample.txt"));
+}
+
 sub test_workarea {
     my $this = shift;