basic/qa/basic_coverage/test_Property.GetLet.bas

   1 '
   2 ' This file is part of the LibreOffice project.
   3 '
   4 ' This Source Code Form is subject to the terms of the Mozilla Public
   5 ' License, v. 2.0. If a copy of the MPL was not distributed with this
   6 ' file, You can obtain one at http://mozilla.org/MPL/2.0/.
   7 '
   8
   9 Option Explicit
  10 Option Compatible
  11
  12 Function doUnitTest as String
  13   ' PROPERTY GET/LET
  14   aString = "Office"
  15   If ( aString <> "LibreOffice") Then
  16     doUnitTest = "FAIL" ' Ko
  17   Else
  18     doUnitTest = "OK" ' Ok
  19   End If
  20 End Function
  21
  22 Dim _pn As String
  23 Property Get aString As String
  24     aString = _pn
  25 End Property
  26 Property Let aString(value As String)
  27     _pn = "Libre"& value
  28 End Property