scp-streams-0.1.0: tests/main.hs

{-# LANGUAGE OverloadedStrings #-}
module Main (main) where

import qualified Data.ByteString as B
import qualified System.IO.Streams as S

import Network.SCP.Protocol

main :: IO ()
main = do
  scp <- sendDirect "/tmp/a"
  _ <- S.fromByteString "A" >>= copy scp 0 7 5 5 1 "a"
  _ <- stop scp
  "A" <- B.readFile "/tmp/a"
  return ()