CHG: Use only valid Frame sets

qadevOOo/tests/basic/ifc/text/BaseFrame/text_BaseFrame.xba

@@ -7,9 +7,9 @@
 '*
 '*  $RCSfile: text_BaseFrame.xba,v $ 
 '*
-'*  $Revision: 1.1 $ 
+'*  $Revision: 1.2 $ 
 '*
-'*  last change:$Date: 2003-01-27 17:53:44 $ 
+'*  last change:$Date: 2003-01-30 14:14:12 $ 
 '*
 '*  The Contents of this file are made available subject to the terms of
 '*  either of the following licenses
@@ -78,8 +78,15 @@ Sub RunTest()
 On Error Goto ErrHndl
     Dim bOK As Boolean
 
-
-    PropertyTester.TestProperty("FrameStyleName")
+    Dim FrameStyles(6) as String
+    FrameStyles(0) = "Formula"
+    FrameStyles(1) = "Graphics"
+    FrameStyles(2) = "Marginalia"
+    FrameStyles(3) = "OLE"
+    FrameStyles(4) = "Labels"
+    FrameStyles(5) = "Watermark"
+    FrameStyles(6) = "Frame"
+    PropertyTester.TestProperty("FrameStyleName", FrameStyles())
 
 Exit Sub
 ErrHndl: