hayabusa 0.0.1

data/pages/spec_post.rhtml

@@ -0,0 +1,3 @@
+<%
+  print _post["test"]
+%>

data/pages/spec_test_multiple_clients.rhtml

@@ -0,0 +1,3 @@
+<%
+  
+%>

data/pages/spec_thread_joins.rhtml

@@ -0,0 +1,21 @@
+<%
+  print "1"
+  
+  cont = "2"
+  t1 = _hb.thread do
+    sleep 0.5
+    cont << "4"
+  end
+  
+  t2 = _hb.thread do
+    sleep 0.1
+    cont << "3"
+  end
+  
+  t1.join
+  t2.join_error
+  
+  cont << "5"
+  
+  print cont
+%>

data/pages/spec_threadded_content.rhtml

@@ -0,0 +1,40 @@
+<%
+  _hb.threadded_content do
+    sleep 0.2
+    print "1"
+  end
+  
+  print "2"
+  
+  _hb.threadded_content do
+    sleep 0.1
+    
+    _hb.threadded_content do
+      sleep 0.1
+      print "3"
+      
+      sleep 0.1
+      
+      _hb.threadded_content do
+        print "4"
+        sleep 0.1
+        print "5"
+      end
+      
+      _hb.threadded_content do
+        print "6"
+        print "7"
+      end
+    end
+    
+    print "8"
+  end
+  
+  #This will first finish after the printing has starter - it should still be printed correct.
+  _hb.threadded_content do
+    sleep 1
+    print "9"
+  end
+  
+  print "10"
+%>

data/pages/tests.rhtml

@@ -0,0 +1,14 @@
+<%
+  print "Test 1: #{_testvar1}<br />\n"
+  print "Test 2: #{_testvar2}<br />\n"
+%>
+
+<table style="width: 1000px;">
+  <%
+    print Knj::Web.inputs([{
+      :title => "FCKEditor test",
+      :type => :fckeditor,
+      :name => :textest
+    }])
+  %>
+</table>

data/spec/cgi_spec.rb

@@ -0,0 +1,47 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe "Hayabusa" do
+  it "should be able to start a sample-server" do
+    require "rubygems"
+    require "http2"
+    require "json"
+    
+    Http2.new(:host => "localhost") do |http|
+      res = http.post(:url => "hayabusa_cgi_test/vars_post_test.rhtml", :post => {
+        "var" => {
+          0 => 1,
+          1 => 2,
+          3 => {
+            "kasper" => 5,
+            "arr" => ["a", "b", "c"]
+          }
+        }
+      })
+      
+      begin
+        data = JSON.parse(res.body)
+      rescue JSON::GeneratorError
+        raise "Could not parse JSON from result: '#{res.body}'."
+      end
+      
+      begin
+        raise "Expected hash to be a certain way: '#{data}'." if data["var"]["0"] != "1" or data["var"]["1"] != "2" or data["var"]["3"]["kasper"] != "5" or data["var"]["3"]["arr"]["0"] != "a" or data["var"]["3"]["arr"]["1"] != "b"
+      rescue => e
+        raise "Error when parsing result: '#{data}'."
+      end
+      
+      
+      res = http.get("hayabusa_cgi_test/threadded_content_test.rhtml")
+      raise "Expected body to be '123456' but it was: '#{res.body}'." if res.body != "123456"
+      
+      res = http.get("hayabusa_cgi_test/vars_get_test.rhtml?var[]=1&var[]=2&var[]=3&var[3][kasper]=5")
+      data = JSON.parse(res.body)
+      raise "Expected hash to be a certain way: '#{data}'." if data["var"]["0"] != "1" or data["var"]["1"] != "2" or data["var"]["3"]["kasper"] != "5"
+      
+      
+      
+      res = http.get("hayabusa_cgi_test/vars_header_test.rhtml")
+      raise "Expected header 'testheader' to be 'TestValue' but it wasnt: '#{res.header("testheader")}'." if res.header("testheader") != "TestValue"
+    end
+  end
+end

data/spec/custom_urls_spec.rb

@@ -0,0 +1,35 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe "Hayabusa" do
+  it "should be able to start a sample-server" do
+    require "rubygems"
+    require "hayabusa"
+    require "knjrbfw"
+    require "sqlite3" if RUBY_ENGINE != "jruby"
+    
+    db_path = "#{Knj::Os.tmpdir}/hayabusa_rspec.sqlite3"
+    File.unlink(db_path) if File.exists?(db_path)
+    
+    db = Knj::Db.new(
+      :type => "sqlite3",
+      :path => db_path,
+      :return_keys => "symbols"
+    )
+    
+    $appserver = Hayabusa.new(
+      :debug => false,
+      :title => "SpecTestCustomUrls",
+      :port => 1515,
+      :doc_root => "#{File.dirname(__FILE__)}/../lib/pages",
+      :locales_gettext_funcs => true,
+      :locale_default => "da_DK",
+      :db => db
+    )
+    
+    $appserver.start
+  end
+  
+  it "should be able to stop." do
+    $appserver.stop
+  end
+end

data/spec/fcgi_multiple_processes_spec.rb

@@ -0,0 +1,32 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe "Hayabusa" do
+  it "two simultanious request should be handeled by the same process - one should proxy the request" do
+    require "rubygems"
+    require "http2"
+    require "json"
+    
+    Http2.new(:host => "localhost") do |http1|
+      Http2.new(:host => "localhost") do |http2|
+        res1 = nil
+        res2 = nil
+        
+        t1 = Thread.new do
+          res1 = http1.get(:url => "hayabusa_fcgi_test/sleeper.rhtml")
+        end
+        
+        t2 = Thread.new do
+          res2 = http2.get(:url => "hayabusa_fcgi_test/sleeper.rhtml")
+        end
+        
+        t1.join
+        t2.join
+        
+        pid1 = res1.body.to_i
+        pid2 = res2.body.to_i
+        
+        raise "Expected PIDs to be the same: '#{res1.body}', '#{res2.body}'." if pid1 != pid2 or pid1 == 0 or pid2 == 0
+      end
+    end
+  end
+end

data/spec/fcgi_spec.rb

@@ -0,0 +1,69 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe "Hayabusa" do
+  it "should be able to start a sample-server" do
+    require "rubygems"
+    require "http2"
+    require "json"
+    
+    ts = []
+    es = []
+    
+    #Execute multiple threads to test FCGI-proxy and thread-safety.
+    1.upto(5) do
+      ts << Thread.new do
+        begin
+          Http2.new(:host => "localhost") do |http|
+            res = http.post(:url => "hayabusa_fcgi_test/vars_post_test.rhtml", :post => {
+              "var" => {
+                0 => 1,
+                1 => 2,
+                3 => {
+                  "kasper" => 5,
+                  "arr" => ["a", "b", "c"]
+                }
+              }
+            })
+            
+            begin
+              data = JSON.parse(res.body)
+            rescue JSON::GeneratorError
+              raise "Could not parse JSON from result: '#{res.body}'."
+            end
+            
+            begin
+              raise "Expected hash to be a certain way: '#{data}'." if data["var"]["0"] != "1" or data["var"]["1"] != "2" or data["var"]["3"]["kasper"] != "5" or data["var"]["3"]["arr"]["0"] != "a" or data["var"]["3"]["arr"]["1"] != "b"
+            rescue => e
+              raise "Error when parsing result: '#{data}'."
+            end
+            
+            
+            res = http.get("hayabusa_fcgi_test/threadded_content_test.rhtml")
+            raise "Expected body to be '123456' but it was: '#{res.body}'." if res.body != "123456"
+            
+            res = http.get("hayabusa_fcgi_test/vars_get_test.rhtml?var[]=1&var[]=2&var[]=3&var[3][kasper]=5")
+            data = JSON.parse(res.body)
+            raise "Expected hash to be a certain way: '#{data}'." if data["var"]["0"] != "1" or data["var"]["1"] != "2" or data["var"]["3"]["kasper"] != "5"
+            
+            
+            
+            res = http.get("hayabusa_fcgi_test/vars_header_test.rhtml")
+            raise "Expected header 'testheader' to be 'TestValue' but it wasnt: '#{res.header("testheader")}'." if res.header("testheader") != "TestValue"
+          end
+        rescue => e
+          es << e
+          puts e.inspect
+          puts e.backtrace
+        end
+      end
+    end
+    
+    ts.each do |t|
+      t.join
+    end
+    
+    es.each do |e|
+      raise e
+    end
+  end
+end

data/spec/hayabusa_spec.rb

@@ -0,0 +1,194 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe "Hayabusa" do
+  it "should be able to start a sample-server" do
+    require "rubygems"
+    require "hayabusa"
+    require "knjrbfw"
+    require "sqlite3" if RUBY_ENGINE != "jruby"
+    
+    db_path = "#{Knj::Os.tmpdir}/hayabusa_rspec.sqlite3"
+    File.unlink(db_path) if File.exists?(db_path)
+    
+    db = Knj::Db.new(
+      :type => "sqlite3",
+      :path => db_path,
+      :return_keys => "symbols"
+    )
+    
+    $appserver = Hayabusa.new(
+      :debug => false,
+      :title => "SpecTest",
+      :port => 1515,
+      :doc_root => "#{File.dirname(__FILE__)}/../pages",
+      :locales_gettext_funcs => true,
+      :locale_default => "da_DK",
+      :db => db
+    )
+    
+    $appserver.vars[:test] = "kasper"
+    $appserver.define_magic_var(:_testvar1, "Kasper")
+    $appserver.define_magic_var(:_testvar2, "Johansen")
+    $appserver.start
+  end
+  
+  it "should be able to handle a GET-request." do
+    #Check that we are able to perform a simple GET request and get the correct data back.
+    require "http2"
+    $http = Http2.new(:host => "localhost", :port => 1515)
+    
+    res = $http.get("spec.rhtml")
+    raise "Unexpected HTML: '#{res.body}'." if res.body.to_s != "Test"
+    
+    #Check that URL-decoding are being done.
+    res = $http.get("spec.rhtml?choice=check_get_parse&value=#{Knj::Web.urlenc("gfx/nopic.png")}")
+    raise "Unexpected HTML: '#{res.body}'." if res.body.to_s != "gfx/nopic.png"
+  end
+  
+  it "should be able to handle a HEAD-request." do
+    #Http2 doesnt support head?
+    #res = $http.head("/spec.rhtml")
+    #raise "HEAD-request returned content - it shouldnt?" if res.body.to_s.length > 0
+  end
+  
+  it "should be able to handle a POST-request." do
+    res = $http.post(:url => "spec.rhtml", :post => {
+      "postdata" => "Test post"
+    })
+    raise "POST-request did not return expected data: '#{res.body}'." if res.body.to_s.strip != "Test post"
+    
+    res = $http.post(:url => "spec.rhtml?choice=dopostconvert", :post => {
+      "postdata" => "Test post",
+      "array" => ["a", "b", "d"]
+    })
+    data = JSON.parse(res.body)
+    raise "Expected posted data restored but it wasnt: '#{data}'." if data["array"]["0"] != "a" or data["array"]["1"] != "b" or data["array"]["2"] != "d"
+  end
+  
+  it "should be able to join the server so other tests can be made manually." do
+    begin
+      Timeout.timeout(1) do
+        $appserver.join
+        raise "Appserver didnt join."
+      end
+    rescue Timeout::Error
+      #ignore.
+    end
+  end
+  
+  it "should be able to use the header-methods." do
+    res = $http.get("spec.rhtml")
+    raise "Normal header data could not be detected." if res.header("testheader") != "NormalHeader"
+    raise "Raw header data could not be detected." if res.header("testraw") != "RawHeader"
+  end
+  
+  it "should be able to set and get multiple cookies at the same time." do
+    require "json"
+    
+    res = $http.get("spec.rhtml?choice=test_cookie")
+    raise res.body if res.body.to_s.length > 0
+    
+    res = $http.get("spec.rhtml?choice=get_cookies")
+    parsed = JSON.parse(res.body)
+    
+    raise "Unexpected value for 'TestCookie': '#{parsed["TestCookie"]}'." if parsed["TestCookie"] != "TestValue"
+    raise "Unexpected value for 'TestCookie2': '#{parsed["TestCookie2"]}'." if parsed["TestCookie2"] != "TestValue2"
+    raise "Unexpected value for 'TestCookie3': '#{parsed["TestCookie3"]}'." if parsed["TestCookie3"] != "TestValue 3 "
+  end
+  
+  it "should be able to run the rspec_threadded_content test correctly." do
+    res = $http.get("spec_threadded_content.rhtml")
+    
+    if res.body != "12345678910"
+      raise res.body.to_s
+    end
+  end
+  
+  it "should be able to add a timeout." do
+    $break_timeout = false
+    timeout = $appserver.timeout(:time => 1) do
+      $break_timeout = true
+    end
+    
+    Timeout.timeout(2) do
+      loop do
+        break if $break_timeout
+        sleep 0.1
+      end
+    end
+  end
+  
+  it "should be able to stop a timeout." do
+    $timeout_runned = false
+    timeout = $appserver.timeout(:time => 1) do
+      $timeout_runned = true
+    end
+    
+    sleep 0.5
+    timeout.stop
+    
+    begin
+      Timeout.timeout(1.5) do
+        loop do
+          raise "The timeout ran even though stop was called?" if $timeout_runned
+          sleep 0.1
+        end
+      end
+    rescue Timeout::Error
+      #the timeout didnt run - and it shouldnt so dont do anything.
+    end
+  end
+  
+  it "should be able to join threads tarted from _hb.thread." do
+    res = $http.get("spec_thread_joins.rhtml")
+    raise res.body if res.body.to_s != "12345"
+  end
+  
+  it "should be able to properly parse special characters in post-requests." do
+    res = $http.post(:url => "spec_post.rhtml", :post => {
+      "test" => "123+456%789%20"
+    })
+    raise res.body if res.body != "123+456%789%20"
+  end
+  
+  it "should be able to do logging" do
+    class ::TestModels
+      class Person < Knj::Datarow
+        
+      end
+    end
+    
+    Knj::Db::Revision.new.init_db("db" => $appserver.db, "schema" => {
+      "tables" => {
+        "Person" => {
+          "columns" => [
+            {"name" => "id", "type" => "int", "autoincr" => true, "primarykey" => true},
+            {"name" => "name", "type" => "varchar"}
+          ]
+        }
+      }
+    })
+    
+    ob = Knj::Objects.new(
+      :db => $appserver.db,
+      :datarow => true,
+      :require => false,
+      :module => ::TestModels
+    )
+    
+    person = ob.add(:Person, :name => "Kasper")
+    
+    $appserver.log("This is a test", person)
+    logs = $appserver.ob.list(:Log, "object_lookup" => person).to_a
+    raise "Expected count to be 1 but got: #{logs.length}" if logs.length != 1
+    
+    $appserver.logs_delete(person)
+    
+    logs = $appserver.ob.list(:Log, "object_lookup" => person).to_a
+    raise "Expected count to be 0 but got: #{logs.length}" if logs.length != 0
+  end
+  
+  it "should be able to stop." do
+    $appserver.stop
+  end
+end