thunderstrike/purescript-httpurple
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Rename modules and rudimentarily update readme

Browse Source
This commit is contained in:
sigma-andex
2022-05-22 12:47:58 +01:00
parent dc245bbfc7
commit c16eb2bdcc
46 changed files with 178 additions and 165 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
test/Test/HTTPure/BodySpec.purs → test/Test/HTTPurple/BodySpec.purs
View File

@@ -1,4 +1,4 @@
module Test.HTTPure.BodySpec where
module Test.HTTPurple.BodySpec where
import Prelude
@@ -6,13 +6,13 @@ import Data.Maybe (Maybe(Nothing), fromMaybe)
import Effect.Aff (Aff)
import Effect.Class (liftEffect)
import Effect.Ref (new) as Ref
import HTTPure.Body (RequestBody, defaultHeaders, read, toBuffer, toStream, toString, write)
import HTTPure.Headers (header)
import HTTPurple.Body (RequestBody, defaultHeaders, read, toBuffer, toStream, toString, write)
import HTTPurple.Headers (header)
import Node.Buffer (Buffer, fromString)
import Node.Buffer (toString) as Buffer
import Node.Encoding (Encoding(UTF8))
import Node.Stream (readString)
import Test.HTTPure.TestHelpers (Test, getResponseBody, mockRequest, mockResponse, stringToStream, (?=))
import Test.HTTPurple.TestHelpers (Test, getResponseBody, mockRequest, mockResponse, stringToStream, (?=))
import Test.Spec (describe, it)
mockRequestBody :: String -> Aff RequestBody

10
test/Test/HTTPure/HeadersSpec.purs → test/Test/HTTPurple/HeadersSpec.purs
View File

@@ -1,14 +1,14 @@
module Test.HTTPure.HeadersSpec where
module Test.HTTPurple.HeadersSpec where
import Prelude
import Data.Maybe (Maybe(Nothing, Just))
import Data.Tuple (Tuple(Tuple))
import Effect.Class (liftEffect)
import HTTPure.Headers (empty, header, headers, read, write)
import HTTPure.Lookup ((!!))
import Test.HTTPure.TestHelpers ((?=))
import Test.HTTPure.TestHelpers as TestHelpers
import HTTPurple.Headers (empty, header, headers, read, write)
import HTTPurple.Lookup ((!!))
import Test.HTTPurple.TestHelpers ((?=))
import Test.HTTPurple.TestHelpers as TestHelpers
import Test.Spec (describe, it)
lookupSpec :: TestHelpers.Test

4
test/Test/HTTPure/IntegrationSpec.purs → test/Test/HTTPurple/IntegrationSpec.purs
View File

@@ -1,4 +1,4 @@
module Test.HTTPure.IntegrationSpec where
module Test.HTTPurple.IntegrationSpec where
import Prelude
@@ -19,7 +19,7 @@ import Examples.SSL.Main as SSL
import Foreign.Object (empty, singleton)
import Node.Buffer (toArray)
import Node.FS.Aff (readFile)
import Test.HTTPure.TestHelpers
import Test.HTTPurple.TestHelpers
( Test
, get
, get'

6
test/Test/HTTPure/LookupSpec.purs → test/Test/HTTPurple/LookupSpec.purs
View File

@@ -1,11 +1,11 @@
module Test.HTTPure.LookupSpec where
module Test.HTTPurple.LookupSpec where
import Prelude
import Data.Maybe (Maybe(Nothing, Just))
import Foreign.Object (singleton)
import HTTPure.Lookup ((!!), (!?), (!@))
import Test.HTTPure.TestHelpers (Test, (?=))
import HTTPurple.Lookup ((!!), (!?), (!@))
import Test.HTTPurple.TestHelpers (Test, (?=))
import Test.Spec (describe, it)
atSpec :: Test

6
test/Test/HTTPure/MethodSpec.purs → test/Test/HTTPurple/MethodSpec.purs
View File

@@ -1,12 +1,12 @@
module Test.HTTPure.MethodSpec where
module Test.HTTPurple.MethodSpec where
import Prelude
import HTTPure.Method
import HTTPurple.Method
( Method(Get, Post, Put, Delete, Head, Connect, Options, Trace, Patch)
, read
)
import Test.HTTPure.TestHelpers (Test, mockRequest, (?=))
import Test.HTTPurple.TestHelpers (Test, mockRequest, (?=))
import Test.Spec (describe, it)
showSpec :: Test

6
test/Test/HTTPure/PathSpec.purs → test/Test/HTTPurple/PathSpec.purs
View File

@@ -1,9 +1,9 @@
module Test.HTTPure.PathSpec where
module Test.HTTPurple.PathSpec where
import Prelude
import HTTPure.Path (read)
import Test.HTTPure.TestHelpers (Test, mockRequest, (?=))
import HTTPurple.Path (read)
import Test.HTTPurple.TestHelpers (Test, mockRequest, (?=))
import Test.Spec (describe, it)
readSpec :: Test

6
test/Test/HTTPure/QuerySpec.purs → test/Test/HTTPurple/QuerySpec.purs
View File

@@ -1,11 +1,11 @@
module Test.HTTPure.QuerySpec where
module Test.HTTPurple.QuerySpec where
import Prelude
import Data.Tuple (Tuple(Tuple))
import Foreign.Object (empty, fromFoldable, singleton)
import HTTPure.Query (read)
import Test.HTTPure.TestHelpers (Test, mockRequest, (?=))
import HTTPurple.Query (read)
import Test.HTTPurple.TestHelpers (Test, mockRequest, (?=))
import Test.Spec (describe, it)
readSpec :: Test

14
test/Test/HTTPure/RequestSpec.purs → test/Test/HTTPurple/RequestSpec.purs
View File

@@ -1,4 +1,4 @@
module Test.HTTPure.RequestSpec where
module Test.HTTPurple.RequestSpec where
import Prelude
@@ -11,15 +11,15 @@ import Data.Tuple (Tuple(Tuple))
import Effect.Aff (Aff)
import Effect.Exception (error)
import Foreign.Object (singleton)
import HTTPure.Body (toString)
import HTTPure.Headers (headers)
import HTTPure.Method (Method(Post))
import HTTPure.Request (fromHTTPRequest, fullPath)
import HTTPure.Version (Version(HTTP1_1))
import HTTPurple.Body (toString)
import HTTPurple.Headers (headers)
import HTTPurple.Method (Method(Post))
import HTTPurple.Request (fromHTTPRequest, fullPath)
import HTTPurple.Version (Version(HTTP1_1))
import Routing.Duplex as RD
import Routing.Duplex.Generic as G
import Routing.Duplex.Generic.Syntax ((?))
import Test.HTTPure.TestHelpers (Test, mockRequest, (?=))
import Test.HTTPurple.TestHelpers (Test, mockRequest, (?=))
import Test.Spec (describe, it)
data Route = Test { a :: Maybe String }

10
test/Test/HTTPure/ResponseSpec.purs → test/Test/HTTPurple/ResponseSpec.purs
View File

@@ -1,17 +1,17 @@
module Test.HTTPure.ResponseSpec where
module Test.HTTPurple.ResponseSpec where
import Prelude
import Data.Either (Either(Right))
import Effect.Aff (makeAff, nonCanceler)
import Effect.Class (liftEffect)
import HTTPure.Body (defaultHeaders)
import HTTPure.Headers (header)
import HTTPure.Response (emptyResponse, emptyResponse', response, response', send)
import HTTPurple.Body (defaultHeaders)
import HTTPurple.Headers (header)
import HTTPurple.Response (emptyResponse, emptyResponse', response, response', send)
import Node.Encoding (Encoding(UTF8))
import Node.HTTP (responseAsStream)
import Node.Stream (end, writeString)
import Test.HTTPure.TestHelpers
import Test.HTTPurple.TestHelpers
( Test
, getResponseBody
, getResponseHeader

10
test/Test/HTTPure/ServerSpec.purs → test/Test/HTTPurple/ServerSpec.purs
View File

@@ -1,4 +1,4 @@
module Test.HTTPure.ServerSpec where
module Test.HTTPurple.ServerSpec where
import Prelude
@@ -10,9 +10,9 @@ import Data.Options ((:=))
import Effect.Class (liftEffect)
import Effect.Exception (error)
import Foreign.Object (empty)
import HTTPure.Request (Request)
import HTTPure.Response (ResponseM, notFound, ok)
import HTTPure.Server (serve, serve', serveSecure, serveSecure')
import HTTPurple.Request (Request)
import HTTPurple.Response (ResponseM, notFound, ok)
import HTTPurple.Server (serve, serve', serveSecure, serveSecure')
import Node.Encoding (Encoding(UTF8))
import Node.FS.Sync (readTextFile)
import Node.HTTP.Secure (key, keyString, cert, certString)
@@ -20,7 +20,7 @@ import Routing.Duplex (RouteDuplex')
import Routing.Duplex as RD
import Routing.Duplex.Generic as G
import Routing.Duplex.Generic as RG
import Test.HTTPure.TestHelpers (Test, (?=), get, get', getStatus)
import Test.HTTPurple.TestHelpers (Test, (?=), get, get', getStatus)
import Test.Spec (describe, it)
import Test.Spec.Assertions (expectError)

6
test/Test/HTTPure/StatusSpec.purs → test/Test/HTTPurple/StatusSpec.purs
View File

@@ -1,10 +1,10 @@
module Test.HTTPure.StatusSpec where
module Test.HTTPurple.StatusSpec where
import Prelude
import Effect.Class (liftEffect)
import HTTPure.Status (write)
import Test.HTTPure.TestHelpers (Test, getResponseStatus, mockResponse, (?=))
import HTTPurple.Status (write)
import Test.HTTPurple.TestHelpers (Test, getResponseStatus, mockResponse, (?=))
import Test.Spec (describe, it)
writeSpec :: Test

0
test/Test/HTTPure/TestHelpers.js → test/Test/HTTPurple/TestHelpers.js
View File

2
test/Test/HTTPure/TestHelpers.purs → test/Test/HTTPurple/TestHelpers.purs
View File

@@ -1,4 +1,4 @@
module Test.HTTPure.TestHelpers where
module Test.HTTPurple.TestHelpers where
import Prelude

6
test/Test/HTTPure/UtilsSpec.purs → test/Test/HTTPurple/UtilsSpec.purs
View File

@@ -1,7 +1,7 @@
module Test.HTTPure.UtilsSpec where
module Test.HTTPurple.UtilsSpec where
import HTTPure.Utils (replacePlus)
import Test.HTTPure.TestHelpers (Test, (?=))
import HTTPurple.Utils (replacePlus)
import Test.HTTPurple.TestHelpers (Test, (?=))
import Test.Spec (describe, it)
replacePlusSpec :: Test

6
test/Test/HTTPure/VersionSpec.purs → test/Test/HTTPurple/VersionSpec.purs
View File

@@ -1,12 +1,12 @@
module Test.HTTPure.VersionSpec where
module Test.HTTPurple.VersionSpec where
import Prelude
import HTTPure.Version
import HTTPurple.Version
( Version(HTTP0_9, HTTP1_0, HTTP1_1, HTTP2_0, HTTP3_0, Other)
, read
)
import Test.HTTPure.TestHelpers (Test, mockRequest, (?=))
import Test.HTTPurple.TestHelpers (Test, mockRequest, (?=))
import Test.Spec (describe, it)
showSpec :: Test

30
test/Test/Main.purs
View File

@@ -3,26 +3,26 @@ module Test.Main where
import Prelude
import Effect.Aff (launchAff_)
import Test.HTTPure.BodySpec (bodySpec)
import Test.HTTPure.HeadersSpec (headersSpec)
import Test.HTTPure.IntegrationSpec (integrationSpec)
import Test.HTTPure.LookupSpec (lookupSpec)
import Test.HTTPure.MethodSpec (methodSpec)
import Test.HTTPure.PathSpec (pathSpec)
import Test.HTTPure.QuerySpec (querySpec)
import Test.HTTPure.RequestSpec (requestSpec)
import Test.HTTPure.ResponseSpec (responseSpec)
import Test.HTTPure.ServerSpec (serverSpec)
import Test.HTTPure.StatusSpec (statusSpec)
import Test.HTTPure.TestHelpers (TestSuite)
import Test.HTTPure.UtilsSpec (utilsSpec)
import Test.HTTPure.VersionSpec (versionSpec)
import Test.HTTPurple.BodySpec (bodySpec)
import Test.HTTPurple.HeadersSpec (headersSpec)
import Test.HTTPurple.IntegrationSpec (integrationSpec)
import Test.HTTPurple.LookupSpec (lookupSpec)
import Test.HTTPurple.MethodSpec (methodSpec)
import Test.HTTPurple.PathSpec (pathSpec)
import Test.HTTPurple.QuerySpec (querySpec)
import Test.HTTPurple.RequestSpec (requestSpec)
import Test.HTTPurple.ResponseSpec (responseSpec)
import Test.HTTPurple.ServerSpec (serverSpec)
import Test.HTTPurple.StatusSpec (statusSpec)
import Test.HTTPurple.TestHelpers (TestSuite)
import Test.HTTPurple.UtilsSpec (utilsSpec)
import Test.HTTPurple.VersionSpec (versionSpec)
import Test.Spec (describe)
import Test.Spec.Reporter (specReporter)
import Test.Spec.Runner (runSpec)
main :: TestSuite
main = launchAff_ $ runSpec [ specReporter ] $ describe "HTTPure" do
main = launchAff_ $ runSpec [ specReporter ] $ describe "HTTPurple" do
bodySpec
headersSpec
lookupSpec