git » nmdb » master » tree

[master] / bindings / haskell / test1.hs 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
-- Testing module for nmdb Haskell bindings.
-- Build with ghc --make test1.hs

module Main where

import Nmdb

-- putStrLn + show, all in one
cshow desc f = do
	r <- f
	putStr desc
	putStr " -> "
	putStrLn $ show r

main :: IO ()
main = do
	db <- nmdbInit

	cshow "Add TIPC" $ nmdbAddTIPCServer db (-1)
	cshow "Add TCP" $ nmdbAddTCPServer db "localhost" (-1)
	cshow "Add UDP" $ nmdbAddUDPServer db "localhost" (-1)
	cshow "Add SCTP" $ nmdbAddSCTPServer db "localhost" (-1)

	cshow "Set 'Hello' 'Bye'" $ nmdbSet db "Hello" "Bye"

	cshow "Get 'Hello'" $ nmdbGet db "Hello"
	cshow "Get 'XYZ'" $ nmdbGet db "XYZ"

	cshow "CAS 'Hello' 'Bye' 'Hey'" $ nmdbCAS db "Hello" "Bye" "Hey"
	cshow "Get 'Hello'" $ nmdbGet db "Hello"

	cshow "Del 'Hello'" $ nmdbDel db "Hello"


	cshow "Set 'Hello' '10\\0'" $ nmdbSet db "Hello" "10\0"
	cshow "Incr 'Hello' 10" $ nmdbIncr db "Hello" 10
	cshow "Get 'Hello'" $ nmdbGet db "Hello"

	cshow "Free" $ nmdbFree db

	return ()