zfben_hanoi 0.0.1

data/lib/hanoi/test_case.rb

@@ -0,0 +1,45 @@
+class TestCase
+  attr_reader :path
+
+  def initialize(path, test_directory)
+    @path, @test_directory = path, test_directory
+  end
+
+  def name
+    @name ||= File.basename(@path, '.js')
+  end
+
+  def target
+    "/javascripts/#{relative_path.gsub(/(_test|_spec)/, '')}"
+  end
+
+  def content
+    File.new(@path).read
+  end
+
+  def exist?
+    File.exist?(path)
+  end
+
+  def relative_path
+    @relative_path ||= @path.gsub("#{@test_directory}/", "")
+  end
+
+  def url
+    "/test/#{relative_path.gsub('.js', '')}.html"
+  end
+
+  def create_temp_directory
+    FileUtils.mkdir_p temp_directory
+  end
+
+  def temp_directory
+    @temp_directory ||= File.dirname(File.expand_path(@path).gsub(@test_directory, "#{@test_directory}/tmp"))
+  end
+
+  def html_fixtures
+    path = File.dirname(File.expand_path(@path).gsub(@test_directory, "#{@test_directory}/fixtures"))
+    path = File.expand_path(path + "/#{name.gsub(/(_test|_spec)/, '_fixtures.html')}")
+    File.new(path).read rescue ""
+  end
+end

data/lib/hanoi/test_results.rb

@@ -0,0 +1,25 @@
+class TestResults
+  attr_reader :modules, :tests, :assertions, :failures, :errors, :filename
+  def initialize(query, filename)
+    @modules    = query['modules'].to_i
+    @tests      = query['tests'].to_i
+    @assertions = query['assertions'].to_i
+    @failures   = query['failures'].to_i
+    @errors     = query['errors'].to_i
+    @filename   = filename
+  end
+  
+  def error?
+    @errors > 0
+  end
+  
+  def failure?
+    @failures > 0
+  end
+  
+  def to_s
+    return "E" if error?
+    return "F" if failure?
+    "."
+  end
+end

data/lib/hanoi/test_suite_results.rb

@@ -0,0 +1,40 @@
+class TestSuiteResults
+  def initialize
+    @modules    = 0
+    @tests      = 0
+    @assertions = 0
+    @failures   = 0
+    @errors     = 0
+    @error_files   = []
+    @failure_files = []
+  end
+  
+  def <<(result)
+    @modules    += result.modules
+    @tests      += result.tests
+    @assertions += result.assertions
+    @failures   += result.failures
+    @errors     += result.errors
+    @error_files.push(result.filename)   if result.error?
+    @failure_files.push(result.filename) if result.failure?
+  end
+  
+  def error?
+    @errors > 0
+  end
+  
+  def failure?
+    @failures > 0
+  end
+  
+  def to_s
+    str = ""
+    str << "\n  Failures: #{@failure_files.join(', ')}" if failure?
+    str << "\n  Errors:   #{@error_files.join(', ')}" if error?
+    "#{str}\n#{summary}\n\n"
+  end
+  
+  def summary
+    "#{@modules} modules, #{@tests} tests, #{@assertions} assertions, #{@failures} failures, #{@errors} errors."
+  end
+end

data/lib/hanoi/webrick.rb

@@ -0,0 +1,103 @@
+# shut up, webrick :-)
+class ::WEBrick::HTTPServer
+  def access_log(config, req, res)
+    # nop
+  end
+end
+
+class ::WEBrick::BasicLog
+  def log(level, data)
+    # nop
+  end
+end
+
+class WEBrick::HTTPResponse
+  alias send send_response
+  def send_response(socket)
+    send(socket) unless fail_silently?
+  end
+  
+  def fail_silently?
+    @fail_silently
+  end
+  
+  def fail_silently
+    @fail_silently = true
+  end
+end
+
+class WEBrick::HTTPRequest
+  def to_json
+    headers = []
+    each { |k, v| headers.push "#{k.inspect}: #{v.inspect}" }
+    headers = "{" << headers.join(', ') << "}"
+    %({ "headers": #{headers}, "body": #{body.inspect}, "method": #{request_method.inspect} })
+  end
+end
+
+class WEBrick::HTTPServlet::AbstractServlet
+  def prevent_caching(res)
+    res['ETag'] = nil
+    res['Last-Modified'] = Time.now + 100**4
+    res['Cache-Control'] = 'no-store, no-cache, must-revalidate, post-check=0, pre-check=0'
+    res['Pragma'] = 'no-cache'
+    res['Expires'] = Time.now - 100**4
+  end
+end
+
+class BasicServlet < WEBrick::HTTPServlet::AbstractServlet
+  def do_GET(req, res)
+    prevent_caching(res)
+    res['Content-Type'] = "text/plain"
+    
+    req.query.each do |k, v|
+      res[k] = v unless k == 'responseBody'
+    end
+    res.body = req.query["responseBody"]
+    
+    raise WEBrick::HTTPStatus::OK
+  end
+  
+  def do_POST(req, res)
+    do_GET(req, res)
+  end
+end
+
+class SlowServlet < BasicServlet
+  def do_GET(req, res)
+    sleep(2)
+    super
+  end
+end
+
+class DownServlet < BasicServlet
+  def do_GET(req, res)
+    res.fail_silently
+  end
+end
+
+class InspectionServlet < BasicServlet
+  def do_GET(req, res)
+    prevent_caching(res)
+    res['Content-Type'] = "application/json"
+    res.body = req.to_json
+    raise WEBrick::HTTPStatus::OK
+  end
+end
+
+class NonCachingFileHandler < WEBrick::HTTPServlet::FileHandler
+  def do_GET(req, res)
+    super
+    set_default_content_type(res, req.path)
+    prevent_caching(res)
+  end
+
+  def set_default_content_type(res, path)
+    res['Content-Type'] = case path
+      when /\.js$/   then 'text/javascript'
+      when /\.html$/ then 'text/html'
+      when /\.css$/  then 'text/css'
+      else 'text/plain'
+    end
+  end
+end

data/lib/zfben_hanoi.rb

@@ -0,0 +1,16 @@
+require "erb"
+require "webrick"
+require "rake/tasklib"
+require "hanoi/webrick"
+require "hanoi/browser"
+require "hanoi/browsers/chrome"
+require "hanoi/browsers/firefox"
+require "hanoi/browsers/internet_explorer"
+require "hanoi/browsers/konqueror"
+require "hanoi/browsers/webkit"
+require "hanoi/browsers/safari"
+require "hanoi/browsers/opera"
+require "hanoi/test_case"
+require "hanoi/test_results"
+require "hanoi/test_suite_results"
+require "hanoi/javascript_test_task"

data/spec/browser_spec.rb

@@ -0,0 +1,68 @@
+require File.join(File.dirname(__FILE__), "spec_helper")
+
+describe "Browser" do
+  before(:each) do
+    @browser = Browser.new
+  end
+
+  it "should be supported by default" do
+    @browser.should be_supported
+  end
+
+  it "should recognize the current platform" do
+    method = case @browser.host
+    when /darwin/
+      :macos?
+    when /mswin/, /mingw/
+      :windows?
+    when /linux/
+      :linux?
+    end
+
+    @browser.send(method).should be_true
+  end
+
+  describe "Cross OS Browser", :shared => true do
+    it "should check if installed" do
+      File.should_receive(:exist?).and_return true
+      @browser.should be_installed
+
+      File.should_receive(:exist?).and_return false
+      @browser.should_not be_installed
+    end
+
+    it "should check if runnable" do
+      File.should_receive(:exist?).and_return true
+      @browser.should be_runnable
+
+      File.should_receive(:exist?).and_return false
+      @browser.should_not be_runnable
+    end
+  end
+
+  describe "Mac Os X" do
+    it_should_behave_like "Cross OS Browser"
+  end if macos?
+
+  describe "Windows" do
+    it_should_behave_like "Cross OS Browser"
+  end if windows?
+
+  describe "Linux" do
+    it "should check if installed" do
+      Kernel.should_receive(:system).with("which browser").and_return true
+      @browser.should be_installed
+
+      Kernel.should_receive(:system).with("which browser").and_return false
+      @browser.should_not be_installed
+    end
+
+    it "should check if runnable" do
+      Kernel.should_receive(:system).with("which browser").and_return true
+      @browser.should be_runnable
+
+      Kernel.should_receive(:system).with("which browser").and_return false
+      @browser.should_not be_runnable
+    end
+  end if linux?
+end

data/spec/browsers/chrome_spec.rb

@@ -0,0 +1,65 @@
+require File.join(File.dirname(__FILE__), "/../spec_helper")
+
+describe "Chrome" do
+  before(:each) do
+    @browser = Chrome.new
+    @url     = "http://localhost"
+  end
+
+  describe "Cross OS Chrome", :shared => true do
+    it "should be supported" do
+      @browser.should be_supported
+    end
+
+    it "return name" do
+      @browser.name.should == "Google Chrome"
+    end
+  end
+
+  describe "Mac OS X" do
+    it_should_behave_like "Cross OS Chrome"
+
+    it "should have a path" do
+      expected = File.expand_path("/Applications/#{@browser.escaped_name}.app")
+      @browser.path.should == expected
+    end
+
+    it "should visit a given url" do
+      Kernel.expects(:system).with("open -a #{@browser.name} '#{@url}'")
+      @browser.visit(@url)
+    end
+  end if macos?
+
+  describe "Windows" do
+    it_should_behave_like "Cross OS Chrome"
+
+    it "should have a path" do
+      expected = File.join(
+        ENV['UserPath'] || ENV['UserProfile'] || "C:/Documents and Settings/Administrator",
+        "AppData",
+        "Local",
+        "Google",
+        "Chrome",
+        "Application",
+        "chrome.exe"
+      )
+
+      @browser.path.should == expected
+    end
+
+    it "should visit a given url" do
+      Kernel.expects(:system).with("#{@browser.path} #{@url}")
+      @browser.visit(@url)
+    end
+  end if windows?
+
+  describe "Linux" do
+    it "return name" do
+      @browser.name.should == "Google Chrome"
+    end
+
+    it "should not be supported" do
+      @browser.should_not be_supported
+    end
+  end if linux?
+end

data/spec/browsers/firefox_spec.rb

@@ -0,0 +1,67 @@
+require File.join(File.dirname(__FILE__), "/../spec_helper")
+
+describe "Firefox" do
+  before(:each) do
+    @browser = Firefox.new
+    @url     = "http://localhost"
+  end
+
+  describe "Cross OS Firefox", :shared => true do
+    it "should be supported" do
+      @browser.should be_supported
+    end
+  end
+
+  describe "Mac OS X" do
+    it_should_behave_like "Cross OS Firefox"
+
+    it "should have a path" do
+      expected = File.expand_path("/Applications/#{@browser.escaped_name}.app")
+      @browser.path.should == expected
+    end
+
+    it "return name" do
+      @browser.name.should == "Firefox"
+    end
+
+    it "should visit a given url" do
+      Kernel.expects(:system).with("open -a #{@browser.name} '#{@url}'")
+      @browser.visit(@url)
+    end
+  end if macos?
+
+  describe "Windows" do
+    it_should_behave_like "Cross OS Firefox"
+
+    it "should have a path" do
+      @browser.path.should == File.join(ENV['ProgramFiles'] || 'c:\Program Files', '\Mozilla Firefox\firefox.exe')
+    end
+
+    it "return name" do
+      @browser.name.should == "Firefox"
+    end
+
+    it "should visit a given url" do
+      Kernel.expects(:system).with("#{@browser.path} #{@url}")
+      @browser.visit(@url)
+    end
+  end if windows?
+
+  describe "Linux" do
+    it_should_behave_like "Cross OS Firefox"
+
+    it "should have a path" do
+      path = "/usr/bin/#{@browser.name}"
+      Firefox.new(path).path.should == path
+    end
+
+    it "should visit a given url" do
+      Kernel.expects(:system).with("#{@browser.name} #{@url}")
+      @browser.visit(@url)
+    end
+
+    it "return name" do
+      @browser.name.should == "firefox"
+    end
+  end if linux?
+end

data/spec/browsers/internet_explorer_spec.rb

@@ -0,0 +1,50 @@
+require File.join(File.dirname(__FILE__), "/../spec_helper")
+
+describe "InternetExplorer" do
+  before :each do
+    @browser = InternetExplorer.new
+    @url     = "http://localhost"
+  end
+
+  describe "Cross OS Internet Explorer", :shared => true do
+    it "should not be supported" do
+      @browser.should_not be_supported
+    end
+
+    it "return name" do
+      @browser.name.should == "Internet Explorer"
+    end
+  end
+
+  describe "Mac OS X" do
+    it_should_behave_like "Cross OS Internet Explorer"
+  end if macos?
+
+  describe "Windows" do
+    it "return name" do
+      @browser.name.should == "Internet Explorer"
+    end
+
+    it "should be supported" do
+      @browser.should be_supported
+    end
+
+    it "should be runnable" do
+      @browser.should be_runnable
+    end
+
+    it "should setup" do
+      Kernel.expects(:require).with('win32ole')
+      lambda { @browser.setup }.should_not raise_error
+    end
+
+    it "should visit a given url" do
+      Kernel.expects(:system).with("#{@browser.path} #{@url}")
+      @browser.visit(@url)
+    end
+  end if windows?
+
+  describe "Linux" do
+    it_should_behave_like "Cross OS Internet Explorer"
+  end if linux?
+end