Hclip 3.0.0.3 → 3.0.0.4

raw patch · 2 files changed

+1/−54 lines, 2 filesdep −Hclipdep −tastydep −tasty-hunitPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependencies removed: Hclip, tasty, tasty-hunit

API changes (from Hackage documentation)

Files

• Hclip.cabal +1/−9
• tests/Tasty.hs +0/−45

@@ -7,7 +7,7 @@ -- PVP summary:      +-+------- breaking API changes
 --                   | | +----- non-breaking API additions
 --                   | | | +--- code changes with no API change
-version:             3.0.0.3
+version:             3.0.0.4
 
 synopsis:            A small cross-platform library for reading and modifying the system clipboard.
 
@@ -48,14 +48,6 @@   build-depends:     base >= 3 && < 5, process, mtl, strict
   if os(windows)
     build-depends:   Win32
-
-Test-suite Tasty
-  default-language:  Haskell2010
-  type:              exitcode-stdio-1.0
-  hs-source-dirs:    tests
-  main-is:           Tasty.hs
-  build-depends:     base >= 3 && < 5, tasty, tasty-hunit, Hclip
-                    
 
 source-repository head
   type:              git

@@ -1,45 +0,0 @@-import Test.Tasty
-import Test.Tasty.HUnit
-
-import System.Hclip
-
-
-main = defaultMain tests
-
-tests :: TestTree
-tests = testGroup "Tests" [unitTests]
-
-
-unitTests = testGroup "Unit tests"
-  [ testCase "Clear Clipboard" $ do
-      setClipboard "Haskell"
-      clearClipboard 
-      contents <- getClipboard
-      contents @?= ""
-
-  , testCase "Set Clipboard" $ do
-      clearClipboard 
-      setClipboard "Haskell"
-      contents <- getClipboard
-      contents @?= "Haskell"
-
-  , testCase "Get Clipboard" $ do
-      setClipboard "Haskell"
-      contents <- getClipboard
-      contents @?= "Haskell"
-
-  , testCase "Modify Clipboard" $ do
-      let f = reverse
-          s = "Haskell"
-      setClipboard s
-      modifyClipboard_ f
-      contents <- getClipboard
-      contents @?= (f s)
-
-  , testCase "Modify Clipboard and return new contents" $ do
-      let f = reverse
-          s = "Haskell"
-      setClipboard s
-      contents <- modifyClipboard f
-      contents @?= f s
-  ]