iframe-proxy | Sunbelt Computer Software

184 lines (162 loc) · 3.87 KB
require 'test/unit'
require 'evma_httpserver'
  once = false
  require 'eventmachine'
rescue LoadError => e
  raise e if once
  once = true
  require 'rubygems'
#--------------------------------------
class TestDelegatedHttpResponse < Test::Unit::TestCase
  # This is a delegate class that (trivially) implements the
  # several classes needed to work with HttpResponse.
    attr_reader :output_data
    attr_reader :closed_after_writing
    def send_data data
      @output_data ||= ""
      @output_data << data
    def close_connection_after_writing
      @closed_after_writing = true
  def setup
  def teardown
  def test_properties
    a = EM::DelegatedHttpResponse.new( D.new )
    a.status = 200
    a.content = "Some content"
    a.headers["Content-Type"] = "text/xml"
  def test_header_sugarings
    a = EM::DelegatedHttpResponse.new( D.new )
    a.content_type "text/xml"
    a.set_cookie "a=b"
    a.headers["X-bayshore"] = "aaaa"
    assert_equal({
      "Content-Type" => "text/xml",
      "Set-Cookie" => ["a=b"],
      "X-bayshore" => "aaaa"
    }, a.headers)
  def test_send_response
    d = D.new
    a = EM::DelegatedHttpResponse.new( d )
    a.status = 200
    a.send_response
    assert_equal([
           "HTTP/1.1 200 OK\r\n",
           "Content-Length: 0\r\n",
           "\r\n"
    ].join, d.output_data)
    assert_equal( true, d.closed_after_writing )
  def test_send_response_1
    d = D.new
    a = EM::DelegatedHttpResponse.new( d )
    a.status = 200
    a.content_type "text/plain"
    a.content = "ABC"
    a.send_response
    assert_equal([
           "HTTP/1.1 200 OK\r\n",
           "Content-Length: 3\r\n",
           "Content-Type: text/plain\r\n",
           "\r\n",
           "ABC"
    ].join, d.output_data)
    assert( d.closed_after_writing )
  def test_send_response_no_close
    d = D.new
    a = EM::DelegatedHttpResponse.new( d )
    a.status = 200
    a.content_type "text/plain"
    a.content = "ABC"
    a.keep_connection_open
    a.send_response
    assert_equal([
           "HTTP/1.1 200 OK\r\n",
           "Content-Length: 3\r\n",
           "Content-Type: text/plain\r\n",
           "\r\n",
           "ABC"
    ].join, d.output_data)
    assert( ! d.closed_after_writing )
  def test_send_response_multiple_times
    a = EM::DelegatedHttpResponse.new( D.new )
    a.status = 200
    a.send_response
    assert_raise( RuntimeError ) {
      a.send_response
  def test_send_headers
    d = D.new
    a = EM::DelegatedHttpResponse.new( d )
    a.status = 200
    a.send_headers
    assert_equal([
           "HTTP/1.1 200 OK\r\n",
           "Content-Length: 0\r\n",
           "\r\n"
    ].join, d.output_data)
    assert( ! d.closed_after_writing )
    assert_raise( RuntimeError ) {
      a.send_headers
  def test_send_chunks
    d = D.new
    a = EM::DelegatedHttpResponse.new( d )
    a.chunk "ABC"
    a.chunk "DEF"
    a.chunk "GHI"
    a.keep_connection_open
    a.send_response
    assert_equal([
           "HTTP/1.1 200 OK\r\n",
           "Transfer-Encoding: chunked\r\n",
           "\r\n",
           "3\r\n",
           "ABC\r\n",
           "3\r\n",
           "DEF\r\n",
           "3\r\n",
           "GHI\r\n",
           "0\r\n",
           "\r\n"
    ].join, d.output_data)
    assert( !d.closed_after_writing )
  def test_send_chunks_with_close
    d = D.new
    a = EM::DelegatedHttpResponse.new( d )
    a.chunk "ABC"
    a.chunk "DEF"
    a.chunk "GHI"
    a.send_response
    assert_equal([
           "HTTP/1.1 200 OK\r\n",
           "Transfer-Encoding: chunked\r\n",
           "\r\n",
           "3\r\n",
           "ABC\r\n",
           "3\r\n",
           "DEF\r\n",
           "3\r\n",
           "GHI\r\n",
           "0\r\n",
           "\r\n"
    ].join, d.output_data)
    assert( d.closed_after_writing )
Sunbelt Computer Software

PL/B Language Development and Support

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Sunbelt Computer Software

PL/B Language Development and Support

FilesExpand file tree

test_delegated.rb

Latest commit

History

test_delegated.rb

File metadata and controls
