summary refs log tree commit diff homepage
path: root/spec/server.cr
diff options
context:
space:
mode:
authorNguyễn Gia Phong <mcsinyx@disroot.org>2023-03-16 18:37:12 +0900
committerNguyễn Gia Phong <mcsinyx@disroot.org>2023-03-16 18:37:12 +0900
commit3ad35832835fa0554b6fa28b74e9b7d21283392b (patch)
tree41f44e442e964e0ec0da38392b5518bd9f964989 /spec/server.cr
parent64c3842e02e65bb173d275e4ac2cdbea5afcf562 (diff)
downloadhybring-3ad35832835fa0554b6fa28b74e9b7d21283392b.tar.gz
Listen on Unix socket instead of TCP HEAD main
Diffstat (limited to 'spec/server.cr')
-rw-r--r--spec/server.cr187
1 files changed, 0 insertions, 187 deletions
diff --git a/spec/server.cr b/spec/server.cr
deleted file mode 100644
index d24fe1d..0000000
--- a/spec/server.cr
+++ /dev/null
@@ -1,187 +0,0 @@
-# HTTP server spec
-# Copyright (C) 2023  Nguyễn Gia Phong
-#
-# This file if part of hybring.
-#
-# Hybring is free software: you can redistribute it and/or modify
-# it under the terms of the GNU Affero General Public License as published by
-# the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
-#
-# Hybring is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU Affero General Public License for more details.
-#
-# You should have received a copy of the GNU Affero General Public License
-# along with hybring.  If not, see <https://www.gnu.org/licenses/>.
-
-require "file_utils"
-require "http/client"
-
-require "./helper"
-require "../src/http"
-require "../src/sqlite"
-
-BASE_DATA = {"nick" => "example",
-             "opennic" => "http://example.indy",
-             "icann" => "https://example.org",
-             "host" => "example.net"}
-
-def expect_errors(url, overlay, expected)
-  data = BASE_DATA.merge overlay
-  response = HTTP::Client.post url, form: URI::Params.encode data
-  response.status_code.should eq 400
-  response.content_type.should eq "application/xhtml+xml"
-  xml = XML.parse response.body
-  errors = {} of String => String
-  xml.xpath_nodes("//xhtml:form/xhtml:label[@class='error'][.!='Error:']",
-                  {"xhtml" => "http://www.w3.org/1999/xhtml"}).each do |node|
-    errors[node["for"]] = node.content
-  end
-  errors.should eq expected
-end
-
-url = uninitialized String
-Spec.before_suite do
-  server = Server.new CONFIG
-  spawn do
-    server.listen do |address|
-      url = "http://#{address}"
-    end
-  end
-  until server.listening?
-    sleep 1.milliseconds
-  end
-  Spec.after_suite do
-    server.close
-    FileUtils.rm_r [CONFIG.db, CONFIG.opennic_local, CONFIG.icann_local]
-  end
-end
-
-describe Server do
-  it "only accepts POST requests" do
-    %w(GET PUT HEAD DELETE PATCH OPTIONS).each do |method|
-      response = HTTP::Client.exec method, url
-      response.status_code.should eq 405
-    end
-  end
-
-  pending "requires Content-Length header" do
-    # FIXME: HTTP::Client automatically sets the header based on body
-  end
-
-  it "rejects too long content" do
-    response = HTTP::Client.post url, body: "x" * (MAX_CONTENT_LENGTH + 1)
-    response.status_code.should eq 413
-  end
-
-  it "only accepts application/x-www-form-urlencoded Content-Type" do
-    response = HTTP::Client.post url
-    response.status_code.should eq 415
-    %w(multipart/form-data text/html text/plain).each do |content_type|
-      headers = HTTP::Headers{"Content-Type" => content_type}
-      response = HTTP::Client.post url, headers
-      response.status_code.should eq 415
-    end
-  end
-
-  it "only allows parameters nick, opennic, icann or host" do
-    data = BASE_DATA.merge Hash{"foo" => "bar"}
-    response = HTTP::Client.post url, form: URI::Params.encode data
-    response.status_code.should eq 400
-    response.content_type.should eq "text/plain"
-    response.body.should eq "400 Invalid Parameter\n"
-  end
-
-  it "requires parameters nick, opennic, icann and host" do
-    k, keys = BASE_DATA.size, BASE_DATA.keys
-    until k = 0
-      keys.combinations(k).each do |c|
-        data = BASE_DATA.reject c
-        response = HTTP::Client.post url, form: URI::Params.encode data
-        response.status_code.should eq 400
-        response.content_type.should eq "text/plain"
-        response.body.should eq "400 Missing Parameter\n"
-      end
-      k -= 1
-    end
-  end
-
-  it "rejects too long nick" do
-    msg = "Must be within #{MAX_NICK_LENGTH} characters"
-    expect_errors url, {"nick" => "x" * (MAX_NICK_LENGTH + 1)},
-                  {"nick" => "Must match #{NICK_PATTERN}"}
-  end
-
-  it "rejects nicks that are not lowercase alphanumeric" do
-    %w(camelCase pun/tu?a#tion).each do |nick|
-      expect_errors url, {"nick" => nick},
-                    {"nick" => "Must match #{NICK_PATTERN}"}
-    end
-  end
-
-  it "rejects relative URLs" do
-    %w(foo /bar ex.am/ple).each do |uri|
-      expect_errors url, {"opennic" => uri, "icann" => uri},
-                    {"opennic" => "Must be absolute URL",
-                     "icann" => "Must be absolute URL"}
-    end
-  end
-
-  it "only accepts HTTP/S" do
-    expect_errors url, {"opennic" => "gopher://example.indy"},
-                  {"opennic" => "Must be HTTP/S"}
-    expect_errors url, {"opennic" => "https://example.indy",
-                        "icann" => "http://example.org"},
-                  {"icann" => "Must be HTTPS"}
-  end
-
-  it "checks for OpenNIC domain" do
-    expect_errors url, {"opennic" => "http://example.org",
-                        "icann" => "https://example.indy"},
-                  {"opennic" => "Must be under OpenNIC domain",
-                   "icann" => "Must not be under OpenNIC domain"}
-  end
-
-  it "checks for uniqueness of nick and URLs" do
-    overlay = {"nick" => "self", "opennic" => CONFIG.opennic_remote,
-               "icann" => CONFIG.icann_remote}
-    base_errors = Hash(String, String).new "Must be unique"
-    k, keys = overlay.size, overlay.keys
-    until k = 0
-      keys.combinations(k).each do |c|
-        errors = base_errors.select c
-        data = BASE_DATA.merge overlay.select errors.keys
-        expect_errors url, data, errors
-        k -= 1
-      end
-    end
-  end
-
-  it "prevents nick from colliding with HTML headings' id" do
-    msg = "Reserved names: #{HTML_HEADINGS.join ", "}"
-    HTML_HEADINGS.each do |nick|
-      expect_errors url, {"nick" => nick}, {"nick" => msg}
-    end
-  end
-
-  it "inserts to database upon successful application" do
-    overlay = {"nick" => "chad", "opennic" => "http://chad.epic",
-               "icann" => "https://chad.example"}
-    data = BASE_DATA.merge overlay
-    response = HTTP::Client.post url, form: URI::Params.encode data
-    response.status_code.should eq 200
-    response.content_type.should eq "application/xhtml+xml"
-    db = Database.new CONFIG.db
-    db.exec "SELECT opennic, icann, official, left, right
-             FROM member
-             WHERE nick = %Q", overlay["nick"] do |row|
-      row[0].text.should eq overlay["opennic"]
-      row[1].text.should eq overlay["icann"]
-      row[2].int.should eq 0 # applicant
-      row[3].text.should eq "self"
-      row[4].text.should eq "self"
-    end
-  end
-end