cgialt 0.0.1

data/test/test_cgi_cookie.rb

@@ -0,0 +1,108 @@
+require 'test/unit'
+#require 'cgi'
+require(ENV['CGI'] || 'cgi')
+require 'stringio'
+
+
+class CGICookieTest < Test::Unit::TestCase
+
+
+  def setup
+    ENV['REQUEST_METHOD'] = 'GET'
+  end
+
+  def teardown
+    %W[REQUEST_METHOD SCRIPT_NAME].each do |name|
+      ENV.delete(name)
+    end
+  end
+
+
+  def test_cgi_cookie_new_simple
+    cookie = CGI::Cookie.new('name1', 'val1', '&<>"', "\245\340\245\271\245\253")
+    assert_equal('name1', cookie.name)
+    assert_equal(['val1', '&<>"', "\245\340\245\271\245\253"], cookie.value)
+    assert_nil(cookie.domain)
+    assert_nil(cookie.expires)
+    assert_equal('', cookie.path)
+    assert_equal(false, cookie.secure)
+    assert_equal("name1=val1&%26%3C%3E%22&%A5%E0%A5%B9%A5%AB; path=", cookie.to_s)
+  end
+
+
+  def test_cgi_cookie_new_complex
+    t = Time.gm(2030, 12, 31, 23, 59, 59)
+    value = ['val1', '&<>"', "\245\340\245\271\245\253"]
+    cookie = CGI::Cookie.new('name'=>'name1',
+                             'value'=>value,
+                             'path'=>'/cgi-bin/myapp/',
+                             'domain'=>'www.example.com',
+                             'expires'=>t,
+                             'secure'=>true
+                             )
+    assert_equal('name1', cookie.name)
+    assert_equal(value, cookie.value)
+    assert_equal('www.example.com', cookie.domain)
+    assert_equal(t, cookie.expires)
+    assert_equal('/cgi-bin/myapp/', cookie.path)
+    assert_equal(true, cookie.secure)
+    assert_equal('name1=val1&%26%3C%3E%22&%A5%E0%A5%B9%A5%AB; domain=www.example.com; path=/cgi-bin/myapp/; expires=Tue, 31 Dec 2030 23:59:59 GMT; secure', cookie.to_s)
+  end
+
+
+  def test_cgi_cookie_scriptname
+    cookie = CGI::Cookie.new('name1', 'value1')
+    assert_equal('', cookie.path)
+    cookie = CGI::Cookie.new('name'=>'name1', 'value'=>'value1')
+    assert_equal('', cookie.path)
+    ## when ENV['SCRIPT_NAME'] is set, cookie.path is set automatically
+    ENV['SCRIPT_NAME'] = '/cgi-bin/app/example.cgi'
+    cookie = CGI::Cookie.new('name1', 'value1')
+    assert_equal('/cgi-bin/app/', cookie.path)
+    cookie = CGI::Cookie.new('name'=>'name1', 'value'=>'value1')
+    assert_equal('/cgi-bin/app/', cookie.path)
+  end
+
+
+  def test_cgi_cookie_parse
+    ## ';' separator
+    cookie_str = 'name1=val1&val2; name2=val2&%26%3C%3E%22;_session_id=12345'
+    cookies = CGI::Cookie.parse(cookie_str)
+    list = [
+      ['name1', ['val1', 'val2']],
+      ['name2', ['val2', '&<>"']],
+      ['_session_id', ['12345']],
+    ]
+    list.each do |name, value|
+      cookie = cookies[name]
+      assert_equal(name, cookie.name)
+      assert_equal(value, cookie.value)
+    end
+    ## ',' separator
+    cookie_str = 'name1=val1&val2, name2=val2&%26%3C%3E%22,_session_id=12345'
+    cookies = CGI::Cookie.parse(cookie_str)
+    list.each do |name, value|
+      cookie = cookies[name]
+      assert_equal(name, cookie.name)
+      assert_equal(value, cookie.value)
+    end
+  end
+
+
+  def test_cgi_cookie_arrayinterface
+    cookie = CGI::Cookie.new('name1', 'a', 'b', 'c')
+    assert_equal('a', cookie[0])
+    assert_equal('c', cookie[2])
+    assert_nil(cookie[3])
+    assert_equal('a', cookie.first)
+    assert_equal('c', cookie.last)
+    assert_equal(['A', 'B', 'C'], cookie.collect{|e| e.upcase})
+  end
+
+
+
+  instance_methods.each do |method|
+    private method if method =~ /^test_(.*)/ && $1 != ENV['TEST']
+  end if ENV['TEST']
+
+end

data/test/test_cgi_core.rb

@@ -0,0 +1,305 @@
+require 'test/unit'
+#require 'cgi'
+require(ENV['CGI'] || 'cgi')
+require 'stringio'
+
+
+class CGICoreTest < Test::Unit::TestCase
+
+
+  def setup
+    #@environ = {
+    #  'SERVER_PROTOCOL' => 'HTTP/1.1',
+    #  'REQUEST_METHOD'  => 'GET',
+    #  'SERVER_SOFTWARE' => 'Apache 2.2.0',
+    #}
+    #ENV.update(@environ)
+  end
+
+
+  def teardown
+    @environ.each do |key, val| ENV.delete(key) end
+    $stdout = STDOUT
+  end
+
+
+  def test_cgi_core_params_GET
+    @environ = {
+      'REQUEST_METHOD'  => 'GET',
+      'QUERY_STRING'    => 'id=123&id=456&id=&str=%40h+%3D%7E+%2F%5E%24%2F',
+      'HTTP_COOKIE'     => '_session_id=12345; name1=val1&val2;',
+      'SERVER_SOFTWARE' => 'Apache 2.2.0',
+      'SERVER_PROTOCOL' => 'HTTP/1.1',
+    }
+    ENV.update(@environ)
+    cgi = CGI.new
+    ## cgi[]
+    assert_equal('123', cgi['id'])
+    assert_equal('@h =~ /^$/', cgi['str'])
+    ## cgi[][], cgi[].first, cgi[].to_ary
+    $stderr = StringIO.new
+    begin
+      assert_equal('123', cgi['id'][0])
+      assert_equal('456', cgi['id'][1])
+      assert_equal('',    cgi['id'][2])
+      assert_nil(cgi['id'][3])
+      assert_equal('@h =~ /^$/', cgi['str'][0])
+      assert_nil(cgi['str'][1])
+      assert_equal('123', cgi['id'].first)
+      assert_equal('123', cgi['id'].last)       # should be '' ?
+      id1, id2, id3 = cgi['id']
+      assert_equal(['123', '456', ''], [id1, id2, id3])
+      str1, = cgi['str']
+      assert_equal('@h =~ /^$/', str1)
+      assert_not_same(str1, cgi['str'])    # necessary?
+    ensure
+      $stderr = STDERR
+    end
+    ## cgi.params
+    assert_equal(['123', '456', ''], cgi.params['id'])
+    assert_equal(['@h =~ /^$/'], cgi.params['str'])
+    ## cgi.keys
+    assert_equal(['id', 'str'], cgi.keys.sort)
+    ## cgi.key?, cgi.has_key?, cgi.include?
+    assert_equal(true,  cgi.key?('id'))
+    assert_equal(true,  cgi.has_key?('id'))
+    assert_equal(true,  cgi.include?('id'))
+    assert_equal(false, cgi.key?('foo'))
+    assert_equal(false, cgi.has_key?('foo'))
+    assert_equal(false, cgi.include?('foo'))
+    ## invalid parameter name
+    assert_equal('', cgi['*notfound*'])    # [ruby-dev:30740]
+    assert_equal([], cgi.params['*notfound*'])
+  end
+
+
+  def test_cgi_core_params_POST
+    query_str = 'id=123&id=456&id=&str=%40h+%3D%7E+%2F%5E%24%2F'
+    @environ = {
+      'REQUEST_METHOD'  => 'POST',
+      'CONTENT_LENGTH'  => query_str.length.to_s,
+      'HTTP_COOKIE'     => '_session_id=12345; name1=val1&val2;',
+      'SERVER_SOFTWARE' => 'Apache 2.2.0',
+      'SERVER_PROTOCOL' => 'HTTP/1.1',
+    }
+    ENV.update(@environ)
+    $stdin = StringIO.new
+    $stdin << query_str
+    $stdin.rewind
+    cgi = CGI.new
+    ## cgi[]
+    assert_equal('123', cgi['id'])
+    assert_equal('@h =~ /^$/', cgi['str'])
+    ## cgi.params
+    assert_equal(['123', '456', ''], cgi.params['id'])
+    assert_equal(['@h =~ /^$/'], cgi.params['str'])
+    ## invalid parameter name
+    assert_equal('', cgi['*notfound*'])
+    assert_equal([], cgi.params['*notfound*'])
+  end
+
+
+  def test_cgi_core_cookie
+    @environ = {
+      'REQUEST_METHOD'  => 'GET',
+      'QUERY_STRING'    => 'id=123&id=456&id=&str=%40h+%3D%7E+%2F%5E%24%2F',
+      'HTTP_COOKIE'     => '_session_id=12345; name1=val1&val2;',
+      'SERVER_SOFTWARE' => 'Apache 2.2.0',
+      'SERVER_PROTOCOL' => 'HTTP/1.1',
+    }
+    ENV.update(@environ)
+    cgi = CGI.new
+    assert_not_nil(cgi.cookies)
+    [ ['_session_id', ['12345'],        ],
+      ['name1',       ['val1', 'val2'], ],
+    ].each do |key, expected|
+      cookie = cgi.cookies[key]
+      assert_kind_of(CGI::Cookie, cookie)
+      assert_equal(expected, cookie.value)
+      assert_equal(false, cookie.secure)
+      assert_nil(cookie.expires)
+      assert_nil(cookie.domain)
+      assert_equal('', cookie.path)
+    end
+  end
+
+
+  def test_cgi_core_maxcontentlength
+    @environ = {
+      'REQUEST_METHOD'  => 'POST',
+      'CONTENT_LENGTH'  => (64 * 1024 * 1024).to_s
+    }
+    ENV.update(@environ)
+    ex = assert_raise(StandardError) do
+      cgi = CGI.new
+    end
+    assert_equal("too large post data.", ex.message)
+  end if CGI.const_defined?(:MAX_CONTENT_LENGTH)
+
+
+  def test_cgi_core_out
+    @environ = {
+      'REQUEST_METHOD'  => 'GET',
+      'QUERY_STRING'    => 'id=123&id=456&id=&str=%40h+%3D%7E+%2F%5E%24%2F',
+      'HTTP_COOKIE'     => '_session_id=12345; name1=val1&val2;',
+      'SERVER_SOFTWARE' => 'Apache 2.2.0',
+      'SERVER_PROTOCOL' => 'HTTP/1.1',
+    }
+    ENV.update(@environ)
+    cgi = CGI.new
+    ## jis, euc, sjis string
+    jis_str = "\e$B8+$m!\"?M$,%4%_$N$h$&$@\e(B"
+    euc_str = "\270\253\244\355\241\242\277\315\244\254\245\264\245\337\244\316\244\350\244\246\244\300"
+    sjis_str = "\214\251\202\353\201A\220l\202\252\203S\203~\202\314\202\346\202\244\202\276"
+    ## iso-2022-jp
+    options = { 'charset'=>'iso-2022-jp' }
+    $stdout = StringIO.new
+    cgi.out(options) { euc_str }
+    assert_equal('ja', options['language'])
+    actual = $stdout.string
+    expected = "Content-Type: text/html; charset=iso-2022-jp\r\n" +
+               "Content-Length: 28\r\n" +
+               "Content-Language: ja\r\n" +
+               "\r\n" +
+               jis_str
+    assert_equal(expected, actual)
+    ## euc-jp
+    options = { 'charset'=>'EUC-JP' }
+    $stdout = StringIO.new
+    cgi.out(options) { euc_str }
+    assert_equal('ja', options['language'])
+    actual = $stdout.string
+    expected = "Content-Type: text/html; charset=EUC-JP\r\n" +
+               "Content-Length: 22\r\n" +
+               "Content-Language: ja\r\n" +
+               "\r\n" +
+               euc_str
+    assert_equal(expected, actual)
+    ## shift_jis
+    options = { 'charset'=>'Shift_JIS' }
+    $stdout = StringIO.new
+    cgi.out(options) { euc_str }
+    assert_equal('ja', options['language'])
+    actual = $stdout.string
+    expected = "Content-Type: text/html; charset=Shift_JIS\r\n" +
+               "Content-Length: 22\r\n" +
+               "Content-Language: ja\r\n" +
+               "\r\n" +
+               sjis_str
+    assert_equal(expected, actual)
+    ## utf8 (not converted)
+    options = { 'charset'=>'utf8' }
+    $stdout = StringIO.new
+    cgi.out(options) { euc_str }
+    assert_nil(options['language'])
+    actual = $stdout.string
+    expected = "Content-Type: text/html; charset=utf8\r\n" +
+               "Content-Length: 22\r\n" +
+               "\r\n" +
+               euc_str
+    assert_equal(expected, actual)
+    ## language is keeped
+    options = { 'charset'=>'Shift_JIS', 'language'=>'en' }
+    $stdout = StringIO.new
+    cgi.out(options) { euc_str }
+    assert_equal('en', options['language'])
+    ## HEAD method
+    ENV['REQUEST_METHOD'] = 'HEAD'
+    options = { 'charset'=>'utf8' }
+    $stdout = StringIO.new
+    cgi.out(options) { euc_str }
+    actual = $stdout.string
+    expected = "Content-Type: text/html; charset=utf8\r\n" +
+               "Content-Length: 22\r\n" +
+               "\r\n"
+    assert_equal(expected, actual)
+  end
+
+
+  def test_cgi_core_print
+    @environ = {
+      'REQUEST_METHOD'  => 'GET',
+    }
+    ENV.update(@environ)
+    cgi = CGI.new
+    $stdout = StringIO.new
+    str = "foobar"
+    cgi.print(str)
+    expected = str
+    actual = $stdout.string
+    assert_equal(expected, actual)
+  end
+
+
+  def test_cgi_core_environs
+    @environ = {
+      'REQUEST_METHOD' => 'GET',
+    }
+    ENV.update(@environ)
+    cgi = CGI.new
+    ##
+    list1 = %w[ AUTH_TYPE CONTENT_TYPE GATEWAY_INTERFACE PATH_INFO
+        PATH_TRANSLATED QUERY_STRING REMOTE_ADDR REMOTE_HOST
+        REMOTE_IDENT REMOTE_USER REQUEST_METHOD SCRIPT_NAME
+        SERVER_NAME SERVER_PROTOCOL SERVER_SOFTWARE
+        HTTP_ACCEPT HTTP_ACCEPT_CHARSET HTTP_ACCEPT_ENCODING
+        HTTP_ACCEPT_LANGUAGE HTTP_CACHE_CONTROL HTTP_FROM HTTP_HOST
+        HTTP_NEGOTIATE HTTP_PRAGMA HTTP_REFERER HTTP_USER_AGENT
+    ]
+    list2 = %w[ CONTENT_LENGTH SERVER_PORT ]
+    ## string expected
+    list1.each do |name|
+      @environ[name] = "**#{name}**"
+    end
+    ENV.update(@environ)
+    list1.each do |name|
+      method = name.sub(/\AHTTP_/, '').downcase
+      actual = cgi.__send__ method
+      expected = "**#{name}**"
+      assert_equal(expected, actual)
+    end
+    ## integer expected
+    ENV['CONTENT_LENGTH'] = '123'
+    ENV['SERVER_PORT'] = '8080'
+    assert_equal(123, cgi.content_length)
+    assert_equal(8080, cgi.server_port)
+    ## raw cookie
+    ENV['HTTP_COOKIE'] = 'name1=val1'
+    ENV['HTTP_COOKIE2'] = 'name2=val2'
+    assert_equal('name1=val1', cgi.raw_cookie)
+    assert_equal('name2=val2', cgi.raw_cookie2)
+  end
+
+
+  def test_cgi_core_htmltype
+    @environ = {
+      'REQUEST_METHOD' => 'GET',
+    }
+    ENV.update(@environ)
+    ## no htmltype
+    cgi = CGI.new
+    assert_raise(NoMethodError) do cgi.doctype end
+    ## html3
+    cgi = CGI.new('html3')
+    expected = '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">'
+    assert_equal(expected, cgi.doctype)
+    ## html4
+    cgi = CGI.new('html4')
+    expected = '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">'
+    assert_equal(expected, cgi.doctype)
+    ## html4 transitional
+    cgi = CGI.new('html4Tr')
+    expected = '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">'
+    assert_equal(expected, cgi.doctype)
+    ## html4 frameset
+    cgi = CGI.new('html4Fr')
+    expected = '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd">'
+    assert_equal(expected, cgi.doctype)
+  end
+
+
+  instance_methods.each do |method|
+    private method if method =~ /^test_(.*)/ && $1 != ENV['TEST']
+  end if ENV['TEST']
+
+end

data/test/test_cgi_header.rb

@@ -0,0 +1,178 @@
+require 'test/unit'
+#require 'cgi'
+require(ENV['CGI'] || 'cgi')
+
+
+class CGIHeaderTest < Test::Unit::TestCase
+
+
+  def setup
+    @environ = {
+      'SERVER_PROTOCOL' => 'HTTP/1.1',
+      'REQUEST_METHOD'  => 'GET',
+      'SERVER_SOFTWARE' => 'Apache 2.2.0',
+    }
+    ENV.update(@environ)
+  end
+
+
+  def teardown
+    @environ.each do |key, val| ENV.delete(key) end
+  end
+
+
+  def test_cgi_header_simple
+    cgi = CGI.new
+    ## default content type
+    expected = "Content-Type: text/html\r\n\r\n"
+    actual = cgi.header
+    assert_equal(expected, actual)
+    ## content type specified as string
+    expected = "Content-Type: text/xhtml; charset=utf8\r\n\r\n"
+    actual = cgi.header('text/xhtml; charset=utf8')
+    assert_equal(expected, actual)
+    ## content type specified as hash
+    expected = "Content-Type: image/png\r\n\r\n"
+    actual = cgi.header('type'=>'image/png')
+    assert_equal(expected, actual)
+    ## charset specified
+    expected = "Content-Type: text/html; charset=utf8\r\n\r\n"
+    actual = cgi.header('charset'=>'utf8')
+    assert_equal(expected, actual)
+  end
+
+
+  def test_cgi_header_complex
+    cgi = CGI.new
+    options = {
+      'type'       => 'text/xhtml',
+      'charset'    => 'utf8',
+      'status'     => 'REDIRECT',
+      'server'     => 'webrick',
+      'connection' => 'close',
+      'length'     => 123,
+      'language'   => 'ja',
+      'expires'    => Time.gm(2000, 1, 23, 12, 34, 56),
+      'location'   => 'http://www.ruby-lang.org/',
+    }
+    expected =  "Status: 302 Found\r\n"
+    expected << "Server: webrick\r\n"
+    expected << "Connection: close\r\n"
+    expected << "Content-Type: text/xhtml; charset=utf8\r\n"
+    expected << "Content-Length: 123\r\n"
+    expected << "Content-Language: ja\r\n"
+    expected << "Expires: Sun, 23 Jan 2000 12:34:56 GMT\r\n"
+    expected << "location: http://www.ruby-lang.org/\r\n"
+    expected << "\r\n"
+    actual = cgi.header(options)
+    assert_equal(expected, actual)
+  end
+
+
+  def test_cgi_header_argerr
+    cgi = CGI.new
+    #expected = NoMethodError  # must be ArgumentError
+    if defined?(CGI::RELEASE)
+      expected = ArgumentError   # for CGIAlt
+    else
+      expected = NoMethodError   # for Ruby1.8
+    end
+    ex = assert_raise(expected) do
+      cgi.header(nil)
+    end
+  end
+
+
+  def test_cgi_header_cookie
+    cgi = CGI.new
+    cookie1 = CGI::Cookie.new('name1', 'abc', '123')
+    cookie2 = CGI::Cookie.new('name'=>'name2', 'value'=>'value2', 'secure'=>true)
+    ctype = "Content-Type: text/html\r\n"
+    sep   = "\r\n"
+    c1    = "Set-Cookie: name1=abc&123; path=\r\n"
+    c2    = "Set-Cookie: name2=value2; path=; secure\r\n"
+    ## CGI::Cookie object
+    actual = cgi.header('cookie'=>cookie1)
+    expected = ctype + c1 + sep
+    assert_equal(expected, actual)
+    ## String
+    actual = cgi.header('cookie'=>cookie2.to_s)
+    expected = ctype + c2 + sep
+    assert_equal(expected, actual)
+    ## Array
+    actual = cgi.header('cookie'=>[cookie1, cookie2])
+    expected = ctype + c1 + c2 + sep
+    assert_equal(expected, actual)
+    ## Hash
+    actual = cgi.header('cookie'=>{'name1'=>cookie1, 'name2'=>cookie2})
+    expected = ctype + c1 + c2 + sep
+    assert_equal(expected, actual)
+  end
+
+
+  def test_cgi_header_output_cookies
+    cgi = CGI.new
+    ## output cookies
+    cookies = [ CGI::Cookie.new('name1', 'abc', '123'),
+                CGI::Cookie.new('name'=>'name2', 'value'=>'value2', 'secure'=>true),
+              ]
+    cgi.instance_variable_set('@output_cookies', cookies)
+    expected =  "Content-Type: text/html; charset=utf8\r\n"
+    expected << "Set-Cookie: name1=abc&123; path=\r\n"
+    expected << "Set-Cookie: name2=value2; path=; secure\r\n"
+    expected << "\r\n"
+    ## header when string
+    actual = cgi.header('text/html; charset=utf8')
+    assert_equal(expected, actual)
+    ## _header_for_string
+    actual = cgi.header('type'=>'text/html', 'charset'=>'utf8')
+    assert_equal(expected, actual)
+  end
+
+
+  def test_cgi_header_nph
+    cgi = CGI.new
+    ## 'nph' is true
+    ENV['SERVER_SOFTWARE'] = 'Apache 2.2.0'
+    actual1 = cgi.header('nph'=>true)
+    ## when old IIS, NPH-mode is forced
+    ENV['SERVER_SOFTWARE'] = 'IIS/4.0'
+    actual2 = cgi.header
+    actual3 = cgi.header('status'=>'REDIRECT', 'location'=>'http://www.example.com/')
+    ## newer IIS doesn't require NPH-mode   ## [ruby-dev:30537]
+    ENV['SERVER_SOFTWARE'] = 'IIS/5.0'
+    actual4 = cgi.header
+    actual5 = cgi.header('status'=>'REDIRECT', 'location'=>'http://www.example.com/')
+    ## assertion
+    now = Time.now
+    expected =  "HTTP/1.1 200 OK\r\n"
+    expected << "Date: #{CGI.rfc1123_date(now)}\r\n"
+    expected << "Server: Apache 2.2.0\r\n"
+    expected << "Connection: close\r\n"
+    expected << "Content-Type: text/html\r\n"
+    expected << "\r\n"
+    assert_equal(expected, actual1)
+    expected.sub!(/^Server: .*?\r\n/, "Server: IIS/4.0\r\n")
+    assert_equal(expected, actual2)
+    expected.sub!(/^HTTP\/1.1 200 OK\r\n/, "HTTP/1.1 302 Found\r\n")
+    expected.sub!(/\r\n\r\n/, "\r\nlocation: http://www.example.com/\r\n\r\n")
+    assert_equal(expected, actual3)
+    expected =  "Content-Type: text/html\r\n"
+    expected << "\r\n"
+    assert_equal(expected, actual4)
+    expected =  "Status: 302 Found\r\n"
+    expected << "Content-Type: text/html\r\n"
+    expected << "location: http://www.example.com/\r\n"
+    expected << "\r\n"
+    assert_equal(expected, actual5)
+  ensure
+    ENV.delete('SERVER_SOFTWARE')
+  end
+
+
+
+  instance_methods.each do |method|
+    private method if method =~ /^test_(.*)/ && $1 != ENV['TEST']
+  end if ENV['TEST']
+
+end