Add test for Qt.labs.platform

Author: barche

test/labsplatform.jl

@@ -0,0 +1,6 @@
+using QML
+using Test
+
+qmlfile = joinpath(dirname(@__FILE__), "qml", "labsplatform.qml")
+loadqml(qmlfile)
+exec()

test/qml/labsplatform.qml

@@ -0,0 +1,36 @@
+import QtQuick
+import QtQuick.Controls
+import Qt.labs.platform
+
+ApplicationWindow {
+  visible: true
+  width: 320
+  height: 240
+
+  MouseArea {
+    anchors.fill: parent
+    acceptedButtons: Qt.RightButton
+    onClicked: zoomMenu.open()
+  }
+
+  Menu {
+    id: zoomMenu
+
+    MenuItem {
+      text: qsTr("Zoom In")
+      shortcut: StandardKey.ZoomIn
+      onTriggered: zoomIn()
+    }
+
+    MenuItem {
+      text: qsTr("Zoom Out")
+      shortcut: StandardKey.ZoomOut
+      onTriggered: zoomOut()
+    }
+  }
+
+  Timer {
+    interval: 1000; running: true; repeat: false
+    onTriggered: Qt.exit(0)
+  }
+}