graphicsapitest/graphicssvs/wserv/scripts/GRAPHICS-WSERV-Events-PublicApi.script
author Faisal Memon <faisal.memon@nokia.com>
Thu, 06 May 2010 11:31:11 +0100
branchNewGraphicsArchitecture
changeset 47 48b924ae7197
parent 0 5d03bc08d59c
permissions -rw-r--r--
Applied patch 1, to provide a syborg specific minigui oby file. Need to compare this with the "stripped" version currently in the tree. This supplied version applies for Nokia builds, but need to repeat the test for SF builds to see if pruning is needed, or if the file needs to be device-specific.

//
// Copyright (c) 2005-2009 Nokia Corporation and/or its subsidiary(-ies).
// All rights reserved.
// This component and the accompanying materials are made available
// under the terms of "Eclipse Public License v1.0"
// which accompanies this distribution, and is available
// at the URL "http://www.eclipse.org/legal/epl-v10.html".
//
// Initial Contributors:
// Nokia Corporation - initial contribution.
//
// Contributors:
//
// Description:
//
//! @file
//! @SYMTestSuiteName		GRAPHICS-WSERV-Events-PublicApi
//! @SYMScriptTestEnvironment	This test script requires a basic ROM.

///////////////////////////////////////////////////////////////////////////////
// GRAPHICS-WSERV-Events-PublicApi.script
//
// Tests all public elements of the RWsSession class
// as a means of confidence that the API works as expected.
//
// The purpose is to provide a regression test suite of PublishedAll APIs for
// RWsSession related classes.
// Negative testing is performed to confirm that correct errors are returned
// when incorrect parameters are given.
//
// The tests are fully automated.
///////////////////////////////////////////////////////////////////////////////


LOAD_SUITE	T_GraphicsWservAPI


// ****************************************************************************
// RWsEvent
// ****************************************************************************

START_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0001
//! @SYMTestCaseID		GRAPHICS-WSERV-Events-PublicApi-0001
//! @SYMAPI			TWsEvent
//! @SYMAuthor			Sunny Yeh
//! @SYMCreationDate		18/12/2007
//! @SYMTestCaseDesc		TWsEvent(): create a TWsEvent object by C++ defaut constructor
//!				Uses API elements: TWsEvent(),Type()
//! @SYMTestActions		1. use new() to create a RWsSession and TWsEvent object
//!				2. use Connect() to make a connection with window server
//!				3. use new() and Construct() to create a RWindowGroup
//!				4. use EventReady() to request standard events from the window server
//!				5. Wait for an event, A EEventFocusGained event should be triggered from the RWindowGroup::Construct
//!				6. Get the event
//!				7. use Type() to get the type of event that occurred
//!				8. Close the session
//! @SYMTestStatus		Implemented
//! @SYMTestPriority		Low
//! @SYMTestExpectedResults	TWsEvent Type should be EEventFocusGained
//! @SYMTestType		CIT
	START_TEST_BLOCK	10		T_GraphicsWservAPI		\graphics\GRAPHICS-WSERV-Events-PublicApi.ini
		CREATE_OBJECT	RWsSession	ws
		CREATE_OBJECT	TWsEvent	we
		CREATE_OBJECT	RWindowGroup	wingrp
		COMMAND		ws		new
		COMMAND		we		new
		COMMAND		ws		Connect
		COMMAND		wingrp		new				GRAPHICS-WSERV-Events-PublicApi-0001-0001-new_command04
		COMMAND		wingrp		Construct			GRAPHICS-WSERV-Events-PublicApi-0001-0001-Construct_command05
		COMMAND		ws		EventReady
		OUTSTANDING
		COMMAND		ws		GetEvent			GRAPHICS-WSERV-Events-PublicApi-0001-0001-GetEvent_command07
		COMMAND		we		Type				GRAPHICS-WSERV-Events-PublicApi-0001-0001-Type_command08
		COMMAND		wingrp		Close
		COMMAND		ws		Close
	END_TEST_BLOCK
END_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0001


START_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0002
//! @SYMTestCaseID		GRAPHICS-WSERV-Events-PublicApi-0002
//! @SYMAPI			TWsEvent
//! @SYMAuthor			Sunny Yeh
//! @SYMCreationDate		17/09/2007
//! @SYMTestCaseDesc		Int(): get the event data as a TInt
//!				Uses API elements: TWsEvent::Type & SetType, Int
//! @SYMTestActions		1. use new() to create a TWsEvent object
//!				2. use SetType() to set event type to EEventUser
//!				3. use Type() to get and check the event type = EEventUser
//!				4. execute Int() and set the event data as TInt=100
//!				5. execute Int() to get and check if the event data is TInt=100
//!				6. Destruct the TWsEvent object
//! @SYMTestStatus		Implemented
//! @SYMTestPriority		Low
//! @SYMTestExpectedResults	No errors
//! @SYMTestType		CIT
	START_TEST_BLOCK	10		T_GraphicsWservAPI		\graphics\GRAPHICS-WSERV-Events-PublicApi.ini
		CREATE_OBJECT	TWsEvent	we
		COMMAND		we		new
		COMMAND		we		SetType				GRAPHICS-WSERV-Events-PublicApi-0002-0001-SetType_command01
		COMMAND		we		Type				GRAPHICS-WSERV-Events-PublicApi-0002-0001-Type_command02
		COMMAND		we		Int				GRAPHICS-WSERV-Events-PublicApi-0002-0001-Int_command03
		COMMAND		we		Int				GRAPHICS-WSERV-Events-PublicApi-0002-0001-Int_command04
		COMMAND		we		~
	END_TEST_BLOCK
END_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0002


START_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0003
//! @SYMTestCaseID		GRAPHICS-WSERV-Events-PublicApi-0003
//! @SYMAPI			TWsEvent
//! @SYMAuthor			Sunny Yeh
//! @SYMCreationDate		17/09/2007
//! @SYMTestCaseDesc		ErrorMessage(): Gets an error event
//!				Uses API elements: TWsEvent::Type & SetType, ErrorMessage
//! @SYMTestActions		1. use new() to create a TWsEvent object
//!				2. use SetType() to set event type to EEventUser
//!				3. use Type() to get and check the event type = EEventUser
//!				4. execute ErrorMessage() and set the error category to 100 and error to 200
//!				5. execute ErrorMessage() to get and check if the error category and error as expected
//!				6. Destruct the TWsEvent object
//! @SYMTestStatus		Implemented
//! @SYMTestPriority		Low
//! @SYMTestExpectedResults	No errors
//! @SYMTestType		CIT
	START_TEST_BLOCK	10		T_GraphicsWservAPI		\graphics\GRAPHICS-WSERV-Events-PublicApi.ini
		CREATE_OBJECT	TWsEvent	we
		COMMAND		we		new
		COMMAND		we		SetType				GRAPHICS-WSERV-Events-PublicApi-0003-0001-SetType_command01
		COMMAND		we		Type				GRAPHICS-WSERV-Events-PublicApi-0003-0001-Type_command02
		COMMAND		we		ErrorMessage			GRAPHICS-WSERV-Events-PublicApi-0003-0001-ErrorMessage_command03
		COMMAND		we		ErrorMessage			GRAPHICS-WSERV-Events-PublicApi-0003-0001-ErrorMessage_command04
		COMMAND		we		~
	END_TEST_BLOCK
END_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0003


START_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0004
//! @SYMTestCaseID		GRAPHICS-WSERV-Events-PublicApi-0004
//! @SYMAPI			TWsEvent
//! @SYMAuthor			Sunny Yeh
//! @SYMCreationDate		17/09/2007
//! @SYMTestCaseDesc		EventData(): Gets information about the event
//!				Uses API elements: TWsEvent::Type & SetType, EventData
//! @SYMTestActions		1. use new() to create a TWsEvent object
//!				2. use SetType() to set event type to EEventUser
//!				3. use Type() to get and check the event type = EEventUser
//!				4. execute EventData() and set the event data of first 3 bytes to 10, 20, 30
//!				5. execute EventData() to get and check if the event data of the first 3 bytes as expected
//!				6. Destruct the TWsEvent object
//! @SYMTestStatus		Implemented
//! @SYMTestPriority		Low
//! @SYMTestExpectedResults	No errors
//! @SYMTestType		CIT
	START_TEST_BLOCK	10		T_GraphicsWservAPI		\graphics\GRAPHICS-WSERV-Events-PublicApi.ini
		CREATE_OBJECT	TWsEvent	we
		COMMAND		we		new
		COMMAND		we		SetType				GRAPHICS-WSERV-Events-PublicApi-0004-0001-SetType_command01
		COMMAND		we		Type				GRAPHICS-WSERV-Events-PublicApi-0004-0001-Type_command02
		COMMAND		we		EventData			GRAPHICS-WSERV-Events-PublicApi-0004-0001-EventData_command03
		COMMAND		we		EventData			GRAPHICS-WSERV-Events-PublicApi-0004-0001-EventData_command04
		COMMAND		we		~
	END_TEST_BLOCK
END_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0004


START_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0005
//! @SYMTestCaseID		GRAPHICS-WSERV-Events-PublicApi-0005
//! @SYMAPI			TWsEvent
//! @SYMAuthor			Sunny Yeh
//! @SYMCreationDate		18/12/2007
//! @SYMTestCaseDesc		SetHandle(), Handle(): Set and Get the window handle
//!				Uses API elements: TWsEvent(),SetHandle(),Handle()
//! @SYMTestActions		1. use new() to create a TWsEvent object
//!				2. use SetHandle() to set the handle
//!				3. use Handle() to get the handle
//!				4. Close the session
//! @SYMTestStatus		Implemented
//! @SYMTestPriority		Low
//! @SYMTestExpectedResults	Handle returned is that set with SetHandle
//! @SYMTestType		CIT
	START_TEST_BLOCK	10		T_GraphicsWservAPI		\graphics\GRAPHICS-WSERV-Events-PublicApi.ini
		CREATE_OBJECT	TWsEvent	we
		COMMAND		we		new
		COMMAND		we		SetHandle 			GRAPHICS-WSERV-Events-PublicApi-0005-0001-SetHandle_command02
		COMMAND		we		Handle				GRAPHICS-WSERV-Events-PublicApi-0005-0001-Handle_command03
	END_TEST_BLOCK
END_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0005


START_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0006
//! @SYMTestCaseID		GRAPHICS-WSERV-Events-PublicApi-0006
//! @SYMAPI			TWsEvent
//! @SYMAuthor			Sunny Yeh
//! @SYMCreationDate		18/12/2007
//! @SYMTestCaseDesc		SetType(), Type(): Set and Get the event type
//!				Uses API elements: TWsEvent(),SetType(),Type()
//! @SYMTestActions		1. use new() to create a TWsEvent object
//!				2. use SetType() to set Type
//!				3. use Type() to get the Type
//!				4. Close the session
//! @SYMTestStatus		Implemented
//! @SYMTestPriority		Low
//! @SYMTestExpectedResults	Type returned is that set with SetType
//! @SYMTestType		CIT
	START_TEST_BLOCK	10		T_GraphicsWservAPI		\graphics\GRAPHICS-WSERV-Events-PublicApi.ini
		CREATE_OBJECT	TWsEvent	we
		COMMAND		we		new
		COMMAND		we		SetType 			GRAPHICS-WSERV-Events-PublicApi-0006-0001-SetType_command02
		COMMAND		we		Type				GRAPHICS-WSERV-Events-PublicApi-0006-0001-Type_command03
	END_TEST_BLOCK
END_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0006


START_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0007
//! @SYMTestCaseID		GRAPHICS-WSERV-Events-PublicApi-0007
//! @SYMAPI			TWsEvent
//! @SYMAuthor			Sunny Yeh
//! @SYMCreationDate		13/09/2007
//! @SYMTestCaseDesc		Pointer(): Gets the pointer event
//!				Uses API elements: RWsSession::Connect & EventReady & GetEvent & SimulateRawEvent, RWindowGroup::Construct, RWindow::Construct & Activate, TWsEvent::Type & Handle
//! @SYMTestActions		1. use new() to create a RWsSession and TWsEvent object
//!				2. use Connect() to make a connection with window server
//!				3. use new() and Construct() to create a RWindowGroup
//!				4. use EventReady() to request standard events from the window server
//!				5. Wait for an event, A EEventFocusGained event should be triggered from the RWindowGroup::Construct
//!				6. Get the event
//!				7. use Type() to get the type of event that occurred
//!				8. use new() and Construct() to create a RWindow as the child of the RWindowGroup within the RWsSession
//!				9. Activate() the RWindow to make it to receive events
//!				10. use SimulateRawEvent() to trigger a EButton1Down event at (10,15) on default device number 0
//!				11. use Flush() to send all pending commands to WSERV
//!				12. use EventReady() to request standard events from the window server
//!				13. Wait for an event, the raw event should be wrapped into a EEventPointer event and triggered
//!				14. use Type() to check the received event type should be EEventPointer
//!				15. use Handle() to check the received event handle should be the client handle of RWindow, i.e. 2
//!				16. execute Pointer() to check the received pointer event with type=EButton1Down and position (10,15)
//!				17. Destruct and close all objects used
//! @SYMTestStatus		Implemented
//! @SYMTestPriority		Low
//! @SYMTestExpectedResults	Pointer() call without causing panic, and returned TPointerEvent is the same as expected
//! @SYMTestType		CIT
	START_TEST_BLOCK	10		T_GraphicsWservAPI		\graphics\GRAPHICS-WSERV-Events-PublicApi.ini
		CREATE_OBJECT	RWsSession	ws
		CREATE_OBJECT	TWsEvent	we
		CREATE_OBJECT	RWindowGroup	wingrp
		CREATE_OBJECT	RWindow		win
		COMMAND		ws		new
		COMMAND		we		new
		COMMAND		ws		Connect
		COMMAND		wingrp		new				GRAPHICS-WSERV-Events-PublicApi-0001-0001-new_command04
		COMMAND		wingrp		Construct			GRAPHICS-WSERV-Events-PublicApi-0001-0001-Construct_command05
		COMMAND		ws		EventReady
		OUTSTANDING
		COMMAND		ws		GetEvent			GRAPHICS-WSERV-Events-PublicApi-0001-0001-GetEvent_command07
		COMMAND		we		Type				GRAPHICS-WSERV-Events-PublicApi-0001-0001-Type_command08

		COMMAND		win		new				GRAPHICS-WSERV-Events-PublicApi-0001-0001-new_command04
		COMMAND		win		Construct			GRAPHICS-WSERV-Events-PublicApi-0007-0001-Construct_command01
		COMMAND		win		Activate

		COMMAND		ws		SimulateRawEvent		GRAPHICS-WSERV-Events-PublicApi-0007-0001-SimulateRawEvent_command02
		COMMAND		ws		Flush
		COMMAND		ws		EventReady
		OUTSTANDING
		COMMAND		ws		GetEvent			GRAPHICS-WSERV-Events-PublicApi-0007-0001-GetEvent_command03
		COMMAND		we		Type				GRAPHICS-WSERV-Events-PublicApi-0007-0001-Type_command04
		COMMAND		we		Handle				GRAPHICS-WSERV-Events-PublicApi-0007-0001-Handle_command05
		COMMAND		we		Pointer				GRAPHICS-WSERV-Events-PublicApi-0007-0001-Pointer_command06

		COMMAND		win		Close
		COMMAND		wingrp		Close
		COMMAND		ws		Close
	END_TEST_BLOCK
END_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0007


START_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0008
//! @SYMTestCaseID		GRAPHICS-WSERV-Events-PublicApi-0008
//! @SYMAPI			TWsEvent
//! @SYMAuthor			Sunny Yeh
//! @SYMCreationDate		13/09/2007
//! @SYMTestCaseDesc		Key(): get the key event
//!				Uses API elements: RWsSession::Connect & EventReady & GetEvent & SimulateKeyEvent, RWindowGroup::Construct, TWsEvent::Type & Handle
//! @SYMTestActions		1. use new() to create a RWsSession and TWsEvent object
//!				2. use Connect() to make a connection with window server
//!				3. use new() and Construct() to create a RWindowGroup
//!				4. use EventReady() to request standard events from the window server
//!				5. Wait for an event, A EEventFocusGained event should be triggered from the RWindowGroup::Construct
//!				6. Get the event
//!				7. use Type() to get the type of event that occurred
//!				8. use SimulateKeyEvent() to trigger a key event of keycode=EKeyF1 and modifiers=EModifierCtrl
//!				9. use Flush() to send all pending commands to WSERV
//!				10. use EventReady() to request standard events from the window server
//!				11. Wait for an event, the raw event should be wrapped into a EEventKey event and triggered
//!				12. use Type() to check the received event type should be EEventKey
//!				13. use Handle() to check the received event handle should be the client handle of RWindowGroup, i.e. 1
//!				14. execute Key() to check the received key event with code=EKeyF1 and modifiers=EModifierCtrl and repeats=0
//!				15. Destruct and close all objects used
//! @SYMTestStatus		Implemented
//! @SYMTestPriority		Low
//! @SYMTestExpectedResults	No errors
//! @SYMTestType		CIT
	START_TEST_BLOCK	10		T_GraphicsWservAPI		\graphics\GRAPHICS-WSERV-Events-PublicApi.ini
		CREATE_OBJECT	RWsSession	ws
		CREATE_OBJECT	TWsEvent	we
		CREATE_OBJECT	RWindowGroup	wingrp
		COMMAND		ws		new
		COMMAND		we		new
		COMMAND		ws		Connect
		COMMAND		wingrp		new				GRAPHICS-WSERV-Events-PublicApi-0001-0001-new_command04
		COMMAND		wingrp		Construct			GRAPHICS-WSERV-Events-PublicApi-0001-0001-Construct_command05
		COMMAND		ws		EventReady
		OUTSTANDING
		COMMAND		ws		GetEvent			GRAPHICS-WSERV-Events-PublicApi-0001-0001-GetEvent_command07
		COMMAND		we		Type				GRAPHICS-WSERV-Events-PublicApi-0001-0001-Type_command08

		COMMAND		ws		SimulateKeyEvent		GRAPHICS-WSERV-Events-PublicApi-0008-0001-SimulateKeyEvent_command01
		COMMAND		ws		Flush
		COMMAND		ws		EventReady
		OUTSTANDING
		COMMAND		ws		GetEvent			GRAPHICS-WSERV-Events-PublicApi-0008-0001-GetEvent_command02
		COMMAND		we		Type				GRAPHICS-WSERV-Events-PublicApi-0008-0001-Type_command03
		COMMAND		we		Handle				GRAPHICS-WSERV-Events-PublicApi-0008-0001-Handle_command04
		COMMAND		we		Key				GRAPHICS-WSERV-Events-PublicApi-0008-0001-Key_command05

		COMMAND		wingrp		Close
		COMMAND		ws		Close
	END_TEST_BLOCK
END_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0008


START_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0009
//! @SYMTestCaseID		GRAPHICS-WSERV-Events-PublicApi-0009
//! @SYMAPI			TWsEvent
//! @SYMAuthor			Sunny Yeh
//! @SYMCreationDate		18/12/2007
//! @SYMTestCaseDesc		SetTimeNow(): Sets the event time to the current time
//!				Uses API elements: TWsEvent(),SetTimeNow()
//! @SYMTestActions		1. use new() to create a TWsEvent object
//!				2. use SetTimeNow() to set the event time to the current time
//! @SYMTestStatus		Implemented
//! @SYMTestPriority		Low
//! @SYMTestExpectedResults	Event time set
//! @SYMTestType		CIT
	START_TEST_BLOCK	10		T_GraphicsWservAPI		\graphics\GRAPHICS-WSERV-Events-PublicApi.ini
		CREATE_OBJECT	TWsEvent	we
		COMMAND		we		new
		COMMAND		we		SetTimeNow		
	END_TEST_BLOCK
END_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0009


START_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0010
//! @SYMTestCaseID		GRAPHICS-WSERV-Events-PublicApi-0010
//! @SYMAPI			TWsEvent
//! @SYMAuthor			Sunny Yeh
//! @SYMCreationDate		18/12/2007
//! @SYMTestCaseDesc		Time(): Gets the time when the event occurred
//!				Uses API elements: TWsEvent(),SetTimeNow(),Time()
//! @SYMTestActions		1. use new() to create a TWsEvent object
//!				2. use SetTimeNow() to set the event time to the current time
//!				3. use Time() to get  the time when the event occurred
//! @SYMTestStatus		Implemented
//! @SYMTestPriority		Low
//! @SYMTestExpectedResults	No errors
//! @SYMTestType		CIT
	START_TEST_BLOCK	10		T_GraphicsWservAPI		\graphics\GRAPHICS-WSERV-Events-PublicApi.ini
		CREATE_OBJECT	TWsEvent	we
		COMMAND		we		new
		COMMAND		we		SetTimeNow		
		COMMAND		we		Time			
	END_TEST_BLOCK
END_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0010


START_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0011
//! @SYMTestCaseID		GRAPHICS-WSERV-Events-PublicApi-0011
//! @SYMAPI			TWsEvent
//! @SYMAuthor			Sunny Yeh
//! @SYMCreationDate		14/09/2007
//! @SYMTestCaseDesc		ModifiersChanged(): Gets information about the modifier changed event.
//!				Uses API elements: RWsSession::Connect & EventReady & GetEvent & SimulateRawEvent, RWindowGroup::Construct & EnableModifierChangedEvents, TWsEvent::Type & Handle
//! @SYMTestActions		1. use new() to create a RWsSession and TWsEvent object
//!				2. use Connect() to make a connection with window server
//!				3. use new() and Construct() to create a RWindowGroup
//!				4. use EventReady() to request standard events from the window server
//!				5. Wait for an event, A EEventFocusGained event should be triggered from the RWindowGroup::Construct
//!				6. Get the event
//!				7. use Type() to get the type of event that occurred
//!				8. use EnableModifierChangedEvents() to request modifier changed event for modifier EModifierCapsLock and to send when EEventControlAlways
//!				9. use SimulateRawEvent() to trigger a raw event of type=EKeyDown and stdscancode=EStdKeyCapsLock
//!				10. use Flush() to send all pending commands to WSERV
//!				10. use EventReady() to request standard events from the window server
//!				11. Wait for an event, the raw event should be wrapped into a EEventModifiersChanged event and triggered
//!				12. use Type() to check the received event type should be EEventModifiersChanged
//!				13. use Handle() to check the received event handle should be the client handle of RWindowGroup, i.e. 1
//!				14. execute ModifiersChanged() to check the received modifier changed event with changedmodifier=EModifierCapsLock & modifier=EModifierCapsLock
//!				15. Destruct and close all objects used
//! @SYMTestStatus		Implemented
//! @SYMTestPriority		Low
//! @SYMTestExpectedResults	information about the visibility changed event returned
//! @SYMTestType		CIT
	START_TEST_BLOCK	10		T_GraphicsWservAPI		\graphics\GRAPHICS-WSERV-Events-PublicApi.ini
		CREATE_OBJECT	RWsSession	ws
		CREATE_OBJECT	TWsEvent	we
		CREATE_OBJECT	RWindowGroup	wingrp
		COMMAND		ws		new
		COMMAND		we		new
		COMMAND		ws		Connect
		COMMAND		wingrp		new				GRAPHICS-WSERV-Events-PublicApi-0001-0001-new_command04
		COMMAND		wingrp		Construct			GRAPHICS-WSERV-Events-PublicApi-0001-0001-Construct_command05
		COMMAND		ws		EventReady
		OUTSTANDING
		COMMAND		ws		GetEvent			GRAPHICS-WSERV-Events-PublicApi-0001-0001-GetEvent_command07
		COMMAND		we		Type				GRAPHICS-WSERV-Events-PublicApi-0001-0001-Type_command08

		COMMAND		wingrp		EnableModifierChangedEvents	GRAPHICS-WSERV-Events-PublicApi-0011-0001-EnableModifierChangedEvents_command01
		COMMAND		ws		SimulateRawEvent		GRAPHICS-WSERV-Events-PublicApi-0011-0001-SimulateRawEvent_command02
		COMMAND		ws		SimulateRawEvent		GRAPHICS-WSERV-Events-PublicApi-0011-0001-SimulateRawEvent_command03
		COMMAND		ws		Flush
		COMMAND		ws		EventReady
		OUTSTANDING
		COMMAND		ws		GetEvent			GRAPHICS-WSERV-Events-PublicApi-0011-0001-GetEvent_command04
		COMMAND		we		Type				GRAPHICS-WSERV-Events-PublicApi-0011-0001-Type_command05
		COMMAND		we		Handle				GRAPHICS-WSERV-Events-PublicApi-0011-0001-Handle_command06
		COMMAND		we		ModifiersChanged		GRAPHICS-WSERV-Events-PublicApi-0011-0001-ModifiersChanged_command07

		COMMAND		ws		SimulateRawEvent		GRAPHICS-WSERV-Events-PublicApi-0011-0001-SimulateRawEvent_command08
		COMMAND		ws		SimulateRawEvent		GRAPHICS-WSERV-Events-PublicApi-0011-0001-SimulateRawEvent_command09
		COMMAND		ws		Flush
		COMMAND		ws		EventReady
		OUTSTANDING
		COMMAND		ws		GetEvent			GRAPHICS-WSERV-Events-PublicApi-0011-0001-GetEvent_command10

		COMMAND		wingrp		Close
		COMMAND		ws		Close
	END_TEST_BLOCK
END_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0011


START_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0012
//! @SYMTestCaseID		GRAPHICS-WSERV-Events-PublicApi-0012
//! @SYMAPI			TWsEvent
//! @SYMAuthor			Sunny Yeh
//! @SYMCreationDate		14/09/2007
//! @SYMTestCaseDesc		VisibilityChanged(): Gets information about the visibility changed event.
//!				Uses API elements: RWsSession::Connect & EventReady & GetEvent & SimulateRawEvent, RWindowGroup::Construct, RWindow::Construct & EnableVisibilityChangeEvents, TWsEvent::Type & Handle
//! @SYMTestActions		1. use new() to create a RWsSession and TWsEvent object
//!				2. use Connect() to make a connection with window server
//!				3. use new() and Construct() to create a RWindowGroup
//!				4. use EventReady() to request standard events from the window server
//!				5. Wait for an event, A EEventFocusGained event should be triggered from the RWindowGroup::Construct
//!				6. Get the event
//!				7. use Type() to get the type of event that occurred
//!				8. use new() and Construct() to create a RWindow as the child of the RWindowGroup within the RWsSession
//!				9. Activate() the RWindow to display and make it to receive events
//!				10. use EnableVisibilityChangeEvents() to request visibility changed events of RWindow
//!				11. use EventReady() to request standard events from the window server
//!				12. Wait for an event, the raw event should be wrapped into a EEventWindowVisibilityChanged event and triggered
//!				13. use Type() to check the received event type should be EEventModifiersChanged
//!				14. use Handle() to check the received event handle should be the client handle of RWindow, i.e. 2
//!				15. execute VisibilityChanged() to check the received visibility changed event of ECanBeSeen|EFullyVisible
//!				16. Destruct and close all objects used
//! @SYMTestStatus		Implemented
//! @SYMTestPriority		Low
//! @SYMTestExpectedResults	information about the visibility changed event returned
//! @SYMTestType		CIT
	START_TEST_BLOCK	10		T_GraphicsWservAPI		\graphics\GRAPHICS-WSERV-Events-PublicApi.ini
		CREATE_OBJECT	RWsSession	ws
		CREATE_OBJECT	TWsEvent	we
		CREATE_OBJECT	RWindowGroup	wingrp
		CREATE_OBJECT	RWindow		win
		COMMAND		ws		new
		COMMAND		we		new
		COMMAND		ws		Connect
		COMMAND		wingrp		new				GRAPHICS-WSERV-Events-PublicApi-0001-0001-new_command04
		COMMAND		wingrp		Construct			GRAPHICS-WSERV-Events-PublicApi-0001-0001-Construct_command05
		COMMAND		ws		EventReady
		OUTSTANDING
		COMMAND		ws		GetEvent			GRAPHICS-WSERV-Events-PublicApi-0001-0001-GetEvent_command07
		COMMAND		we		Type				GRAPHICS-WSERV-Events-PublicApi-0001-0001-Type_command08

		COMMAND		win		new				GRAPHICS-WSERV-Events-PublicApi-0001-0001-new_command04
		COMMAND		win		Construct			GRAPHICS-WSERV-Events-PublicApi-0012-0001-Construct_command01
		COMMAND		win		Activate
		COMMAND		win		EnableVisibilityChangeEvents

		COMMAND		ws		EventReady
		OUTSTANDING
		COMMAND		ws		GetEvent			GRAPHICS-WSERV-Events-PublicApi-0012-0001-GetEvent_command02
		COMMAND		we		Type				GRAPHICS-WSERV-Events-PublicApi-0012-0001-Type_command03
		COMMAND		we		Handle				GRAPHICS-WSERV-Events-PublicApi-0012-0001-Handle_command04
		COMMAND		we		VisibilityChanged		GRAPHICS-WSERV-Events-PublicApi-0012-0001-VisibilityChanged_command05

		COMMAND		win		Close
		COMMAND		wingrp		Close
		COMMAND		ws		Close
	END_TEST_BLOCK
END_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0012


START_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0013
//! @SYMTestCaseID		GRAPHICS-WSERV-Events-PublicApi-0013
//! @SYMAPI			TWsEvent
//! @SYMAuthor			Sunny Yeh
//! @SYMCreationDate		14/09/2007
//! @SYMTestCaseDesc		const VisibilityChanged(): Gets information about the visibility changed event.
//!				Uses API elements: TWsEvent(),Type(),VisibilityChanged()
//! @SYMTestActions		1. use new() to create a RWsSession and TWsEvent object
//!				2. use Connect() to make a connection with window server
//!				3. use new() and Construct() to create a RWindowGroup
//!				4. use EventReady() to request standard events from the window server
//!				5. Wait for an event, A EEventFocusGained event should be triggered from the RWindowGroup::Construct
//!				6. Get the event
//!				7. use Type() to get the type of event that occurred
//!				8. use new() and Construct() to create a RWindow as the child of the RWindowGroup within the RWsSession
//!				9. Activate() the RWindow to display and make it to receive events
//!				10. use EnableVisibilityChangeEvents() to request visibility changed events of RWindow
//!				11. use EventReady() to request standard events from the window server
//!				12. Wait for an event, the raw event should be wrapped into a EEventWindowVisibilityChanged event and triggered
//!				13. use Type() to check the received event type should be EEventModifiersChanged
//!				14. use Handle() to check the received event handle should be the client handle of RWindow, i.e. 2
//!				15. execute VisibilityChanged() to get constant and check the received visibility changed event of ECanBeSeen|EFullyVisible
//!				16. Destruct and close all objects used
//! @SYMTestStatus		Implemented
//! @SYMTestPriority		Low
//! @SYMTestExpectedResults	information about the visibility changed event returned
//! @SYMTestType		CIT
	START_TEST_BLOCK	10		T_GraphicsWservAPI		\graphics\GRAPHICS-WSERV-Events-PublicApi.ini
		CREATE_OBJECT	RWsSession	ws
		CREATE_OBJECT	TWsEvent	we
		CREATE_OBJECT	RWindowGroup	wingrp
		CREATE_OBJECT	RWindow		win
		COMMAND		ws		new
		COMMAND		we		new
		COMMAND		ws		Connect
		COMMAND		wingrp		new				GRAPHICS-WSERV-Events-PublicApi-0001-0001-new_command04
		COMMAND		wingrp		Construct			GRAPHICS-WSERV-Events-PublicApi-0001-0001-Construct_command05
		COMMAND		ws		EventReady
		OUTSTANDING
		COMMAND		ws		GetEvent			GRAPHICS-WSERV-Events-PublicApi-0001-0001-GetEvent_command07
		COMMAND		we		Type				GRAPHICS-WSERV-Events-PublicApi-0001-0001-Type_command08

		COMMAND		win		new				GRAPHICS-WSERV-Events-PublicApi-0001-0001-new_command04
		COMMAND		win		Construct			GRAPHICS-WSERV-Events-PublicApi-0013-0001-Construct_command01
		COMMAND		win		Activate
		COMMAND		win		EnableVisibilityChangeEvents

		COMMAND		ws		EventReady
		OUTSTANDING
		COMMAND		ws		GetEvent			GRAPHICS-WSERV-Events-PublicApi-0013-0001-GetEvent_command02
		COMMAND		we		Type				GRAPHICS-WSERV-Events-PublicApi-0013-0001-Type_command03
		COMMAND		we		Handle				GRAPHICS-WSERV-Events-PublicApi-0013-0001-Handle_command04
		COMMAND		we		VisibilityChanged		GRAPHICS-WSERV-Events-PublicApi-0013-0001-VisibilityChanged_command05

		COMMAND		win		Close
		COMMAND		wingrp		Close
		COMMAND		ws		Close
	END_TEST_BLOCK
END_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0013


// ****************************************************************************
// TWsPriorityKeyEvent
// ****************************************************************************


START_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0014
//! @SYMTestCaseID		GRAPHICS-WSERV-Events-PublicApi-0014
//! @SYMAPI			TWsPriorityKeyEvent
//! @SYMAuthor			Sunny Yeh
//! @SYMCreationDate		16/08/2007
//! @SYMTestCaseDesc 		Key(): get the priority key event.
//!				Uses API elements: RWsSession::Connect & PriorityKeyReady & SimulateKeyEvent & GetPriorityKey & Flush, RWindowGroup::Construct & AddPriorityKey
//! @SYMTestActions		1.	Create and construct a RWindowGroup to receive the priority key event
//!				1.1	New and connect a RWsSession
//!				1.2	New and construct a RWindowGroup within the RWsSession
//!				2.	Use AddPriorityKey() to add a priority key of the RWindowGroup, e.g. keycode=EKeyF1 & modifier=EModifierCtrl
//!				3.	Use PriorityKeyReady() to request priority key events from WSERV
//!				4.	Use SimulateKeyEvent() to simulate a key event (with the same keycode and modifier of the specified priority key)
//!				5.	Use Flush() to send all pending commands in the buffer to WSERV
//!				6.	Use OUTSTANDING to wait for a priority key event
//!				7.	when event obtained or timeouted, use GetPriorityKey to retrieve the priority key event
//!				8.	Execute Key() to get and check if the returned key event is the same as expected
//!				9.	Close and destruct all objects used
//! @SYMTestStatus		Implemented
//! @SYMTestPriority		High
//! @SYMTestExpectedResults	Key() called without causing panic, and the returned key event is the same as the specified priority key, i.e. keycode=EKeyF1 & modifier=EModifierCtrl
//! @SYMTestType		CIT
	START_TEST_BLOCK	10			T_GraphicsWservAPI	\graphics\GRAPHICS-WSERV-Events-PublicApi.ini
		CREATE_OBJECT	RWsSession		ws
		CREATE_OBJECT	RWindowGroup		wingrp
		CREATE_OBJECT	TWsPriorityKeyEvent	we

		COMMAND		ws			new
		COMMAND		ws			Connect
		COMMAND		wingrp			new			GRAPHICS-WSERV-Events-Setup-0014-0001-new_command001
		COMMAND		wingrp			Construct		GRAPHICS-WSERV-Events-Setup-0014-0001-Construct_command002
		COMMAND		we			new

		COMMAND		wingrp			AddPriorityKey		GRAPHICS-WSERV-Events-PublicApi-0014-0001-AddPriorityKey_command001
		COMMAND		ws			PriorityKeyReady
		COMMAND		ws			SimulateKeyEvent	GRAPHICS-WSERV-Events-PublicApi-0014-0001-SimulateKeyEvent_command002
		COMMAND		ws			Flush
		OUTSTANDING
		COMMAND		ws			GetPriorityKey		GRAPHICS-WSERV-Events-PublicApi-0014-0001-GetPriorityKey_command003
		COMMAND		we			Key			GRAPHICS-WSERV-Events-PublicApi-0014-0001-Key_command004

		COMMAND		we			~
		COMMAND		wingrp			Close
		COMMAND		ws			Close
	END_TEST_BLOCK
END_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0014


START_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0015
//! @SYMTestCaseID		GRAPHICS-WSERV-Events-PublicApi-0015
//! @SYMAPI			TWsPriorityKeyEvent
//! @SYMAuthor			Sunny Yeh
//! @SYMCreationDate		16/08/2007
//! @SYMTestCaseDesc 		Handle(): get the handle for the window group which added the priority key. 
//!				Uses API elements: RWsSession::Connect & PriorityKeyReady & SimulateKeyEvent & GetPriorityKey & Flush, RWindowGroup::Construct & AddPriorityKey
//! @SYMTestActions		1.	Create and construct a RWindowGroup to receive the priority key event
//!				1.1	New and connect a RWsSession
//!				1.2	New and construct a RWindowGroup within the RWsSession
//!				2.	Use AddPriorityKey() to add a priority key of the RWindowGroup, e.g. keycode=EKeyF1 & modifier=EModifierCtrl
//!				3.	Use PriorityKeyReady() to request priority key events from WSERV
//!				4.	Use SimulateKeyEvent() to simulate a key event (with the same keycode and modifier of the specified priority key)
//!				5.	Use Flush() to send all pending commands in the buffer to WSERV
//!				6.	Use OUTSTANDING to wait for a priority key event
//!				7.	when event obtained or timeouted, use GetPriorityKey to retrieve the priority key event
//!				8.	Execute Handle() to get and check if the returned handle is the same as expected
//!				9.	Close and destruct all objects used
//! @SYMTestStatus		Implemented
//! @SYMTestPriority		Medium
//! @SYMTestExpectedResults	Handle() called without causing panic, and the returned handle is the client handle of the RWindowGroup, i.e. 1 (assigned when it constucted)
//! @SYMTestType		CIT
	START_TEST_BLOCK	10			T_GraphicsWservAPI	\graphics\GRAPHICS-WSERV-Events-PublicApi.ini
		CREATE_OBJECT	RWsSession		ws
		CREATE_OBJECT	RWindowGroup		wingrp
		CREATE_OBJECT	TWsPriorityKeyEvent	we

		COMMAND		ws			new
		COMMAND		ws			Connect
		COMMAND		wingrp			new			GRAPHICS-WSERV-Events-Setup-0014-0001-new_command001
		COMMAND		wingrp			Construct		GRAPHICS-WSERV-Events-Setup-0014-0001-Construct_command002
		COMMAND		we			new

		COMMAND		wingrp			AddPriorityKey		GRAPHICS-WSERV-Events-PublicApi-0015-0001-AddPriorityKey_command001
		COMMAND		ws			PriorityKeyReady
		COMMAND		ws			SimulateKeyEvent	GRAPHICS-WSERV-Events-PublicApi-0015-0001-SimulateKeyEvent_command002
		COMMAND		ws			Flush
		OUTSTANDING
		COMMAND		ws			GetPriorityKey		GRAPHICS-WSERV-Events-PublicApi-0015-0001-GetPriorityKey_command003
		COMMAND		we			Handle			GRAPHICS-WSERV-Events-PublicApi-0015-0001-Handle_command004

		COMMAND		we			~
		COMMAND		wingrp			Close
		COMMAND		ws			Close
	END_TEST_BLOCK
END_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0015


START_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0016
//! @SYMTestCaseID		GRAPHICS-WSERV-Events-PublicApi-0016
//! @SYMAPI			TWsPriorityKeyEvent
//! @SYMAuthor			Sunny Yeh
//! @SYMCreationDate		16/08/2007
//! @SYMTestCaseDesc 		SetHandle(TUint aHandle): set the window group event handle 
//!				Uses API elements: TWsPriorityKeyEvent::Handle
//! @SYMTestActions		1.	new a TWsPriorityKeyEvent
//!				2.	Execute SetHandle() to set the event handle, e.g. 2
//!				3.	Use Handle() to check the event handle is the same as specified
//! @SYMTestStatus		Implemented
//! @SYMTestPriority		Low
//! @SYMTestExpectedResults	1.	SetHandle() called without causing panic
//!				2.	After SetHandle() executed, use Handle to check the event handle is the same as specified
//! @SYMTestType		CIT
	START_TEST_BLOCK	10			T_GraphicsWservAPI	\graphics\GRAPHICS-WSERV-Events-PublicApi.ini
		CREATE_OBJECT	TWsPriorityKeyEvent	we
		COMMAND		we			new
		COMMAND		we			SetHandle		GRAPHICS-WSERV-Events-PublicApi-0016-0001-SetHandle_command001
		COMMAND		we			Handle			GRAPHICS-WSERV-Events-PublicApi-0016-0001-Handle_command002
		COMMAND		we			~
	END_TEST_BLOCK
END_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0016


// ****************************************************************************
// TWsRedrawEvent
// ****************************************************************************


START_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0017
//! @SYMTestCaseID		GRAPHICS-WSERV-Events-PublicApi-0017
//! @SYMAPI			TWsRedrawEvent
//! @SYMAuthor			Sunny Yeh
//! @SYMCreationDate		16/08/2007
//! @SYMTestCaseDesc 		Handle(): Gets the handle of the window which is the target of the redraw event. 
//!				Uses API elements: RWsSession::Connect & RedrawReady & GetRedraw, RWindowGroup::Construct, RWindowBase::Activate, RWindow::Construct & SetExtent
//! @SYMTestActions		1.	Create and construct a RWindow to receive the redraw event
//!				1.1	New and connect a RWsSession
//!				1.2	New and construct a RWindowGroup within the RWsSession
//!				1.3	New and construct a RWindow as the child of the RWindowGroup
//!				1.4	Set the extent of RWindow to (5,6) and height=15, width=10
//!				1.5	Activate RWindow to display and enable it to receive event
//!				2.	Use RedrawReady to request redraw events from WSERV
//!				3.	Use OUTSTANDING to wait for a redraw event
//!				4.	when event obtained or timeouted, use GetRedraw to retrieve the redraw event
//!				5.	Execute Handle() to get and check if the returned handle is the same as expected
//!				6.	Close and destruct all objects used
//! @SYMTestStatus		Implemented
//! @SYMTestPriority		Medium
//! @SYMTestExpectedResults	Handle() called without causing panic, and the returned handle is the client handle of the RWindow, i.e. 2 (assigned when it constucted)
//! @SYMTestType		CIT
	START_TEST_BLOCK	10		T_GraphicsWservAPI		\graphics\GRAPHICS-WSERV-Events-PublicApi.ini
		CREATE_OBJECT	RWsSession	ws
		CREATE_OBJECT	RWindowGroup	wingrp
		CREATE_OBJECT	RWindow		win
		CREATE_OBJECT	TWsRedrawEvent	we

		COMMAND		ws		new
		COMMAND		ws		Connect
		COMMAND		wingrp		new				GRAPHICS-WSERV-Events-Setup-0017-0001-new_command001
		COMMAND		wingrp		Construct			GRAPHICS-WSERV-Events-Setup-0017-0001-Construct_command002
		COMMAND		win		new				GRAPHICS-WSERV-Events-Setup-0017-0001-new_command001
		COMMAND		win		Construct			GRAPHICS-WSERV-Events-Setup-0017-0001-Construct_command003
		COMMAND		win		SetExtent			GRAPHICS-WSERV-Events-Setup-0017-0001-SetExtent_command004
		COMMAND		win		Activate
		COMMAND		we		new

		COMMAND		ws		RedrawReady
		OUTSTANDING
		COMMAND		ws		GetRedraw			GRAPHICS-WSERV-Events-PublicApi-0017-0001-GetRedraw_command001
		COMMAND		we		Handle				GRAPHICS-WSERV-Events-PublicApi-0017-0001-Handle_command002

		COMMAND		we		~
		COMMAND		win		Close
		COMMAND		wingrp		Close
		COMMAND		ws		Close
	END_TEST_BLOCK
END_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0017


START_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0018
//! @SYMTestCaseID		GRAPHICS-WSERV-Events-PublicApi-0018
//! @SYMAPI			TWsRedrawEvent
//! @SYMAuthor			Sunny Yeh
//! @SYMCreationDate		16/08/2007
//! @SYMTestCaseDesc 		Rect(): Gets the rectangle to redraw.
//!				Uses API elements: RWsSession::Connect & RedrawReady & GetRedraw, RWindowGroup::Construct, RWindowBase::Activate, RWindow::Construct & SetExtent
//! @SYMTestActions		1.	Create and construct a RWindow to receive the redraw event
//!				1.1	New and connect a RWsSession
//!				1.2	New and construct a RWindowGroup within the RWsSession
//!				1.3	New and construct a RWindow as the child of the RWindowGroup
//!				1.4	Set the extent of RWindow to (5,6) and height=15, width=10
//!				1.5	Activate RWindow to display and enable it to receive event
//!				2.	Use RedrawReady to request redraw events from WSERV
//!				3.	Use OUTSTANDING to wait for a redraw event
//!				4.	when event obtained or timeouted, use GetRedraw to retrieve the redraw event
//!				5.	Execute Rect() to get and check if the returned rectangle is the same as expected
//!				6.	Close and destruct all objects used
//! @SYMTestStatus		Implemented
//! @SYMTestPriority		High
//! @SYMTestExpectedResults	Rect() called without causing panic, and the returned rectangle is the size of the RWindow ((0,0),(10,15))
//! @SYMTestType		CIT
	START_TEST_BLOCK	10		T_GraphicsWservAPI		\graphics\GRAPHICS-WSERV-Events-PublicApi.ini
		CREATE_OBJECT	RWsSession	ws
		CREATE_OBJECT	RWindowGroup	wingrp
		CREATE_OBJECT	RWindow		win
		CREATE_OBJECT	TWsRedrawEvent	we

		COMMAND		ws		new
		COMMAND		ws		Connect
		COMMAND		wingrp		new				GRAPHICS-WSERV-Events-Setup-0017-0001-new_command001
		COMMAND		wingrp		Construct			GRAPHICS-WSERV-Events-Setup-0017-0001-Construct_command002
		COMMAND		win		new				GRAPHICS-WSERV-Events-Setup-0017-0001-new_command001
		COMMAND		win		Construct			GRAPHICS-WSERV-Events-Setup-0017-0001-Construct_command003
		COMMAND		win		SetExtent			GRAPHICS-WSERV-Events-Setup-0017-0001-SetExtent_command004
		COMMAND		win		Activate
		COMMAND		we		new

		COMMAND		ws		RedrawReady
		OUTSTANDING
		COMMAND		ws		GetRedraw			GRAPHICS-WSERV-Events-PublicApi-0018-0001-GetRedraw_command001
		COMMAND		we		Rect				GRAPHICS-WSERV-Events-PublicApi-0018-0001-Rect_command002

		COMMAND		we		~
		COMMAND		win		Close
		COMMAND		wingrp		Close
		COMMAND		ws		Close
	END_TEST_BLOCK
END_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0018


START_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0020
//! @SYMTestCaseID		GRAPHICS-WSERV-Events-PublicApi-0020
//! @SYMAPI			TWsEvent
//! @SYMAuthor			Sunny Yeh
//! @SYMCreationDate		18/12/2007
//! @SYMTestCaseDesc		SetType(), Type(): Set and Get the event type usign a TInt
//!				Uses API elements: TWsEvent(),SetType(),Type()
//! @SYMTestActions		1. use new() to create a TWsEvent object
//!				2. use SetType() to set Type
//!				3. use Type() to get the Type
//!				4. Close the session
//! @SYMTestStatus		Implemented
//! @SYMTestPriority		Low
//! @SYMTestExpectedResults	Type returned is that set with SetType
//! @SYMTestType		CIT
	START_TEST_BLOCK	10		T_GraphicsWservAPI		\graphics\GRAPHICS-WSERV-Events-PublicApi.ini
		CREATE_OBJECT	TWsEvent	we
		COMMAND		we		new
		COMMAND		we		SetType 			GRAPHICS-WSERV-Events-PublicApi-0020-0001-SetType_command02
		COMMAND		we		Type				GRAPHICS-WSERV-Events-PublicApi-0020-0001-Type_command03
	END_TEST_BLOCK
END_TESTCASE GRAPHICS-WSERV-Events-PublicApi-0020