{-# LANGUAGE OverloadedStrings #-}

module Test.Parser.Rfc2616 where
--------------------------------------------------------------------------------
import Data.Attoparsec
import Data.ByteString as W
import qualified Data.ByteString.Char8 as C
import Test.Parser.Parser
import Test.HUnit
--------------------------------------------------------------------------------
import Network.Parser.RfcCommon
import Network.Parser.Rfc2234
import Network.Parser.Rfc2616
import Network.Types
--------------------------------------------------------------------------------
-- Data
parseGetData = C.concat 
               [ "GET /favicon.ico HTTP/1.1\r\n"
               , "Host: 0.0.0.0=5000\r\n"
               , "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9) Gecko/2008061015 Firefox/3.0\r\n"
               , "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8\r\n"
               , "Accept-Language: en-us,en;q=0.5\r\n"
               , "Accept-Encoding: gzip,deflate\r\n"
               , "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7\r\n"
               , "Keep-Alive: 300\r\n"
               , "Connection: keep-alive\r\n"
               , "\r\n" ]

tests = TestList $ fmap TestCase lst

lst = [test_octet, test_char, test_upalpha, test_loalpha, test_lws, test_quotedString, test_requestline, test_requestline2]
-- Tests

test_octet = ae "octet" (Just 48) (aP octet "01")
test_char = ae "char" (Just 65) (aP char "AbC")
test_upalpha = ae "upalpha" (Just 66) (aP upalpha "Ba")
test_loalpha = ae "loalpha" (Just 122) (aP loalpha "zE")

test_lws = ae "lws" (Just 32) (aP lws "\n\t   asd")
test_quotedString = ae "quotedString" (p "Take this") (aP quotedString "\"Take this\"")


test_requestline = ae "requestLine" 
                   (Just (GET, Asterisk, http11))
                   (aP requestLine "GET * HTTP/1.1\n")

test_requestline2 = ae "requestLine" 
                    (Just (GET, AbsolutePath "/index.html", http11))
                    (aP requestLine "GET /index.html HTTP/1.1\n")

test_requestline3 = ae "requestLine" 
                    (Just (GET, RelativeRef URI { uriScheme = ""
                                                , uriAuthority = Nothing
                                                , uriPath = "/my.cgi"
                                                , uriQuery = "?foo=bar&john=doe"
                                                , uriFragment = ""}
                                                , http11))
                    (aP requestLine "GET /my.cgi?foo=bar&john=doe HTTP/1.1\n")

test_request = ae "request"
               (Just Request { rqMethod = GET
                             , rqUri = AbsolutePath "/favicon.ico"
                             , rqVersion = http11
                             , rqHeaders = [ ("Host","0.0.0.0=5000")
                                           , ("User-Agent","Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9) Gecko/2008061015 Firefox/3.0")
                                           , ("Accept","text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8")
                                           , ("Accept-Language","en-us,en;q=0.5")
                                           , ("Accept-Encoding","gzip,deflate")
                                           , ("Accept-Charset","ISO-8859-1,utf-8;q=0.7,*;q=0.7")
                                           , ("Keep-Alive","300")
                                           , ("Connection","keep-alive")]
                                           , rqBody = ""})
               (aP request parseGetData)