serverside 0.2.9 → 0.3.0

data/test/functional/request_body_test.rb

@@ -1,93 +0,0 @@
-require File.dirname(__FILE__) + '/../test_helper'
-require 'net/http'
-
-$r = nil
-ServerSide::Router.route(:path => '/') {$r = self; send_response(200, 'text', 'OK')}
-t = Thread.new {ServerSide::HTTP::Server.new('0.0.0.0', 17651, ServerSide::Router)}
-sleep 0.1
-
-class RequestBodyTest < Test::Unit::TestCase
-  
-  def test_basic
-    h = Net::HTTP.new('localhost', 17651)
-
-    resp = h.post('/try', 'q=node_state&f=xml', {'Content-Type' => 'application/x-www-form-urlencoded'})
-    assert_equal 'OK', resp.body
-    assert_not_nil $r
-    assert_equal :post, $r.method
-    assert_not_nil $r.body
-    assert_equal 'q=node_state&f=xml', $r.body
-    assert_equal 'application/x-www-form-urlencoded', $r.content_type
-    assert_equal 18, $r.content_length
-  end
-  
-  def text_to_multipart(key, value)
-    return "Content-Disposition: form-data; name=\"#{key.uri_escape}\"\r\n\r\n#{value}\r\n"
-  end
-
-  def file_to_multipart(key, filename, mime_type, content)
-    return "Content-Disposition: form-data; name=\"#{key.uri_escape}\"; filename=\"#{filename}\"\r\n" +
-      "Content-Transfer-Encoding: binary\r\nContent-Type: #{mime_type}\r\n\r\n#{content}\r\n"
-  end
-  
-  def upload_file(*fns)
-    params = []
-    fns.each_with_index do |fn, idx|
-      params << file_to_multipart("file#{idx}", File.basename(fn), 
-        "text/#{File.extname(fn).gsub('.', '')}", IO.read(fn))
-    end
-    
-    boundary = '349832898984244898448024464570528145'
-    query = 
-      params.map{|p| '--' + boundary + "\r\n" + p}.join('') + "--" + boundary + "--\r\n"
-    Net::HTTP.start('localhost', 17651).
-      post2("/", query, "Content-type" => "multipart/form-data; boundary=" + boundary)
-  end
-  
-  def test_upload
-    upload_file(__FILE__)
-    assert_equal :post, $r.method
-    assert_not_nil $r.parameters[:file0]
-    assert_equal "text/rb", $r.parameters[:file0][:type]
-    assert_equal IO.read(__FILE__), $r.parameters[:file0][:content]
-  end
-  
-  def test_multiple_uploads
-    readme_fn = File.dirname(__FILE__) + '/../../README'
-    upload_file(__FILE__, readme_fn)
-    assert_equal :post, $r.method
-    assert_not_nil $r.parameters[:file0]
-    assert_not_nil $r.parameters[:file1]
-    assert_equal "text/rb", $r.parameters[:file0][:type]
-    assert_equal "text/", $r.parameters[:file1][:type]
-    assert_equal IO.read(__FILE__), $r.parameters[:file0][:content]
-    assert_equal IO.read(readme_fn), $r.parameters[:file1][:content]
-  end
-  
-  def test_mixed_form_data
-    params = [
-      file_to_multipart("file", File.basename(__FILE__), "text/rb", IO.read(__FILE__)),
-      text_to_multipart('warning','1'),
-      text_to_multipart('profile','css2'),
-      text_to_multipart('usermedium','all')      
-    ]
-
-    boundary = '349832898984244898448024464570528145'
-    query = 
-      params.map{|p| '--' + boundary + "\r\n" + p}.join('') + "--" + boundary + "--\r\n"
-    Net::HTTP.start('localhost', 17651).
-      post2("/", query, "Content-type" => "multipart/form-data; boundary=" + boundary)
-
-    assert_equal :post, $r.method
-    
-    assert_not_nil $r.parameters[:file]
-    assert_equal "text/rb", $r.parameters[:file][:type]
-    assert_equal File.basename(__FILE__), $r.parameters[:file][:filename]
-    assert_equal IO.read(__FILE__), $r.parameters[:file][:content]
-    
-    assert_equal '1', $r.parameters[:warning]
-    assert_equal 'css2', $r.parameters[:profile]
-    assert_equal 'all', $r.parameters[:usermedium]
-  end
-end
-

data/test/functional/routing_server.rb

@@ -1,14 +0,0 @@
-require File.dirname(__FILE__) + '/../test_helper'
-require 'fileutils'
-
-FileUtils.cd(File.dirname(__FILE__))
-
-trap('INT') {exit}
-
-ServerSide::Router.route(:path => '^/static/:path') {serve_static('.'/@parameters[:path])}
-ServerSide::Router.route(:path => '/hello$') {send_response(200, 'text', 'Hello world!')}
-ServerSide::Router.route(:path => '/xml') do
-  redirect('http://feeds.feedburner.com/RobbyOnRails')
-end
-
-ServerSide::HTTP::Server.new('0.0.0.0', 4401, ServerSide::Router)

data/test/functional/routing_server_test.rb

@@ -1,41 +0,0 @@
-require File.dirname(__FILE__) + '/../test_helper'
-require 'net/http'
-
-class StaticServerTest < Test::Unit::TestCase
-  def test_basic
-    ServerSide::Router.route(:path => '^/static/:path') {serve_static('.'/@parameters[:path])}
-    ServerSide::Router.route(:path => '/hello$') {send_response(200, 'text', 'Hello world!')}
-    ServerSide::Router.route(:path => '/xml/:flavor/feed.xml') do
-      redirect('http://feeds.feedburner.com/RobbyOnRails')
-    end
-    
-    t = Thread.new {ServerSide::HTTP::Server.new('0.0.0.0', 17654, ServerSide::Router)}
-    sleep 0.1
-
-    h = Net::HTTP.new('localhost', 17654)
-    resp, data = h.get('/hello', nil)
-    assert_equal 200, resp.code.to_i
-    assert_equal "Hello world!", data
-    
-    h = Net::HTTP.new('localhost', 17654)
-    resp, data = h.get('/static/qqq.zzz', nil)
-    assert_equal 404, resp.code.to_i
-    assert_equal "File not found.", data
-    
-    h = Net::HTTP.new('localhost', 17654)
-    resp, data = h.get("/static/#{__FILE__}", nil)
-    assert_equal 200, resp.code.to_i
-    assert_equal IO.read(__FILE__), data
-    assert_equal 'text/plain', resp['Content-Type']
-    # Net::HTTP includes this header in the request, so our server returns
-    # likewise.
-    assert_equal 'close', resp['Connection']
-    
-    h = Net::HTTP.new('localhost', 17654)
-    resp, data = h.get('/xml/rss/feed.xml', nil)
-    assert_equal 302, resp.code.to_i
-    assert_equal 'http://feeds.feedburner.com/RobbyOnRails', resp['Location']
-    
-    t.exit
-  end
-end

data/test/functional/static_profile.rb

@@ -1,17 +0,0 @@
-require 'rubygems'
-require 'serverside'
-require 'fileutils'
-
-FileUtils.cd(File.dirname(__FILE__))
-
-pid = fork do
-  trap('TERM') {exit}
-  require 'profile'
-  ServerSide::HTTP::Server.new('0.0.0.0', 8000, nil)
-end
-
-puts "Please wait..."
-`ab -n 1000 http://localhost:8000/#{File.basename(__FILE__)}`
-puts
-Process.kill('TERM', pid)
-puts

data/test/functional/static_rfuzz.rb

@@ -1,31 +0,0 @@
-# Simple script that hits a host port and URI with a bunch of connections
-# and measures the timings.
-
-require 'rubygems'
-require 'rfuzz/client'
-require 'rfuzz/stats'
-include RFuzz
-
-if ARGV.length != 4
-  STDERR.puts "usage:  ruby perftest.rb host port uri count"
-  exit 1
-end
-
-host, port, uri, count = ARGV[0], ARGV[1], ARGV[2], ARGV[3].to_i
-
-codes = {}
-cl = HttpClient.new(host, port, :notifier => StatsTracker.new)
-count.times do
-  begin
-    resp = cl.get(uri)
-    code = resp.http_status.to_i
-    codes[code] ||= 0
-    codes[code] += 1
-  rescue => e
-    puts e.message
-    puts e.backtrace.first
-  end
-end
-
-puts cl.notifier.to_s
-puts "Status Codes: #{codes.inspect}"

data/test/functional/static_server.rb

@@ -1,7 +0,0 @@
-require 'lib/serverside'
-
-trap('INT') {exit}
-include ServerSide
-puts "Serving on port 8000..."
-Router.default_route {serve_static('.'/@path)}
-HTTP::Server.new('0.0.0.0', 8000, Router)

data/test/functional/static_server_test.rb

@@ -1,31 +0,0 @@
-require File.dirname(__FILE__) + '/../test_helper'
-require 'net/http'
-
-class StaticServerTest < Test::Unit::TestCase
-  
-  class StaticRequest < ServerSide::HTTP::Request
-    def respond
-      serve_static('.'/@path)
-    end
-  end
-  
-  def test_basic
-    t = Thread.new {ServerSide::HTTP::Server.new('0.0.0.0', 17654, StaticRequest)}
-    sleep 0.1
-
-    h = Net::HTTP.new('localhost', 17654)
-    resp, data = h.get('/qqq.zzz', nil)
-    assert_equal 404, resp.code.to_i
-    assert_equal "File not found.", data
-    
-    h = Net::HTTP.new('localhost', 17654)
-    resp, data = h.get("/#{__FILE__}", nil)
-    assert_equal 200, resp.code.to_i
-    assert_equal IO.read(__FILE__), data
-    assert_equal 'text/plain', resp['Content-Type']
-    # Net::HTTP includes this header in the request, so our server returns
-    # likewise.
-    assert_equal 'close', resp['Connection']
-    t.exit
-  end
-end

data/test/spec/caching_spec.rb

@@ -1,139 +0,0 @@
-require File.join(File.dirname(__FILE__), '../../lib/serverside')
-require 'stringio'
-include ServerSide::HTTP
-
-class DummyRequest < Request
-  attr_accessor :socket
-  include Caching
-  
-  def initialize
-    super(StringIO.new)
-    @headers = {}
-  end
-end
-
-context "Caching::validate_cache" do
-  specify "should set etag and last-modified response headers" do
-    r = DummyRequest.new
-    t = Time.now
-    r.validate_cache('aaaa', t) {
-      r.send_response(200, 'text/plain', 'hi', nil, {'F' => 1})
-    }
-    r.socket.rewind
-    resp = r.socket.read
-    
-    resp.should_match /ETag:\s"aaaa"\r\n/
-    resp.should_match /Last-Modified:\s#{t.httpdate}\r\n/
-    resp.should_match /F:\s1\r\n/
-  end
-  
-  specify "should send not modified response if client includes a suitable validator" do
-    r = DummyRequest.new
-    t = Time.now
-    r.headers['If-None-Match'] = '"bbbb"'
-    r.validate_cache('bbbb', t) {raise "This should not be called"}
-    r.socket.rewind
-    resp = r.socket.read
-
-    resp.should_match /^HTTP\/1.1\s304 Not Modified\r\n/
-    resp.should_match /ETag:\s"bbbb"\r\n/
-    resp.should_match /Last-Modified:\s#{t.httpdate}\r\n/
-
-    r = DummyRequest.new
-    t = Time.now
-    r.headers['If-Modified-Since'] = t.httpdate
-    r.validate_cache('cccc', t) {raise "This should not be called"}
-    r.socket.rewind
-    resp = r.socket.read
-
-    resp.should_match /^HTTP\/1.1\s304 Not Modified\r\n/
-    resp.should_match /ETag:\s"cccc"\r\n/
-    resp.should_match /Last-Modified:\s#{t.httpdate}\r\n/
-  end
-end
-
-context "Caching::send_not_modified" do
-  specify "should send back a valid 304 response with headers" do
-    r = DummyRequest.new
-    t = Time.now
-    r.send_not_modified('dddd', t.httpdate, 240)
-    r.socket.rewind
-    resp = r.socket.read
-
-    resp.should_match /^HTTP\/1.1\s304 Not Modified\r\n/
-    resp.should_match /ETag:\s"dddd"\r\n/
-    resp.should_match /Last-Modified:\s#{t.httpdate}\r\n/
-    resp.should_match /Cache-Control:\smax-age=240\r\n/
-  end
-end
-
-context "Caching::valid_client_cache?" do
-  specify "should check if-none-match validator for etag" do
-    r = DummyRequest.new
-    t = Time.now
-    r.valid_client_cache?('eeee', t).should_be_nil
-    r.headers['If-None-Match'] = '"abc"'
-    r.valid_client_cache?('eeee', t).should_be_nil
-    r.headers['If-None-Match'] = '"eeee"'
-    r.valid_client_cache?('eeee', t).should_not_be_nil
-    r.headers['If-None-Match'] = '"aaa", "bbb", "ccc"'
-    r.valid_client_cache?('eeee', t).should_be_nil
-    r.headers['If-None-Match'] = '"aaa", "eeee", "ccc"'
-    r.valid_client_cache?('eeee', t).should_not_be_nil
-  end
-  
-  specify "should check if-none-match validator for wildcard" do
-    r = DummyRequest.new
-    r.headers['If-None-Match'] = '*'
-    r.valid_client_cache?('eeee', nil).should_not_be_nil
-    r.headers['If-None-Match'] = '*, "aaaa"'
-    r.valid_client_cache?('eeee', nil).should_not_be_nil
-  end
-  
-  specify "should check if-modified-since validator for etag" do
-    r = DummyRequest.new
-    t = Time.now
-    r.headers['If-Modified-Since'] = (t-1).httpdate
-    r.valid_client_cache?('eeee', t.httpdate).should_be false
-    r.headers['If-Modified-Since'] = t.httpdate
-    r.valid_client_cache?('eeee', t.httpdate).should_not_be false
-  end
-end
-
-context "Caching::cache_etags" do
-  specify "should return an empty array if no If-None-Match header is included" do
-    r = DummyRequest.new
-    r.cache_etags.should_be_a_kind_of Array
-    r.cache_etags.should_equal []
-  end
-  
-  specify "should return all etags included in the If-None-Match header" do
-    r = DummyRequest.new
-    r.headers['If-None-Match'] = '*'
-    r.cache_etags.should_equal ['*']
-    r.headers['If-None-Match'] = '*, "XXX-YYY","AAA-BBB"'
-    r.cache_etags.should_equal ['*', 'XXX-YYY', 'AAA-BBB']
-    r.headers['If-None-Match'] = '"abcd-EFGH"'
-    r.cache_etags.should_equal ['abcd-EFGH']
-  end
-end
-
-context "Caching::cache_stamps" do
-  specify "should return nil if no If-Modified-Since header is included" do
-    r = DummyRequest.new
-    r.cache_stamp.should_be_nil
-  end
-  
-  specify "should return nil if no an invalid stamp is specified" do
-    r = DummyRequest.new
-    r.headers['If-Modified-Since'] = 'invalid stamp'
-    r.cache_stamp.should_be_nil
-  end
-  
-  specify "should return the stamp specified in the If-Modified-Since header" do
-    r = DummyRequest.new
-    t = Time.now
-    r.headers['If-Modified-Since'] = t.httpdate
-    r.cache_stamp.to_i.should_equal t.to_i
-  end
-end

data/test/test_helper.rb

@@ -1,2 +0,0 @@
-require File.expand_path(File.dirname(__FILE__) + '/../lib/serverside')
-require 'test/unit'

data/test/unit/cluster_test.rb

@@ -1,129 +0,0 @@
-require File.dirname(__FILE__) + '/../test_helper'
-require 'fileutils'
-
-class ClusterTest < Test::Unit::TestCase
-  FN = Daemon::Cluster::PidFile::FN
-  
-  def test_pid_fn
-    assert_equal 'serverside_cluster.pid', Daemon::Cluster::PidFile::FN
-  end
-  
-  def test_pid_delete
-    FileUtils.touch(FN)
-    assert_equal true, File.file?(FN)
-    Daemon::Cluster::PidFile.delete
-    assert_equal false, File.file?(FN)
-  end
-  
-  def test_pid_store_pid
-    FileUtils.rm(FN) if File.file?(FN)
-    Daemon::Cluster::PidFile.store_pid(1111)
-    assert_equal "1111\n", IO.read(FN)
-    Daemon::Cluster::PidFile.store_pid(2222)
-    assert_equal "1111\n2222\n", IO.read(FN)
-  end
-  
-  def test_pid_recall_pids
-    FileUtils.rm(FN) if File.file?(FN)
-    assert_raise(Errno::ENOENT) {Daemon::Cluster::PidFile.recall_pids}
-    File.open(FN, 'w') {|f| f.puts 3333; f.puts 4444}
-    assert_equal [3333, 4444], Daemon::Cluster::PidFile.recall_pids
-    
-    FileUtils.rm(FN)
-    Daemon::Cluster::PidFile.store_pid(6666)
-    Daemon::Cluster::PidFile.store_pid(7777)
-    assert_equal [6666, 7777], Daemon::Cluster::PidFile.recall_pids
-  end
-  
-  class DummyCluster < Daemon::Cluster
-    FN = 'result'
-    
-    def self.server_loop(port)
-      at_exit {File.open(FN, 'a') {|f| f.puts port}}
-      loop {sleep 60}
-    end
-    
-    def self.ports
-      5555..5556
-    end
-  end
-  
-  def test_fork_server
-    FileUtils.rm(DummyCluster::FN) if File.file?(DummyCluster::FN)
-    pid = DummyCluster.fork_server(1111)
-    sleep 1
-    Process.kill('TERM', pid)
-    sleep 0.1
-    assert_equal true, File.file?(DummyCluster::FN)
-    File.open(DummyCluster::FN, 'r') do |f|
-      assert_equal 1111, f.gets.to_i
-      assert_equal true, f.eof?
-    end
-    FileUtils.rm(DummyCluster::FN) if File.file?(DummyCluster::FN)
-  end
-  
-  def test_start_servers
-    FileUtils.rm(DummyCluster::FN) if File.file?(DummyCluster::FN)
-    DummyCluster.start_servers
-    sleep 0.5
-    pids = Daemon::Cluster::PidFile.recall_pids
-    assert_equal 2, pids.length
-    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
-      assert_equal true, DummyCluster.ports.include?(p1)
-      assert_equal true, DummyCluster.ports.include?(p2)
-      assert p1 != p2
-      assert_equal true, f.eof?
-    end
-    FileUtils.rm(DummyCluster::FN) if File.file?(DummyCluster::FN)
-  end
-  
-  def test_stop_servers
-    DummyCluster.start_servers
-    sleep 0.5
-    pids = Daemon::Cluster::PidFile.recall_pids
-    DummyCluster.stop_servers
-    sleep 0.5
-    assert_equal false, File.file?(FN)
-    File.open(DummyCluster::FN, 'r') do |f|
-      p1, p2 = f.gets.to_i, f.gets.to_i
-      assert_equal true, DummyCluster.ports.include?(p1)
-      assert_equal true, DummyCluster.ports.include?(p2)
-      assert p1 != p2
-      assert_equal true, f.eof?
-    end
-    FileUtils.rm(DummyCluster::FN) if File.file?(DummyCluster::FN)
-  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
-  
-  def test_start
-    DummyCluster2.start
-    assert_equal true, DummyCluster2.a
-    assert_equal true, DummyCluster2.b
-    
-    DummyCluster2.stop
-    assert_equal true, DummyCluster2.c
-  end
-  
-  def test_stop
-  end
-end

data/test/unit/connection_test.rb

@@ -1,48 +0,0 @@
-require File.dirname(__FILE__) + '/../test_helper'
-require 'stringio'
-
-class ConnectionTest < Test::Unit::TestCase
-  class ServerSide::HTTP::Connection
-    attr_reader :socket, :request_class, :thread
-  end
-  
-  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
-      @socket[:count] ||= 0
-      @socket[:count] += 1
-      @socket[:count] < 1000
-    end
-  end
-  
-  class DummySocket < Hash
-    attr_accessor :closed
-    def close; @closed = true; end
-  end
-
-  def test_new
-    r = ServerSide::HTTP::Connection.new('hello', ServerSide::HTTP::Request)
-    sleep 0.1
-    assert_equal 'hello', r.socket
-    assert_equal ServerSide::HTTP::Request, r.request_class
-    assert_equal false, r.thread.alive?
-    
-    c = DummySocket.new
-    r = ServerSide::HTTP::Connection.new(c, DummyRequest1)
-    assert_equal DummyRequest1, r.request_class
-    r.thread.join
-    assert_equal 1000, c[:count]
-    assert_equal 1000, DummyRequest1.instance_count
-    assert_equal true, c.closed
-  end
-end

data/test/unit/core_ext_test.rb

@@ -1,46 +0,0 @@
-require File.dirname(__FILE__) + '/../test_helper'
-
-class StringTest < Test::Unit::TestCase
-  def test_uri_escape
-    assert_equal 'hello', 'hello'.uri_escape
-    assert_equal 'hello+world', 'hello world'.uri_escape
-    assert_equal 'Hello%2C+my+name+is+Inigo+Montoya%21',
-      'Hello, my name is Inigo Montoya!'.uri_escape
-  end
-  
-  def test_uri_unescape
-    assert_equal 'hello', 'hello'.uri_unescape
-    assert_equal 'hello world', 'hello+world'.uri_unescape
-    assert_equal 'Hello, my name is Inigo Montoya!',
-      'Hello%2C+my+name+is+Inigo+Montoya%21'.uri_unescape
-    assert_equal '%&asdf#231&?fgs!', '%&asdf#231&?fgs!'.uri_escape.uri_unescape 
-  end
-  
-  def test_slash
-    assert_equal 'sharon/eylon', 'sharon'/'/eylon'
-    assert_equal 'sharon/122', 'sharon/'/122
-    assert_equal 'test/schmest', 'test'/:schmest
-  end
-end
-
-class SymbolTest < Test::Unit::TestCase
-  def test_to_s
-    assert_equal 'hello', :hello.to_s
-    assert_equal 'yow_za', :yow_za.to_s
-    assert_equal :yow_za.to_s.object_id, :yow_za.to_s.object_id
-  end
-end
-
-class ProcTest < Test::Unit::TestCase
-  def test_proc_tag
-    l = lambda {puts "hello"}
-    assert_equal 'proc_' + l.object_id.to_s(36).sub('-', '_'), l.proc_tag
-  end
-end
-
-class ObjectTest < Test::Unit::TestCase
-  def test_const_tag
-    v = "mau mau"
-    assert_equal 'C' + v.object_id.to_s(36).upcase.sub('-', '_'), v.const_tag
-  end
-end

data/test/unit/daemon_test.rb

@@ -1,75 +0,0 @@
-require File.dirname(__FILE__) + '/../test_helper'
-
-class DaemonTest < Test::Unit::TestCase
-  class TestDaemon < Daemon::Base
-    def self.start
-      @count = 0
-      loop {@count += 1; sleep 0.1}
-    end
-    
-    def self.result_fn
-      File.join(Daemon::WorkingDirectory, 'test.result')
-    end
-    
-    def self.stop
-      File.open(result_fn, 'w') {|f| f << @count}
-    end
-  end
-
-  def teardown
-    Daemon.control(TestDaemon, :stop) rescue nil
-  end
-  
-  def test_working_directory
-    assert_equal FileUtils.pwd, Daemon::WorkingDirectory
-  end
-  
-  def test_pid_fn
-    assert_equal File.join(Daemon::WorkingDirectory, 'daemon.base.pid'),
-      Daemon::Base.pid_fn
-    
-    assert_equal File.join(Daemon::WorkingDirectory, 'daemontest.testdaemon.pid'),
-      TestDaemon.pid_fn
-  end
-  
-  def test_pid_file_store
-    Daemon::PidFile.store(TestDaemon, 1234)
-    assert_equal IO.read(TestDaemon.pid_fn).to_i, 1234
-  end
-  
-  def test_pid_file_recall
-    FileUtils.rm(TestDaemon.pid_fn) rescue nil
-    assert_raise(RuntimeError) {Daemon::PidFile.recall(TestDaemon)}
-    Daemon::PidFile.store(TestDaemon, 5321)
-    assert_equal 5321, Daemon::PidFile.recall(TestDaemon)
-  end
-  
-  def test_start_stop
-    FileUtils.rm(TestDaemon.result_fn) rescue nil
-    Daemon.control(TestDaemon, :start)
-    sleep 0.2
-    assert_equal true, File.file?(TestDaemon.pid_fn)
-    sleep 0.5
-    assert_nothing_raised {Daemon::PidFile.recall(TestDaemon)}
-    Daemon.control(TestDaemon, :stop)
-    sleep 0.5
-    assert_equal true, File.file?(TestDaemon.result_fn)
-    FileUtils.rm(TestDaemon.result_fn) rescue nil
-  end
-  
-  def test_restart
-    FileUtils.rm(TestDaemon.result_fn) rescue nil
-    Daemon.control(TestDaemon, :start)
-    sleep 0.5
-    pid1 = Daemon::PidFile.recall(TestDaemon)
-    Daemon.control(TestDaemon, :restart)
-    sleep 0.5
-    pid2 = Daemon::PidFile.recall(TestDaemon)
-    assert pid1 != pid2
-    Daemon.control(TestDaemon, :stop)
-  end
-  
-  def test_invalid_control_cmd
-    assert_raise(RuntimeError) {Daemon.control(TestDaemon, :invalid)}
-  end
-end