NetSNMP 0.3.0.5 → 0.3.0.6

raw patch · 3 files changed

+46/−2 lines, 3 filesdep +HUnitdep +NetSNMPdep +processPVP ok

version bump matches the API change (PVP)

Dependencies added: HUnit, NetSNMP, process

API changes (from Hackage documentation)

Files

• NetSNMP.cabal +12/−2
• src/Network/Protocol/NetSNMP.hsc +8/−0
• tests/RunTests.hs +26/−0

@@ -1,6 +1,6 @@  Name:               NetSNMP-Version:            0.3.0.5+Version:            0.3.0.6 Synopsis:           Bindings for net-snmp's C API for clients Description:        Network.Protocol.NetSNMP is a partial binding to the                     library portion of the net-snmp package.  It uses the@@ -10,7 +10,7 @@                     expanded functionality, and especially if you would                     like to contribute. Category:           Network-Cabal-Version:      >= 1.2+Cabal-Version:      >= 1.8 License:            BSD3 License-file:       LICENSE Author:             Pavlo Kerestey and Humane Software for Global Access Internet Services GmbH@@ -29,3 +29,13 @@   extensions:       ForeignFunctionInterface, CPP, EmptyDataDecls   extra-libraries:  netsnmp   ghc-options:      -static -optc-static -optl-static -optl-pthread++test-suite tests+  hs-source-dirs:   tests+  extensions:       OverloadedStrings+  type:		    exitcode-stdio-1.0+  main-is:          RunTests.hs+  build-depends:    base >= 4.5 && <5+                   ,HUnit+                   ,NetSNMP+                   ,process > 1.1 && < 1.2

@@ -67,7 +67,15 @@   sizeOf    _ = #size struct snmp_pdu   alignment _ = 16 +-- |The net-snmp C library on 64-bit OS X systems still uses 32-bit oid parts in+--    the responses. Please make sure that the library produces sane+--    results on your system by cloning the source code and running `make test`.+#if defined(darwin)+type OIDpart = CUInt+#else type OIDpart = #{type oid}+#endif /* GHC */+ type RawOID = [OIDpart]  showOid :: RawOID -> String

@@ -0,0 +1,26 @@+module Main where++import Network.Protocol.NetSNMP+import System.Exit+import SystemTest.Platform (tests)+import Test.HUnit++main :: IO ()+main = runTestTT testSuites >>= testResultToExitCode++testSuites = test [+  "platform compliance" ~: SystemTest.Platform.tests+  ]+++testResultToExitCode :: Counts -> IO ()+testResultToExitCode (Counts _ _ e f) =  if ((e+f) == 0) then exitSuccess else grandFailure++grandFailure :: IO ()+grandFailure = putStrLn xz >> exitFailure++xz = " ___\n" +++     "{O,o}\n" +++     "|)__)\n" +++     "-\"-\"-\n" +++     "O RLY?\n"