diff --git a/Graphics/X11/XTest.hs b/Graphics/X11/XTest.hs
new file mode 100644
--- /dev/null
+++ b/Graphics/X11/XTest.hs
@@ -0,0 +1,49 @@
+{-# LANGUAGE ForeignFunctionInterface #-}
+module Graphics.X11.XTest
+  (fakeMotion,
+   fakeButtonPress,
+   movePointer)
+  where
+
+import Graphics.X11.Xlib
+import Foreign.C.Types
+
+-- FFI imports
+
+-- XTestFakeButtonEvent(display, button, is_press, delay)
+foreign import ccall unsafe "X11/extensions/XTest.h XTestFakeButtonEvent"
+    xFakeButtonEvent :: Display -> Button -> Bool -> Time -> IO Status
+
+foreign import ccall unsafe "X11/extensions/XTest.h XTestFakeMotionEvent"
+    xFakeMotionEvent :: Display -> CInt -> CInt -> CInt -> Time -> IO Status
+
+-- | Create fake pointer motion event.
+fakeMotion :: Display      -- 
+           -> ScreenNumber --
+           -> Int          -- ^ X
+           -> Int          -- ^ Y
+           -> IO ()
+fakeMotion dpy sid x y = do
+  xFakeMotionEvent dpy (fromIntegral sid) (fromIntegral x) (fromIntegral y) 0
+  return ()
+
+-- | Create fake mouse button click event.
+fakeButtonPress :: Display
+                -> Button  -- ^ Mouse button number
+                -> IO ()
+fakeButtonPress dpy button = do
+  xFakeButtonEvent dpy button True 0
+  xFakeButtonEvent dpy button False 0
+  return ()
+
+-- | Move mouse pointer.
+movePointer :: Display
+            -> ScreenNumber
+            -> XID          -- ^ Root window XID
+            -> Int          -- ^ delta X
+            -> Int          -- ^ delta Y
+            -> IO ()
+movePointer dpy sid root dx dy = do
+ (_,_,_,x,y,_,_,_) <- queryPointer dpy root
+ fakeMotion dpy sid (fromIntegral x + dx) (fromIntegral y + dy)
+
diff --git a/LICENSE b/LICENSE
new file mode 100644
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,30 @@
+Copyright (c)2011, Ilya Portnov
+
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+    * Redistributions of source code must retain the above copyright
+      notice, this list of conditions and the following disclaimer.
+
+    * Redistributions in binary form must reproduce the above
+      copyright notice, this list of conditions and the following
+      disclaimer in the documentation and/or other materials provided
+      with the distribution.
+
+    * Neither the name of Ilya Portnov nor the names of other
+      contributors may be used to endorse or promote products derived
+      from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
diff --git a/Setup.hs b/Setup.hs
new file mode 100644
--- /dev/null
+++ b/Setup.hs
@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain
diff --git a/xtest.cabal b/xtest.cabal
new file mode 100644
--- /dev/null
+++ b/xtest.cabal
@@ -0,0 +1,54 @@
+-- xtest.cabal auto-generated by cabal init. For additional options,
+-- see
+-- http://www.haskell.org/cabal/release/cabal-latest/doc/users-guide/authors.html#pkg-descr.
+-- The name of the package.
+Name:                xtest
+
+-- The package version. See the Haskell package versioning policy
+-- (http://www.haskell.org/haskellwiki/Package_versioning_policy) for
+-- standards guiding when and how versions should be incremented.
+Version:             0.1
+
+-- A short (one-line) description of the package.
+Synopsis:            Thin FFI bindings to X11 XTest library
+
+-- A longer description of the package.
+Description:         This package provides bindings to some functions from X11 XTest
+                     extension client library (-lXtst).
+
+-- The license under which the package is released.
+License:             BSD3
+
+-- The file containing the license text.
+License-file:        LICENSE
+
+-- The package author(s).
+Author:              Ilya Portnov
+
+-- An email address to which users can send suggestions, bug reports,
+-- and patches.
+Maintainer:          portnov84@rambler.ru
+
+-- A copyright notice.
+-- Copyright:           
+
+Category:            Graphics
+
+Build-type:          Simple
+
+-- Extra files to be distributed with the package, such as examples or
+-- a README.
+-- Extra-source-files:  
+
+-- Constraint on the version of Cabal needed to build this package.
+Cabal-version:       >=1.2
+
+
+Library
+  -- Modules exported by the library.
+  Exposed-modules:     Graphics.X11.XTest
+  
+  -- Packages needed in order to build this package.
+  Build-depends:       base >= 4 && < 5, X11 >= 1.5
+  extra-libraries:    "Xtst"
+