haskell/test/Test.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

import Control.Monad
import Data.MessagePack

{-
main = do
  sb <- newSimpleBuffer
  pc <- newPacker sb
  
  pack pc [(1,2),(2,3),(3::Int,4::Int)]
  pack pc [4,5,6::Int]
  pack pc "hoge"
  
  bs <- simpleBufferData sb
  print bs
  
  up <- newUnpacker defaultInitialBufferSize
  
  unpackerFeed up bs

  let f = do
        res <- unpackerExecute up
        when (res==1) $ do
          obj <- unpackerData up
          print obj
          f
  
  f

  return ()
-}

main = do
  bs <- packb [(1,2),(2,3),(3::Int,4::Int)]
  print bs
  dat <- unpackb bs
  print (dat :: Result [(Int, Int)])