fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2012-09-27 18:32 UTC+0200 Viktor Szakats (vszakats syenar.net)

Browse Source 
+ contrib/hbexpat/tests/test.xml
  * contrib/hbexpat/tests/test.prg
  * contrib/hbexpat/tests/tohash.prg
    + added local test xml file for expat test functions
This commit is contained in:
Viktor Szakats
2012-09-27 16:32:50 +00:00
parent 9e6101cc0a
commit 41c7c055d8
4 changed files with 97 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -16,6 +16,12 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-09-27 18:32 UTC+0200 Viktor Szakats (vszakats syenar.net)
+ contrib/hbexpat/tests/test.xml
* contrib/hbexpat/tests/test.prg
* contrib/hbexpat/tests/tohash.prg
+ added local test xml file for expat test functions
2012-09-27 18:27 UTC+0200 Viktor Szakats (vszakats syenar.net)
+ contrib/gtwvg/tests/activex.prg
+ contrib/gtwvg/tests/cuigdlgs.prg

2
harbour/contrib/hbexpat/tests/test.prg
View File

@@ -18,7 +18,7 @@ PROCEDURE Main( cFileName )
LOCAL v1, v2, v3
IF cFileName == NIL
cFileName := ".." + hb_ps() + ".." + hb_ps() + "hbide" + hb_ps() + "setup.ui"
cFileName := hb_DirBase() + "test.xml"
ENDIF
OutStd( XML_ExpatVersion(), hb_eol() )

89
harbour/contrib/hbexpat/tests/test.xml Normal file
View File

@@ -0,0 +1,89 @@
<?xml version="1.0" encoding="UTF-8"?>
<ui version="4.0">
<class>Form</class>
<widget class="QWidget" name="Form">
<property name="geometry">
<rect>
<x>0</x>
<y>0</y>
<width>413</width>
<height>522</height>
</rect>
</property>
<property name="windowTitle">
<string>Editor</string>
</property>
<layout class="QGridLayout" name="gridLayout">
<item row="0" column="0" colspan="8">
<widget class="QPlainTextEdit" name="plainText"/>
</item>
<item row="1" column="0" colspan="4">
<widget class="QLineEdit" name="ediSearch"/>
</item>
<item row="2" column="0">
<widget class="QToolButton" name="buttonNext">
<property name="text">
<string>...</string>
</property>
</widget>
</item>
<item row="2" column="1">
<widget class="QToolButton" name="buttonPrev">
<property name="text">
<string>...</string>
</property>
</widget>
</item>
<item row="2" column="2">
<widget class="QToolButton" name="buttonFirst">
<property name="text">
<string>...</string>
</property>
</widget>
</item>
<item row="2" column="3">
<widget class="QToolButton" name="buttonLast">
<property name="text">
<string>...</string>
</property>
</widget>
</item>
<item row="2" column="7">
<widget class="QPushButton" name="buttonClose">
<property name="text">
<string>Close</string>
</property>
</widget>
</item>
<item row="2" column="4">
<spacer name="horizontalSpacer">
<property name="orientation">
<enum>Qt::Horizontal</enum>
</property>
<property name="sizeHint" stdset="0">
<size>
<width>40</width>
<height>20</height>
</size>
</property>
</spacer>
</item>
<item row="2" column="6">
<widget class="QPushButton" name="buttonSave">
<property name="text">
<string>Save</string>
</property>
</widget>
</item>
<item row="2" column="5">
<widget class="QPushButton" name="buttonSaveAs">
<property name="text">
<string>SaveAs</string>
</property>
</widget>
</item>
</layout>
</widget>
<resources/>
<connections/>
</ui>

2
harbour/contrib/hbexpat/tests/tohash.prg
View File

@@ -35,7 +35,7 @@ PROCEDURE Main( cFileName )
hb_cdpSelect( "UTF8EX" )
IF cFileName == NIL
cFileName := ".." + hb_ps() + ".." + hb_ps() + "hbide" + hb_ps() + "setup.ui"
cFileName := hb_DirBase() + "test.xml"
ENDIF
OutStd( XML_ExpatVersion() + hb_eol() )