serverside 0.3.1 → 0.4.1

data/spec/caching_spec.rb

@@ -1,318 +0,0 @@
-require File.join(File.dirname(__FILE__), '../lib/serverside')
-require 'stringio'
-include ServerSide::HTTP
-
-class DummyRequest < Request
-  attr_accessor :socket, :persistent
-  include Caching
-  
-  def initialize
-    super(StringIO.new)
-    @headers = {}
-  end
-end
-
-context "Caching#disable_caching" do
-  specify "should set the Cache-Control header to no-cache" do
-    r = DummyRequest.new
-    r.response_headers['Cache-Control'].should_be_nil
-    r.disable_caching
-    r.response_headers['Cache-Control'].should == 'no-cache'
-  end
-  
-  specify "should remove all other cache-related headers" do
-    r = DummyRequest.new
-    r.response_headers['ETag'] = 'something'
-    r.response_headers['Vary'] = 'something'
-    r.response_headers['Expires'] = 'something'
-    r.response_headers['Last-Modified'] = 'something'
-    r.disable_caching
-    r.response_headers['ETag'].should_be_nil
-    r.response_headers['Vary'].should_be_nil
-    r.response_headers['Expires'].should_be_nil
-    r.response_headers['Last-Modified'].should_be_nil
-  end
-end
-
-context "Caching#etag_validators" do
-  specify "should return an empty array if no validators are present" do
-    r = DummyRequest.new
-    r.etag_validators.should == []    
-  end
-  
-  specify "should return an array containing all etag validators" do
-    r = DummyRequest.new
-    r.headers['If-None-Match'] = '"aaa-bbb"'
-    r.etag_validators.should == ['aaa-bbb']
-
-    r.headers['If-None-Match'] = '"aaa-bbb", "ccc-ddd"'
-    r.etag_validators.should == ['aaa-bbb', 'ccc-ddd']
-  end
-  
-  specify "should handle etags with and without quotes" do
-    r = DummyRequest.new
-    r.headers['If-None-Match'] = 'aaa-bbb'
-    r.etag_validators.should == ['aaa-bbb']
-
-    r.headers['If-None-Match'] = 'aaa-bbb, "ccc-ddd"'
-    r.etag_validators.should == ['aaa-bbb', 'ccc-ddd']
-  end
-  
-  specify "should handle a wildcard validator" do
-    r = DummyRequest.new
-    r.headers['If-None-Match'] = '*'
-    r.etag_validators.should == ['*']
-  end
-end
-
-context "Caching#valid_etag?" do
-  specify "should return nil if no validator matches the specified etag" do
-    r = DummyRequest.new
-    r.valid_etag?('xxx-yyy').should_be_nil
-    
-    r.headers['If-None-Match'] = 'xx-yy, aaa-bbb'
-    r.valid_etag?('xxx-yyy').should_be_nil
-  end
-
-  specify "should return true if a validator matches the specifed etag" do
-    r = DummyRequest.new
-    
-    r.headers['If-None-Match'] = 'xxx-yyy'
-    r.valid_etag?('xxx-yyy').should_be true
-    
-    r.headers['If-None-Match'] = '"xxx-yyy"'
-    r.valid_etag?('xxx-yyy').should_be true
-    
-    r.headers['If-None-Match'] = 'aaa-bbb, xxx-yyy'
-    r.valid_etag?('xxx-yyy').should_be true
-
-    r.headers['If-None-Match'] = 'xxx-yyy, aaa-bbb'
-    r.valid_etag?('xxx-yyy').should_be true
-  end
-  
-  specify "should return true if a wildcard is included in If-None-Match" do
-    r = DummyRequest.new
-    
-    r.headers['If-None-Match'] = '*'
-    r.valid_etag?('xxx-yyy').should_be true
-    
-    r.headers['If-None-Match'] = 'aaa-bbb, *'
-    r.valid_etag?('xxx-yyy').should_be true
-  end
-end
-
-context "Caching#valid_etag? in expiry etag mode (no etag specified)" do
-  specify "should return nil if no etag validator is included" do
-    r = DummyRequest.new
-    r.valid_etag?.should_be_nil
-  end
-  
-  specify "should return true if If-None-Match includes a wildcard" do
-    r = DummyRequest.new
-    
-    r.headers['If-None-Match'] = '*'
-    r.valid_etag?.should_be true
-  end
-  
-  specify "should ignore validators not formatted as expiry etags" do
-    r = DummyRequest.new
-    
-    r.headers['If-None-Match'] = 'abcd'
-    r.valid_etag?.should_be_nil
-
-    r.headers['If-None-Match'] = 'xxx-yyy, zzz-zzz'
-    r.valid_etag?.should_be_nil
-  end
-  
-  specify "should parse expiry etags and check the expiration stamp" do
-    r = DummyRequest.new
-    t = Time.now
-    fmt = Caching::EXPIRY_ETAG_FORMAT
-    
-    r.headers['If-None-Match'] = fmt % [t.to_i, (t - 20).to_i]
-    r.valid_etag?.should_be_nil
-
-    r.headers['If-None-Match'] = fmt % [t.to_i, (t + 20).to_i]
-    r.valid_etag?.should_be true
-    
-    r.headers['If-None-Match'] = "xxx-yyy, #{fmt % [t.to_i, (t + 20).to_i]}, #{fmt % [t.to_i, (t - 20).to_i]}"
-    r.valid_etag?.should_be true
-  end
-end
-
-context "Caching#expiry_etag" do
-  specify "should return an expiry etag with the stamp and expiration time" do
-    r = DummyRequest.new
-    
-    t = Time.now
-    fmt = Caching::EXPIRY_ETAG_FORMAT
-    max_age = 54321
-    
-    r.expiry_etag(t, max_age).should == (fmt % [t.to_i, (t + max_age).to_i]) 
-  end
-end
-
-context "Caching#valid_stamp?" do
-  specify "should return nil if no If-Modified-Since header is included" do
-    r = DummyRequest.new
-    r.valid_stamp?(Time.now).should_be_nil
-  end
-  
-  specify "should return nil if the If-Modified-Since header is different than the specified stamp" do
-    t = Time.now
-    r = DummyRequest.new
-    r.headers['If-Modified-Since'] = t.httpdate
-    r.valid_stamp?(t + 1).should_be_nil
-    r.valid_stamp?(t - 1).should_be_nil
-  end
-  
-  specify "should return true if the If-Modified-Since header matches the specified stamp" do
-    t = Time.now
-    r = DummyRequest.new
-    r.headers['If-Modified-Since'] = t.httpdate
-    r.valid_stamp?(t).should_be true
-  end
-end
-
-context "Caching#validate_cache" do
-  specify "should return nil if no validators are present" do
-    r = DummyRequest.new
-    r.validate_cache(Time.now, 360).should_be_nil
-  end
-  
-  specify "should check for a stamp validator" do
-    r = DummyRequest.new
-    t = Time.now
-    
-    r.headers['If-Modified-Since'] = t.httpdate
-    r.validate_cache(t + 1, 360).should_be_nil 
-    r.validate_cache(t - 1, 360).should_be_nil
-    r.validate_cache(t, 360).should_be true
-  end
-  
-  specify "should check for an etag validator" do
-    r = DummyRequest.new
-    t = Time.now
-    etag = 'abcdef'
-
-    r.validate_cache(t, 360, etag).should_be_nil
-    r.headers['If-None-Match'] = 'aaa-bbb'
-    r.validate_cache(t, 360, etag).should_be_nil
-    r.headers['If-None-Match'] = "aaa-bbb, #{etag}"
-    r.validate_cache(t, 360, etag).should_be true
-    r.headers['If-None-Match'] = '*'
-    r.validate_cache(t, 360, etag).should_be true
-  end
-  
-  specify "should check for an expiry etag validator if etag is unspecified" do
-    r = DummyRequest.new
-    t = Time.now
-    fmt = Caching::EXPIRY_ETAG_FORMAT
-    
-    r.headers['If-None-Match'] = 'aaa-bbb'
-    r.validate_cache(t, 360).should_be_nil
-    r.headers['If-None-Match'] = "aaa-bbb, #{fmt % [t.to_i, (t + 20).to_i]}"
-    r.validate_cache(t, 360).should_be true
-    r.headers['If-None-Match'] = '*'
-    r.validate_cache(t, 360).should_be true
-  end
-
-  specify "should set the response headers with caching info if request did not validate" do
-    r = DummyRequest.new
-    t = Time.now
-    r.validate_cache(t, 360, 'aaa-bbb', :public, 'Cookie')
-    r.response_headers['ETag'].should == '"aaa-bbb"'
-    r.response_headers['Last-Modified'].should == t.httpdate
-    r.response_headers['Expires'].should == ((t + 360).httpdate)
-    r.response_headers['Cache-Control'].should == :public
-    r.response_headers['Vary'].should == 'Cookie'
-  end
-  
-  specify "should set an expiry etag if no etag is specified" do
-    r = DummyRequest.new
-    t = Time.now
-    fmt = Caching::EXPIRY_ETAG_FORMAT
-    r.validate_cache(t, 360)
-    r.response_headers['ETag'].should == (
-      "\"#{fmt % [t.to_i, (t + 360).to_i]}\"")
-  end
-  
-  specify "should send a 304 response if the cache validates" do
-    r = DummyRequest.new
-    t = Time.now
-    fmt = Caching::EXPIRY_ETAG_FORMAT
-    
-    r.headers['If-None-Match'] = "aaa-bbb, #{fmt % [t.to_i, (t + 20).to_i]}"
-    r.validate_cache(t, 360).should_be true
-    r.socket.rewind
-    resp = r.socket.read
-    resp.should_match /^HTTP\/1.1 304 Not Modified\r\n/
-
-    r = DummyRequest.new
-    t = Time.now
-    
-    r.headers['If-Modified-Since'] = t.httpdate
-    r.validate_cache(t, 360).should_be true
-    r.socket.rewind
-    resp = r.socket.read
-    resp.should_match /^HTTP\/1.1 304 Not Modified\r\n/
-  end
-  
-  specify "should not send anything if the cache doesn't validate" do
-    r = DummyRequest.new
-    t = Time.now
-    
-    r.validate_cache(t, 360).should_be_nil
-    r.socket.rewind
-    resp = r.socket.read
-    resp.should_be_empty
-  end
-  
-  specify "should not execute the given block if the cache validates" do
-    r = DummyRequest.new
-    t = Time.now
-    r.headers['If-Modified-Since'] = t.httpdate
-    proc {r.validate_cache(t, 360) {raise}}.should_not_raise
-  end
-  
-  specify "should return the result of the given block if the cache doesn't validate" do
-    x = nil
-    l = proc {x = :executed}
-    
-    r = DummyRequest.new
-    t = Time.now
-    r.validate_cache(t, 360, &l).should == :executed
-    x.should == :executed
-  end
-end
-
-context "Caching#send_not_modified_response" do
-  specify "should render a 304 response" do
-    r = DummyRequest.new
-    r.send_not_modified_response
-    r.socket.rewind
-    resp = r.socket.read
-    resp.should_match /^HTTP\/1.1 304 Not Modified\r\n/
-    resp.should_match /Content-Length: 0\r\n/
-    resp.should_match /\r\n\r\n$/ # empty response body
-  end
-  
-  specify "should exclude Connection header if persistent" do
-    r = DummyRequest.new
-    r.persistent = true
-    r.send_not_modified_response
-    r.socket.rewind
-    resp = r.socket.read
-    resp.should_not_match /Connection: close\r\n/
-  end
-  
-  specify "should include Connection header if persistent" do
-    r = DummyRequest.new
-    r.persistent = false
-    r.send_not_modified_response
-    r.socket.rewind
-    resp = r.socket.read
-    resp.should_match /Connection: close\r\n/
-  end
-end
-

data/spec/cluster_spec.rb

@@ -1,140 +0,0 @@
-require File.join(File.dirname(__FILE__), '../lib/serverside')
-
-__END__
-
-context "Daemon::Cluster::PidFile" do
-  setup do
-    @fn = Daemon::Cluster::PidFile::FN
-  end
-
-  specify "::FN should be the cluster's pid file" do
-    Daemon::Cluster::PidFile::FN.should == 'serverside_cluster.pid'
-  end
-  
-  specify "should delete the cluster's pid file" do
-    FileUtils.touch(@fn)
-    File.file?(@fn).should == true
-    Daemon::Cluster::PidFile.delete
-    File.file?(@fn).should == false
-  end
-  
-  specify "should store multiple pids" do
-    Daemon::Cluster::PidFile.delete
-    Daemon::Cluster::PidFile.store_pid(1111)
-    IO.read(@fn).should == "1111\n"
-    Daemon::Cluster::PidFile.store_pid(2222)
-    IO.read(@fn).should == "1111\n2222\n"
-  end
-  
-  def test_pid_recall_pids
-    Daemon::Cluster::PidFile.delete
-    proc {Daemon::Cluster::PidFile.recall_pids}.should_raise Errno::ENOENT
-    File.open(@fn, 'w') {|f| f.puts 3333; f.puts 4444}
-    Daemon::Cluster::PidFile.recall_pids.should == [3333, 4444]
-    
-    FileUtils.rm(@fn)
-    Daemon::Cluster::PidFile.store_pid(6666)
-    Daemon::Cluster::PidFile.store_pid(7777)
-    Daemon::Cluster::PidFile.recall_pids.should == [6666, 7777]
-  end
-end
-
-class DummyCluster < Daemon::Cluster
-  FN = 'result'
-  
-  def self.server_loop(port)
-    at_exit {File.open(FN, 'a') {|f| f.puts port}}
-    loop {sleep 10}
-  end
-  
-  def self.ports
-    5555..5556
-  end
-end
-
-context "Cluster.fork_server" do
-  specify "should fork a server on the specified port" do
-    FileUtils.rm(DummyCluster::FN) rescue nil
-    port = rand(5_000)
-    pid = DummyCluster.fork_server(port)
-    sleep 1
-    Process.kill('TERM', pid)
-    sleep 0.1
-    File.file?(DummyCluster::FN).should == true
-    File.open(DummyCluster::FN, 'r') do |f|
-      f.gets.to_i.should == port
-      f.eof?.should == true
-    end
-    FileUtils.rm(DummyCluster::FN) rescue nil
-  end
-end
-
-context "Cluster.start_servers" do
-  specify "should start a cluster of servers" do
-    FileUtils.rm(DummyCluster::FN) rescue nil
-    DummyCluster.start_servers
-    sleep 0.5
-    pids = Daemon::Cluster::PidFile.recall_pids
-    pids.length.should == 2
-    pids.each {|pid| Process.kill('TERM', pid)}
-    sleep 0.5
-    File.open(DummyCluster::FN, 'r') do |f|
-      p1, p2 = f.gets.to_i, f.gets.to_i
-      DummyCluster.ports.include?(p1).should == true
-      DummyCluster.ports.include?(p2).should == true
-      p1.should_not == p2
-      f.eof?.should == true
-    end
-    FileUtils.rm(DummyCluster::FN) rescue nil
-  end
-end
-
-context "Cluster.stop_servers" do
-  specify "should stop the cluster of servers" do
-    DummyCluster.start_servers
-    sleep 0.5
-    pids = Daemon::Cluster::PidFile.recall_pids
-    DummyCluster.stop_servers
-    sleep 0.5
-    File.file?(Daemon::Cluster::PidFile::FN).should == false
-    File.open(DummyCluster::FN, 'r') do |f|
-      p1, p2 = f.gets.to_i, f.gets.to_i
-      DummyCluster.ports.include?(p1).should == true
-      DummyCluster.ports.include?(p2).should == true
-      p1.should_not == p2
-      f.eof?.should == true
-    end
-    FileUtils.rm(DummyCluster::FN) rescue nil
-  end
-end
-  
-class DummyCluster2 < Daemon::Cluster
-  def self.daemon_loop
-    @@a = true
-  end
-  
-  def self.start_servers
-    @@b = true
-  end
-  
-  def self.stop_servers
-    @@c = true
-  end
-  
-  def self.a; @@a; end
-  def self.b; @@b; end
-  def self.c; @@c; end
-end
-
-context "Cluster.start and stop" do
-  specify "should start and stop the cluster daemon" do
-    DummyCluster2.start
-    DummyCluster2.a.should == true
-    DummyCluster2.b.should == true
-    
-    proc {DummyCluster2.c}.should_raise
-    DummyCluster2.stop
-    DummyCluster2.c.should == true
-  end
-end
-  

data/spec/connection_spec.rb

@@ -1,59 +0,0 @@
-require File.join(File.dirname(__FILE__), '../lib/serverside')
-
-class ServerSide::HTTP::Connection
-  attr_reader :socket, :request_class, :thread
-end
-
-$pause_request = false
-
-class DummyRequest1 < ServerSide::HTTP::Request
-  @@instance_count = 0
-  
-  def initialize(socket)
-    @@instance_count += 1
-    super(socket)
-  end
-  
-  def self.instance_count
-    @@instance_count
-  end
-  
-  def process
-    sleep 0.1 while $pause_request
-  
-    @socket[:count] ||= 0
-    @socket[:count] += 1
-    @socket[:count] < 1000
-  end
-end
-
-class DummySocket < Hash
-  attr_accessor :closed
-  def close; @closed = true; end
-end
-
-include ServerSide::HTTP
-
-context "Connection.initialize" do
-  specify "should take two parameters: socket and request_class" do
-    proc {Connection.new}.should_raise ArgumentError
-    proc {Connection.new(nil)}.should_raise ArgumentError
-    s = 'socket'
-    r = 'request_class'
-    c = Connection.new(s, r)
-    c.socket.should_be s
-    c.request_class.should_be r
-  end
-  
-  specify "should spawn a thread that invokes Connection.process" do
-    $pause_request = true
-    c = Connection.new(DummySocket.new, DummyRequest1)
-    c.thread.should_be_an_instance_of Thread
-    c.thread.alive?.should == true
-    DummyRequest1.instance_count.should == 1
-    $pause_request = false
-    sleep 0.1 while c.thread.alive?
-    DummyRequest1.instance_count.should == 1000
-  end
-end
-

data/spec/controllers_spec.rb

@@ -1,142 +0,0 @@
-require File.join(File.dirname(__FILE__), '../lib/serverside')
-require 'stringio'
-
-class ServerSide::Router
-  def self.rules
-    @@rules
-  end
-  
-  def self.reset_rules
-    @@rules = []
-  end
-  
-  attr_accessor :path
-end
-
-context "ServerSide::Controller.mount" do
-  specify "should accept a routing rule as argument" do
-    proc {ServerSide::Controller.mount}.should_raise ArgumentError
-  end
-  
-  specify "should return a subclass of ServerSide::Controller" do
-    c = ServerSide::Controller.mount(:path => '/test')
-    c.should_be_a_kind_of Class
-    c.superclass.should_be ServerSide::Controller
-  end
-  
-  specify "should add a routing rule using ServerSide::Router.route" do
-    ServerSide::Router.reset_rules
-    rule = {:path => '/test'}
-    c = ServerSide::Controller.mount(rule)
-    sub_class = Class.new(c)
-    r = ServerSide::Router.rules.first
-    r.first.should == rule
-    r.last.should_be_a_kind_of Proc
-    c.module_eval do
-      define_method(:initialize) {|req| $req = req}
-    end
-    res = r.last.call
-    res.should_be_a_kind_of sub_class
-    
-    r = ServerSide::Router.new(StringIO.new)
-    r.path = '/test'
-    r.respond
-    $req.should_be_a_kind_of ServerSide::Router
-  end
-
-  specify "should accept either an argument or block as the rule" do
-    ServerSide::Router.reset_rules
-    rule = {:path => '/test'}
-    c = Class.new(ServerSide::Controller.mount(rule))
-    r = ServerSide::Router.rules.first
-    r.first.should_be rule
-
-    ServerSide::Router.reset_rules
-    rule = proc {true}
-    c = Class.new(ServerSide::Controller.mount(&rule))
-    r = ServerSide::Router.rules.first
-    r.first.should_be rule
-  end
-end
-
-class ServerSide::Controller
-  attr_accessor :request, :path, :parameters, :rendered
-end
-
-class ServerSide::HTTP::Request
-  attr_accessor :path, :parameters
-end
-
-require 'metaid'
-
-class DummyController < ServerSide::Controller
-  attr_reader :response_called
-  
-  def response
-    @response_called = true
-  end
-  
-  def render_default
-    @rendered = :default
-  end
-end
-
-context "ServerSide::Controller new instance" do
-  specify "should set @request, @path, and @parameters instance variables" do
-    req = ServerSide::HTTP::Request.new(StringIO.new)
-    req.path = '/aa/bb/cc'
-    req.parameters = {:q => 'node_state', :f => 'xml'}
-    c = ServerSide::Controller.new(req)
-    c.request.should_be req
-    c.path.should_be req.path
-    c.parameters.should_be req.parameters
-  end
-  
-  specify "should invoke the response method" do
-    req = ServerSide::HTTP::Request.new(StringIO.new)
-    c = DummyController.new(req)
-    c.response_called.should_be true
-  end
-  
-  specify "should invoke render_default unless @rendered" do
-    req = ServerSide::HTTP::Request.new(StringIO.new)
-    c = DummyController.new(req)
-    c.rendered.should_be :default
-    
-    c_class = Class.new(DummyController) do
-      define_method(:response) {@rendered = true}
-    end
-    c = c_class.new(req)
-    c.rendered.should_be true
-  end
-end
-
-context "ServerSide::Controller.render_default" do
-  specify "should render a default 200 response" do
-    req = ServerSide::HTTP::Request.new(StringIO.new)
-    c = ServerSide::Controller.new(req)
-    req.socket.rewind
-    resp = req.socket.read
-    resp.should_match /HTTP\/1\.1\s200/
-  end
-end
-
-context "ServerSide::Controller.render" do
-  specify "should render a 200 response with body and content type arguments" do
-    req = ServerSide::HTTP::Request.new(StringIO.new)
-    c = ServerSide::Controller.new(req)
-    c.render('hello world', 'text/plain')
-    req.socket.rewind
-    resp = req.socket.read
-    resp.should_match /Content-Type:\stext\/plain\r\n/
-  end
-  
-  specify "should set @rendered to true" do
-    req = ServerSide::HTTP::Request.new(StringIO.new)
-    c = ServerSide::Controller.new(req)
-    c.render('hello world', 'text/plain')
-    c.rendered.should == true
-  end
-end
-
-