http_fn 0.1.0
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- checksums.yaml +7 -0
- data/.gitignore +17 -0
- data/.ruby-version +1 -0
- data/.travis.yml +3 -0
- data/Gemfile +4 -0
- data/LICENSE.txt +22 -0
- data/README.md +160 -0
- data/Rakefile +11 -0
- data/http_fn.gemspec +26 -0
- data/lib/http_fn.rb +43 -0
- data/lib/http_fn/.ruby-version +1 -0
- data/lib/http_fn/curl.rb +22 -0
- data/lib/http_fn/http_fn.rb +0 -0
- data/lib/http_fn/httpie.rb +20 -0
- data/lib/http_fn/net_http.rb +23 -0
- data/lib/http_fn/operators.rb +13 -0
- data/lib/http_fn/rack.rb +58 -0
- data/lib/http_fn/utils.rb +62 -0
- data/lib/http_fn/version.rb +3 -0
- data/test/http_fn/curl_test.rb +28 -0
- data/test/http_fn/httpie_test.rb +28 -0
- data/test/http_fn/rack_test.rb +45 -0
- data/test/http_fn_test.rb +13 -0
- data/test/minitest_helper.rb +4 -0
- data/test/test_http_fn.rb +7 -0
- metadata +143 -0
checksums.yaml
ADDED
@@ -0,0 +1,7 @@
|
|
1
|
+
---
|
2
|
+
SHA256:
|
3
|
+
metadata.gz: 5f163f75584cb8c3efd97c4086a5c6def7b7455ddd3a51325e4b205eff1c7932
|
4
|
+
data.tar.gz: 0d8c44e768a2cba2234c23294d1ac4bec17f78d3b792799387967438cd70e8a4
|
5
|
+
SHA512:
|
6
|
+
metadata.gz: 2d9f0607650dea8a96dd44491e4de2a91b7a87e947a30fdfde6c039002690e693ad0aed4695bb6ec734a9baf6c41247a005515370cda8623170a5c94f97e0cd6
|
7
|
+
data.tar.gz: 794d6bf88255e7329e62a2b817f98c7c85b694aca48ccc884b89bc253bd00888267de1d5b9ed86414a8ee2059387aad4563d8574b23df4f225f2db54e6bd24f6
|
data/.gitignore
ADDED
data/.ruby-version
ADDED
@@ -0,0 +1 @@
|
|
1
|
+
2.6
|
data/.travis.yml
ADDED
data/Gemfile
ADDED
data/LICENSE.txt
ADDED
@@ -0,0 +1,22 @@
|
|
1
|
+
Copyright (c) 2017 Martin Chabot
|
2
|
+
|
3
|
+
MIT License
|
4
|
+
|
5
|
+
Permission is hereby granted, free of charge, to any person obtaining
|
6
|
+
a copy of this software and associated documentation files (the
|
7
|
+
"Software"), to deal in the Software without restriction, including
|
8
|
+
without limitation the rights to use, copy, modify, merge, publish,
|
9
|
+
distribute, sublicense, and/or sell copies of the Software, and to
|
10
|
+
permit persons to whom the Software is furnished to do so, subject to
|
11
|
+
the following conditions:
|
12
|
+
|
13
|
+
The above copyright notice and this permission notice shall be
|
14
|
+
included in all copies or substantial portions of the Software.
|
15
|
+
|
16
|
+
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
17
|
+
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
18
|
+
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
19
|
+
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
|
20
|
+
LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
|
21
|
+
OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
|
22
|
+
WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
data/README.md
ADDED
@@ -0,0 +1,160 @@
|
|
1
|
+
# HttpFn
|
2
|
+
|
3
|
+
Functional http client in Ruby.
|
4
|
+
|
5
|
+
## Usage
|
6
|
+
|
7
|
+
### Basics
|
8
|
+
|
9
|
+
#### The Request Structure
|
10
|
+
|
11
|
+
In order to query an HTTP server you will need to build a request hash.
|
12
|
+
|
13
|
+
Here's an example of a request:
|
14
|
+
|
15
|
+
```ruby
|
16
|
+
{:proto=>"HTTP/1.1",
|
17
|
+
:host=>"http://api.github.com",
|
18
|
+
:path=>"/users/martinos/repos",
|
19
|
+
:query=>{},
|
20
|
+
:header=>
|
21
|
+
{"accept"=>"application/json",
|
22
|
+
"Content-Type"=>"application/json",
|
23
|
+
"user-agent"=>"paw/3.0.11 (macintosh; os x/10.11.6) gcdhttprequest"},
|
24
|
+
:method=>"GET",
|
25
|
+
:body=>""}
|
26
|
+
```
|
27
|
+
|
28
|
+
To build that request you can use builder functions and the function composition operator ([`>>`](https://docs.ruby-lang.org/en/2.6.0/Proc.html#method-i-3E-3E)). Every builder function adds values to the response object. Example:
|
29
|
+
|
30
|
+
```ruby
|
31
|
+
query = verb.("get") >>
|
32
|
+
with_path.("/users/martinos/repos") >>
|
33
|
+
with_host.("https://api.github.com") >>
|
34
|
+
add_headers.(json_headers)
|
35
|
+
```
|
36
|
+
The `query` variable is a builder function that is created by combining multiple builder functions together.
|
37
|
+
|
38
|
+
This `query` function takes a hash as a parameter, and returns a hash decorated by the builders.
|
39
|
+
|
40
|
+
To demonstrate how it works, we need an initialized request (`empty_req`). Here's the `empty_req`:
|
41
|
+
|
42
|
+
```ruby
|
43
|
+
pp empty_req
|
44
|
+
# =>
|
45
|
+
{:proto=>"HTTP/1.1",
|
46
|
+
:host=>"http://example.com",
|
47
|
+
:path=>"/",
|
48
|
+
:query=>{},
|
49
|
+
:header=>{},
|
50
|
+
:method=>"GET",
|
51
|
+
:body=>""}
|
52
|
+
```
|
53
|
+
|
54
|
+
We apply the `empty_req` to the query that we've built.
|
55
|
+
```ruby
|
56
|
+
pp query.(empty_req)
|
57
|
+
# =>
|
58
|
+
{:proto=>"HTTP/1.1",
|
59
|
+
:host=>"https://api.github.com",
|
60
|
+
:path=>"/users/martinos/repos",
|
61
|
+
:query=>{},
|
62
|
+
:header=>
|
63
|
+
{"accept"=>"application/json",
|
64
|
+
"Content-Type"=>"application/json",
|
65
|
+
"user-agent"=>"paw/3.0.11 (macintosh; os x/10.11.6) gcdhttprequest"},
|
66
|
+
:method=>"GET",
|
67
|
+
:body=>""}
|
68
|
+
```
|
69
|
+
In order to `run` the query, you can combine the query with a "server" function (lambda) that takes a "request", sends it to the server and returns a http "response".
|
70
|
+
|
71
|
+
```ruby
|
72
|
+
HttpFn::NetHttp.server.(query.(empty_req))
|
73
|
+
|
74
|
+
# =>
|
75
|
+
{:status=>"200",
|
76
|
+
:header=>
|
77
|
+
{"server"=>["GitHub.com"],
|
78
|
+
"date"=>["Sun, 04 Jun 2017 02:20:05 GMT"],
|
79
|
+
"content-type"=>["application/json; charset=utf-8"],
|
80
|
+
"vary"=>["Accept", "Accept-Encoding"],
|
81
|
+
...},
|
82
|
+
}
|
83
|
+
:body => "{...}"
|
84
|
+
}
|
85
|
+
|
86
|
+
```
|
87
|
+
|
88
|
+
```ruby
|
89
|
+
(query >> HttpFn::NetHttp.server).(empty_req)
|
90
|
+
```
|
91
|
+
|
92
|
+
Since a "server" is just a function that takes an HTTP request and returns an HTTP response, instead of using Net::Http interface you can use the `HttpFn::Rack.server` function that takes a rack app as parameter.
|
93
|
+
|
94
|
+
```run
|
95
|
+
query >> HttpFn::Rack.server.(Rails.application)
|
96
|
+
```
|
97
|
+
|
98
|
+
## Middlewares
|
99
|
+
|
100
|
+
Since we are using composable functions to build our request and to query the web server, it's very easy to create our own "middlewares".
|
101
|
+
|
102
|
+
If we want to all the request and the response we can create a simple function such as:
|
103
|
+
|
104
|
+
```
|
105
|
+
debug_fn = -> print, fn, input {
|
106
|
+
print.("Input: \n")
|
107
|
+
print.(input.to_s)
|
108
|
+
output = fn.(input)
|
109
|
+
print.("Output: \n")
|
110
|
+
print.(output)
|
111
|
+
output
|
112
|
+
}.curry
|
113
|
+
|
114
|
+
```
|
115
|
+
|
116
|
+
the `print` param is a function that prints an object.
|
117
|
+
|
118
|
+
```
|
119
|
+
printer = -> a { print a; a }
|
120
|
+
query >> debug_fn.(printer).(HttpFn::NetHttp.server)
|
121
|
+
```
|
122
|
+
|
123
|
+
of course you can change the printer to print to the log file.
|
124
|
+
|
125
|
+
```
|
126
|
+
printer = -> a { logger.debug(a) ; a }
|
127
|
+
```
|
128
|
+
|
129
|
+
### Curl, Httpie output
|
130
|
+
|
131
|
+
If you want to generate documentation with curl commands you can use a simple function such as:
|
132
|
+
|
133
|
+
```
|
134
|
+
curl = -> a { puts HttpFn::Curl.req.(a) ; a }.curry
|
135
|
+
```
|
136
|
+
|
137
|
+
Then you can use it with the query and the server function.
|
138
|
+
|
139
|
+
```run
|
140
|
+
query >> curl >> HttpFn::NetHttp.server
|
141
|
+
```
|
142
|
+
|
143
|
+
This will output:
|
144
|
+
|
145
|
+
```
|
146
|
+
curl -X 'GET' 'https://api.github.com/users/martinos/repos?' \
|
147
|
+
-H 'accept: application/json' \
|
148
|
+
-H 'Content-Type: application/json' \
|
149
|
+
-H 'user-agent: ruby net/http'
|
150
|
+
```
|
151
|
+
|
152
|
+
|
153
|
+
|
154
|
+
## Contributing
|
155
|
+
|
156
|
+
1. Fork it ( https://github.com/martinos/http_fn/fork )
|
157
|
+
2. Create your feature branch (`git checkout -b my-new-feature`)
|
158
|
+
3. Commit your changes (`git commit -am 'Add some feature'`)
|
159
|
+
4. Push to the branch (`git push origin my-new-feature`)
|
160
|
+
5. Create a new Pull Request
|
data/Rakefile
ADDED
data/http_fn.gemspec
ADDED
@@ -0,0 +1,26 @@
|
|
1
|
+
# coding: utf-8
|
2
|
+
lib = File.expand_path('../lib', __FILE__)
|
3
|
+
$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
|
4
|
+
require 'http_fn/version'
|
5
|
+
|
6
|
+
Gem::Specification.new do |spec|
|
7
|
+
spec.name = "http_fn"
|
8
|
+
spec.version = HttpFn::VERSION
|
9
|
+
spec.authors = ["Martin Chabot"]
|
10
|
+
spec.email = ["chabotm@gmail.com"]
|
11
|
+
spec.summary = %q{Http client that levrage the use of fp principle}
|
12
|
+
spec.description = %q{Http client that levrage the use of fp principle}
|
13
|
+
spec.homepage = ""
|
14
|
+
spec.license = "MIT"
|
15
|
+
|
16
|
+
spec.files = `git ls-files -z`.split("\x0")
|
17
|
+
spec.executables = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
|
18
|
+
spec.test_files = spec.files.grep(%r{^(test|spec|features)/})
|
19
|
+
spec.require_paths = ["lib"]
|
20
|
+
|
21
|
+
spec.add_development_dependency "bundler", "~> 1.7"
|
22
|
+
spec.add_development_dependency "minitest"
|
23
|
+
spec.add_dependency "rake", "~> 10.0"
|
24
|
+
spec.add_dependency "rack"
|
25
|
+
spec.add_dependency "fn_reader"
|
26
|
+
end
|
data/lib/http_fn.rb
ADDED
@@ -0,0 +1,43 @@
|
|
1
|
+
require "fn_reader"
|
2
|
+
require "uri"
|
3
|
+
require "base64"
|
4
|
+
require "http_fn/version"
|
5
|
+
require "http_fn/utils"
|
6
|
+
|
7
|
+
module HttpFn
|
8
|
+
include Utils
|
9
|
+
|
10
|
+
fn_reader :verb, :with_host, :with_path, :with_query, :withUri,
|
11
|
+
:with_json, :with_headers, :add_headers, :fetch, :to_curl,
|
12
|
+
:out_curl, :json_resp, :to_uri, :empty_req, :json_headers,
|
13
|
+
:with_basic_auth, :run_
|
14
|
+
|
15
|
+
@@empty_req = { proto: "HTTP/1.1", host: "http://example.com", path: "/", query: {}, header: {}, method: "GET", body: "" }
|
16
|
+
@@empty_resp = { status: nil, header: {}, body: {} }
|
17
|
+
|
18
|
+
@@run_ = -> fn { fn.(@@empty_req) } # underscore because run conflicts with run fn in minitest
|
19
|
+
@@verb = -> verb, req { req.merge({ method: verb.to_s.upcase }) }.curry
|
20
|
+
@@with_host = -> host, req { req[:host] = host; req }.curry
|
21
|
+
@@with_path = -> path, req { req[:path] = path; req }.curry
|
22
|
+
@@with_query = -> params, req { req[:query] = params; req }.curry
|
23
|
+
@@with_json = -> hash, req { req[:body] = hash.to_json; req }.curry
|
24
|
+
@@with_headers = -> header, req { req[:header] = header; req }.curry
|
25
|
+
@@add_headers = -> header, req { req[:header].merge!(header); req }.curry
|
26
|
+
@@with_basic_auth = -> user_name, pwd, req do
|
27
|
+
encoded = Base64.strict_encode64("#{user_name}:#{pwd}")
|
28
|
+
req.then(&add_headers.({ "Authorization" => "Basic #{encoded}" }))
|
29
|
+
end.curry
|
30
|
+
|
31
|
+
@@json_resp = Utils.at.(:body) >> Utils.parse_json
|
32
|
+
@@print = -> a { $stdout.puts a.pretty_inspect; a }
|
33
|
+
@@to_uri = -> req {
|
34
|
+
uri = URI(req.fetch(:host))
|
35
|
+
req[:query] && uri.query = URI.encode_www_form(req[:query])
|
36
|
+
uri.path = req[:path]
|
37
|
+
uri
|
38
|
+
}
|
39
|
+
@@json_headers =
|
40
|
+
{ "accept" => "application/json",
|
41
|
+
"Content-Type" => "application/json",
|
42
|
+
"user-agent" => "paw/3.0.11 (macintosh; os x/10.11.6) gcdhttprequest" }
|
43
|
+
end
|
@@ -0,0 +1 @@
|
|
1
|
+
2.4
|
data/lib/http_fn/curl.rb
ADDED
@@ -0,0 +1,22 @@
|
|
1
|
+
require "net/http"
|
2
|
+
require "http_fn"
|
3
|
+
|
4
|
+
module HttpFn::Curl
|
5
|
+
include HttpFn
|
6
|
+
|
7
|
+
fn_reader :print_curl, :req
|
8
|
+
|
9
|
+
@@req = -> req {
|
10
|
+
first_part = %{curl -X '#{req[:method]}' '#{HttpFn::to_uri.(req).to_s}' #{req[:header].map(&@@header_to_curl).join(" ")}}
|
11
|
+
if req[:body] && !req[:body].empty?
|
12
|
+
first_part + %{\n\ -d $'#{req[:body].gsub("'", "\'")}'}
|
13
|
+
else
|
14
|
+
first_part
|
15
|
+
end
|
16
|
+
}
|
17
|
+
@@header_to_curl = -> a {
|
18
|
+
"\\\n -H '#{a[0]}: #{a[1]}'"
|
19
|
+
}
|
20
|
+
|
21
|
+
@@print_curl = -> req { $stdout.puts(to_curl.(req)); req }.curry
|
22
|
+
end
|
File without changes
|
@@ -0,0 +1,20 @@
|
|
1
|
+
require "net/http"
|
2
|
+
require "http_fn"
|
3
|
+
|
4
|
+
module HttpFn::Httpie
|
5
|
+
include HttpFn
|
6
|
+
|
7
|
+
fn_reader :print_curl, :req
|
8
|
+
|
9
|
+
@@req = -> req {
|
10
|
+
first_part = %{http #{req[:method]} '#{HttpFn::to_uri.(req).to_s}' #{req[:header].map(&@@header_to_httpie).join(" ")}}
|
11
|
+
if req[:body] && !req[:body].empty?
|
12
|
+
%{echo $'#{req[:body].gsub("'", "\'")}' |\\\n#{first_part}}
|
13
|
+
else
|
14
|
+
first_part
|
15
|
+
end
|
16
|
+
}
|
17
|
+
@@header_to_httpie = -> a {
|
18
|
+
"\\\n '#{a[0]}: #{a[1]}'"
|
19
|
+
}
|
20
|
+
end
|
@@ -0,0 +1,23 @@
|
|
1
|
+
require 'net/http'
|
2
|
+
require 'http_fn'
|
3
|
+
|
4
|
+
module HttpFn::NetHttp
|
5
|
+
include HttpFn
|
6
|
+
mattr_reader :method_str_to_req, :server, :net_resp
|
7
|
+
|
8
|
+
@@method_str_to_req = {"GET" => Net::HTTP::Get, "POST" => Net::HTTP::Post, "DELETE" => Net::HTTP::Delete, "PUT" => Net::HTTP::Put, "PATCH" => Net::HTTP::Patch}
|
9
|
+
|
10
|
+
@@server = -> req {
|
11
|
+
uri = to_uri.(req)
|
12
|
+
req_ = method_str_to_req.fetch(req.fetch(:method)).new(uri)
|
13
|
+
req_.set_body_internal(req[:body]) if req[:body]
|
14
|
+
header = req.fetch(:header)
|
15
|
+
header.each { |key, val| req_[key] = val }
|
16
|
+
http = Net::HTTP.new(uri.host, uri.port)
|
17
|
+
http.use_ssl = uri.scheme == 'https'
|
18
|
+
# http.set_debug_output($stdout)
|
19
|
+
@@net_resp.(http.request(req_))
|
20
|
+
}
|
21
|
+
|
22
|
+
@@net_resp = -> resp { {status: resp.code, header: resp.to_hash, body: resp.body} }
|
23
|
+
end
|
data/lib/http_fn/rack.rb
ADDED
@@ -0,0 +1,58 @@
|
|
1
|
+
require "http_fn"
|
2
|
+
require "pp"
|
3
|
+
#
|
4
|
+
# https://www.diffchecker.com/ihCGIKyG
|
5
|
+
|
6
|
+
module HttpFn::Rack
|
7
|
+
fn_reader :to_env, :server, :rack_resp_to_resp
|
8
|
+
|
9
|
+
@@server = -> rack { to_env >> rack.method(:call) >> rack_resp_to_resp }
|
10
|
+
@@to_env = -> request {
|
11
|
+
session ||= {}
|
12
|
+
session_options ||= {}
|
13
|
+
|
14
|
+
uri = request.then(&HttpFn.to_uri)
|
15
|
+
header = (request[:header] || {}).dup
|
16
|
+
body = request[:body] || ""
|
17
|
+
|
18
|
+
content_type_key, val = header.detect { |key, val| puts key; key.downcase == "content-type" }
|
19
|
+
env = {
|
20
|
+
# CGI variables specified by Rack
|
21
|
+
"REQUEST_METHOD" => request[:method].to_s.upcase,
|
22
|
+
"CONTENT_TYPE" => header.delete(content_type_key),
|
23
|
+
"CONTENT_LENGTH" => body.bytesize,
|
24
|
+
"PATH_INFO" => uri.path,
|
25
|
+
"QUERY_STRING" => uri.query || "",
|
26
|
+
"SERVER_NAME" => uri.host,
|
27
|
+
"SERVER_PORT" => uri.port,
|
28
|
+
"SCRIPT_NAME" => "",
|
29
|
+
}
|
30
|
+
|
31
|
+
env["HTTP_AUTHORIZATION"] = "Basic " + [uri.userinfo].pack("m").delete("\r\n") if uri.userinfo
|
32
|
+
|
33
|
+
# Rack-specific variables
|
34
|
+
env["rack.input"] = StringIO.new(body)
|
35
|
+
env["rack.errors"] = $stderr
|
36
|
+
env["rack.version"] = ::Rack::VERSION
|
37
|
+
env["rack.url_scheme"] = uri.scheme
|
38
|
+
env["rack.run_once"] = true
|
39
|
+
env["rack.session"] = session
|
40
|
+
env["rack.session.options"] = session_options
|
41
|
+
|
42
|
+
header.each { |k, v| env["HTTP_#{k.tr("-", "_").upcase}"] = v }
|
43
|
+
env
|
44
|
+
}
|
45
|
+
|
46
|
+
@@rack_resp_to_resp = -> resp {
|
47
|
+
{ status: resp[0],
|
48
|
+
header: resp[1],
|
49
|
+
body: @@body_from_rack_response.(resp[2]) }
|
50
|
+
}
|
51
|
+
|
52
|
+
@@body_from_rack_response = -> response {
|
53
|
+
body = ""
|
54
|
+
response.each { |line| body << line }
|
55
|
+
response.close if response.respond_to?(:close)
|
56
|
+
body
|
57
|
+
}
|
58
|
+
end
|
@@ -0,0 +1,62 @@
|
|
1
|
+
require "json"
|
2
|
+
require "pp"
|
3
|
+
require "yaml"
|
4
|
+
|
5
|
+
module Utils
|
6
|
+
fn_reader :parse_json, :debug, :at, :retry_fn,
|
7
|
+
:record, :player, :count_by, :cache, :red, :time,
|
8
|
+
:expired, :apply, :and_then, :default, :map, :get, :try
|
9
|
+
|
10
|
+
@@parse_json = JSON.method(:parse)
|
11
|
+
@@debug = -> print, a, b { print.(a); print.(b.to_s); b }.curry
|
12
|
+
@@at = -> key, hash { hash[key] }.curry
|
13
|
+
@@red = -> a { "\033[31m#{a}\033[0m" }
|
14
|
+
# ( a -> b ) -> a -> b
|
15
|
+
@@try = -> f, a { a.nil? ? nil : f.(a) }.curry
|
16
|
+
@@retry_fn = -> fn, a {
|
17
|
+
begin
|
18
|
+
fn.(a)
|
19
|
+
rescue
|
20
|
+
sleep(1)
|
21
|
+
puts "RETRYING"
|
22
|
+
@@retry_fn.(fn).(a)
|
23
|
+
end
|
24
|
+
}.curry
|
25
|
+
@@record = -> filename, to_save {
|
26
|
+
File.open(filename, "w+") { |a| a << to_save.to_yaml }
|
27
|
+
to_save
|
28
|
+
}.curry
|
29
|
+
@@play = -> filename, _params { YAML.load(File.read(filename)) }.curry
|
30
|
+
# (Float -> String -> Bool) -> String -> (a -> b) -> b
|
31
|
+
@@cache = -> expired, filename, fn, param {
|
32
|
+
if expired.(filename)
|
33
|
+
@@record.(filename).(fn.(param))
|
34
|
+
else
|
35
|
+
puts "reading from cache"
|
36
|
+
@@play.(filename).(nil)
|
37
|
+
end
|
38
|
+
}.curry
|
39
|
+
@@expired = -> sec, a { !File.exist?(a) || (Time.now - File.mtime(a)) > sec }.curry
|
40
|
+
@@count_by = -> fn, a {
|
41
|
+
a.inject({}) do |res, a|
|
42
|
+
by = fn.(a)
|
43
|
+
res[by] ||= 0
|
44
|
+
res[by] += 1
|
45
|
+
res
|
46
|
+
end
|
47
|
+
}.curry
|
48
|
+
|
49
|
+
# (String -> String) -> String -> ( a -> b ) -> a -> b
|
50
|
+
@@time = -> print, msg, fn, a {
|
51
|
+
start_time = Time.now
|
52
|
+
res = fn.(a)
|
53
|
+
print.("Time duration for #{msg} = #{Time.now - start_time}")
|
54
|
+
res
|
55
|
+
}.curry
|
56
|
+
@@apply = -> method, a { a.send(method) }.curry
|
57
|
+
@@default = -> default, a { a.nil? ? default : a }.curry
|
58
|
+
@@and_then = -> f, a { a.nil? ? nil : f.(a) }.curry
|
59
|
+
@@map = -> f, enum { enum.map(&f) }.curry
|
60
|
+
@@at = -> key, hash { hash; hash[key] }.curry
|
61
|
+
@@get = -> method, obj { obj.send(method) }.curry
|
62
|
+
end
|
@@ -0,0 +1,28 @@
|
|
1
|
+
require 'minitest_helper'
|
2
|
+
require 'http_fn'
|
3
|
+
require 'http_fn/rack'
|
4
|
+
require 'http_fn/curl'
|
5
|
+
|
6
|
+
class HttpFn::CurlTest < Minitest::Test
|
7
|
+
include HttpFn
|
8
|
+
|
9
|
+
def setup
|
10
|
+
@curl = verb.("GET") >>~
|
11
|
+
with_path.("/coucou") >>~
|
12
|
+
with_headers.(json_headers) >>~
|
13
|
+
with_host.("https://api.github.com") >>~
|
14
|
+
with_json.({user: "martin"}) >>~
|
15
|
+
HttpFn::Curl.req >>+ run_
|
16
|
+
end
|
17
|
+
|
18
|
+
def test_should_return_a_curl_command
|
19
|
+
res = <<EOF
|
20
|
+
curl -X 'GET' 'https://api.github.com/coucou?' \\
|
21
|
+
-H 'accept: application/json' \\
|
22
|
+
-H 'Content-Type: application/json' \\
|
23
|
+
-H 'user-agent: paw/3.0.11 (macintosh; os x/10.11.6) gcdhttprequest'
|
24
|
+
-d $'{"user":"martin"}'
|
25
|
+
EOF
|
26
|
+
assert_equal res.chomp, @curl
|
27
|
+
end
|
28
|
+
end
|
@@ -0,0 +1,28 @@
|
|
1
|
+
require "minitest_helper"
|
2
|
+
require "http_fn"
|
3
|
+
require "http_fn/rack"
|
4
|
+
require "http_fn/httpie"
|
5
|
+
|
6
|
+
class HttpFn::CurlTest < Minitest::Test
|
7
|
+
include HttpFn
|
8
|
+
|
9
|
+
def setup
|
10
|
+
@curl = (verb.("GET") >>
|
11
|
+
with_path.("/coucou") >>
|
12
|
+
with_headers.(json_headers) >>
|
13
|
+
with_host.("https://api.github.com") >>
|
14
|
+
with_json.({ user: "martin" }) >>
|
15
|
+
HttpFn::Httpie.req).(empty_req)
|
16
|
+
end
|
17
|
+
|
18
|
+
def test_should_return_a_curl_command
|
19
|
+
res = <<EOF
|
20
|
+
echo $'{"user":"martin"}' |\\
|
21
|
+
http GET 'https://api.github.com/coucou?' \\
|
22
|
+
'accept: application/json' \\
|
23
|
+
'Content-Type: application/json' \\
|
24
|
+
'user-agent: paw/3.0.11 (macintosh; os x/10.11.6) gcdhttprequest'
|
25
|
+
EOF
|
26
|
+
assert_equal res.chomp, @curl
|
27
|
+
end
|
28
|
+
end
|
@@ -0,0 +1,45 @@
|
|
1
|
+
require "minitest_helper"
|
2
|
+
require "rack"
|
3
|
+
require "http_fn/rack"
|
4
|
+
|
5
|
+
# https://github.com/macournoyer/thin/blob/a7d1174f47a4491a15b505407c0501cdc8d8d12c/spec/request/parser_spec.rb
|
6
|
+
# rack sample
|
7
|
+
# https://gist.github.com/a1869ea2e5db0563d5772b2eff74ff9f
|
8
|
+
class HttpFn::RackTest < MiniTest::Test
|
9
|
+
include HttpFn
|
10
|
+
|
11
|
+
def setup
|
12
|
+
@req = HttpFn.empty_req.then(&with_host.("http://localhost:3000"))
|
13
|
+
end
|
14
|
+
|
15
|
+
def test_upcase_headers
|
16
|
+
req = @req.then(&add_headers.("X-invisible" => "tata"))
|
17
|
+
env = Rack.to_env.(req)
|
18
|
+
assert_equal "tata", env["HTTP_X_INVISIBLE"]
|
19
|
+
end
|
20
|
+
|
21
|
+
def test_basic_headers
|
22
|
+
env = empty_req.then(&(verb.("get") >> with_host.("https://localhost:3000") >> with_query.({ "name" => "martin" }) >> with_path.("/users/1") >> Rack.to_env))
|
23
|
+
# assert_equal "HTTP/1.1", env["SERVER_PROTOCOL"]
|
24
|
+
# assert_equal "HTTP/1.1", env["HTTP_VERSION"]
|
25
|
+
# assert_equal "/users/1", env["REQUEST_PATH"]
|
26
|
+
assert_equal "GET", env["REQUEST_METHOD"]
|
27
|
+
assert_equal "https", env["rack.url_scheme"]
|
28
|
+
assert_equal "/users/1", env["PATH_INFO"]
|
29
|
+
end
|
30
|
+
|
31
|
+
def test_host
|
32
|
+
env = empty_req.then(&(verb.("get") >> with_host.("https://localhost:3000") >> with_query.({ "name" => "martin" }) >> with_path.("/users/1") >> Rack.to_env))
|
33
|
+
# assert_equal "localhost:3000", env["HTTP_HOST"]
|
34
|
+
assert_equal "localhost", env["SERVER_NAME"]
|
35
|
+
assert_equal 3000, env["SERVER_PORT"]
|
36
|
+
assert_equal "name=martin", env["QUERY_STRING"]
|
37
|
+
assert_equal "", env["SCRIPT_NAME"]
|
38
|
+
end
|
39
|
+
|
40
|
+
def test_dont_prepend_HTTP_to_content_type_and_content_length
|
41
|
+
env = empty_req.then(&(verb.("get") >> with_host.("https://localhost:3000") >> with_query.({ "name" => "martin" }) >> with_path.("/users/1") >> add_headers.({ "content-type" => "application/json" }) >> Rack.to_env))
|
42
|
+
assert_equal "application/json", env["CONTENT_TYPE"]
|
43
|
+
assert_equal 0, env["CONTENT_LENGTH"]
|
44
|
+
end
|
45
|
+
end
|
@@ -0,0 +1,13 @@
|
|
1
|
+
require "minitest_helper"
|
2
|
+
require "http_fn"
|
3
|
+
|
4
|
+
class HttpFn::HttpFnTest < Minitest::Test
|
5
|
+
include HttpFn
|
6
|
+
|
7
|
+
def test_basic_auth
|
8
|
+
req = with_basic_auth.("martin").("secret").(empty_req)
|
9
|
+
authorization = req[:header]["Authorization"]
|
10
|
+
refute_nil authorization
|
11
|
+
assert_equal "Basic bWFydGluOnNlY3JldA==", authorization
|
12
|
+
end
|
13
|
+
end
|
metadata
ADDED
@@ -0,0 +1,143 @@
|
|
1
|
+
--- !ruby/object:Gem::Specification
|
2
|
+
name: http_fn
|
3
|
+
version: !ruby/object:Gem::Version
|
4
|
+
version: 0.1.0
|
5
|
+
platform: ruby
|
6
|
+
authors:
|
7
|
+
- Martin Chabot
|
8
|
+
autorequire:
|
9
|
+
bindir: bin
|
10
|
+
cert_chain: []
|
11
|
+
date: 2020-12-26 00:00:00.000000000 Z
|
12
|
+
dependencies:
|
13
|
+
- !ruby/object:Gem::Dependency
|
14
|
+
name: bundler
|
15
|
+
requirement: !ruby/object:Gem::Requirement
|
16
|
+
requirements:
|
17
|
+
- - "~>"
|
18
|
+
- !ruby/object:Gem::Version
|
19
|
+
version: '1.7'
|
20
|
+
type: :development
|
21
|
+
prerelease: false
|
22
|
+
version_requirements: !ruby/object:Gem::Requirement
|
23
|
+
requirements:
|
24
|
+
- - "~>"
|
25
|
+
- !ruby/object:Gem::Version
|
26
|
+
version: '1.7'
|
27
|
+
- !ruby/object:Gem::Dependency
|
28
|
+
name: minitest
|
29
|
+
requirement: !ruby/object:Gem::Requirement
|
30
|
+
requirements:
|
31
|
+
- - ">="
|
32
|
+
- !ruby/object:Gem::Version
|
33
|
+
version: '0'
|
34
|
+
type: :development
|
35
|
+
prerelease: false
|
36
|
+
version_requirements: !ruby/object:Gem::Requirement
|
37
|
+
requirements:
|
38
|
+
- - ">="
|
39
|
+
- !ruby/object:Gem::Version
|
40
|
+
version: '0'
|
41
|
+
- !ruby/object:Gem::Dependency
|
42
|
+
name: rake
|
43
|
+
requirement: !ruby/object:Gem::Requirement
|
44
|
+
requirements:
|
45
|
+
- - "~>"
|
46
|
+
- !ruby/object:Gem::Version
|
47
|
+
version: '10.0'
|
48
|
+
type: :runtime
|
49
|
+
prerelease: false
|
50
|
+
version_requirements: !ruby/object:Gem::Requirement
|
51
|
+
requirements:
|
52
|
+
- - "~>"
|
53
|
+
- !ruby/object:Gem::Version
|
54
|
+
version: '10.0'
|
55
|
+
- !ruby/object:Gem::Dependency
|
56
|
+
name: rack
|
57
|
+
requirement: !ruby/object:Gem::Requirement
|
58
|
+
requirements:
|
59
|
+
- - ">="
|
60
|
+
- !ruby/object:Gem::Version
|
61
|
+
version: '0'
|
62
|
+
type: :runtime
|
63
|
+
prerelease: false
|
64
|
+
version_requirements: !ruby/object:Gem::Requirement
|
65
|
+
requirements:
|
66
|
+
- - ">="
|
67
|
+
- !ruby/object:Gem::Version
|
68
|
+
version: '0'
|
69
|
+
- !ruby/object:Gem::Dependency
|
70
|
+
name: fn_reader
|
71
|
+
requirement: !ruby/object:Gem::Requirement
|
72
|
+
requirements:
|
73
|
+
- - ">="
|
74
|
+
- !ruby/object:Gem::Version
|
75
|
+
version: '0'
|
76
|
+
type: :runtime
|
77
|
+
prerelease: false
|
78
|
+
version_requirements: !ruby/object:Gem::Requirement
|
79
|
+
requirements:
|
80
|
+
- - ">="
|
81
|
+
- !ruby/object:Gem::Version
|
82
|
+
version: '0'
|
83
|
+
description: Http client that levrage the use of fp principle
|
84
|
+
email:
|
85
|
+
- chabotm@gmail.com
|
86
|
+
executables: []
|
87
|
+
extensions: []
|
88
|
+
extra_rdoc_files: []
|
89
|
+
files:
|
90
|
+
- ".gitignore"
|
91
|
+
- ".ruby-version"
|
92
|
+
- ".travis.yml"
|
93
|
+
- Gemfile
|
94
|
+
- LICENSE.txt
|
95
|
+
- README.md
|
96
|
+
- Rakefile
|
97
|
+
- http_fn.gemspec
|
98
|
+
- lib/http_fn.rb
|
99
|
+
- lib/http_fn/.ruby-version
|
100
|
+
- lib/http_fn/curl.rb
|
101
|
+
- lib/http_fn/http_fn.rb
|
102
|
+
- lib/http_fn/httpie.rb
|
103
|
+
- lib/http_fn/net_http.rb
|
104
|
+
- lib/http_fn/operators.rb
|
105
|
+
- lib/http_fn/rack.rb
|
106
|
+
- lib/http_fn/utils.rb
|
107
|
+
- lib/http_fn/version.rb
|
108
|
+
- test/http_fn/curl_test.rb
|
109
|
+
- test/http_fn/httpie_test.rb
|
110
|
+
- test/http_fn/rack_test.rb
|
111
|
+
- test/http_fn_test.rb
|
112
|
+
- test/minitest_helper.rb
|
113
|
+
- test/test_http_fn.rb
|
114
|
+
homepage: ''
|
115
|
+
licenses:
|
116
|
+
- MIT
|
117
|
+
metadata: {}
|
118
|
+
post_install_message:
|
119
|
+
rdoc_options: []
|
120
|
+
require_paths:
|
121
|
+
- lib
|
122
|
+
required_ruby_version: !ruby/object:Gem::Requirement
|
123
|
+
requirements:
|
124
|
+
- - ">="
|
125
|
+
- !ruby/object:Gem::Version
|
126
|
+
version: '0'
|
127
|
+
required_rubygems_version: !ruby/object:Gem::Requirement
|
128
|
+
requirements:
|
129
|
+
- - ">="
|
130
|
+
- !ruby/object:Gem::Version
|
131
|
+
version: '0'
|
132
|
+
requirements: []
|
133
|
+
rubygems_version: 3.1.4
|
134
|
+
signing_key:
|
135
|
+
specification_version: 4
|
136
|
+
summary: Http client that levrage the use of fp principle
|
137
|
+
test_files:
|
138
|
+
- test/http_fn/curl_test.rb
|
139
|
+
- test/http_fn/httpie_test.rb
|
140
|
+
- test/http_fn/rack_test.rb
|
141
|
+
- test/http_fn_test.rb
|
142
|
+
- test/minitest_helper.rb
|
143
|
+
- test/test_http_fn.rb
|