From 7f9211d36b53589c0f4f5425316b1c091e9320be Mon Sep 17 00:00:00 2001
From: Alexey Verkhovsky <averkhov@thoughtworks.com>
Date: Fri, 6 May 2005 02:40:52 +0000
Subject: [PATCH] Beginings of a Watir test suite

---
 test/watir/e2e.rb | 113 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 113 insertions(+)
 create mode 100644 test/watir/e2e.rb

diff --git a/test/watir/e2e.rb b/test/watir/e2e.rb
new file mode 100644
index 00000000..af8ee4a4
--- /dev/null
+++ b/test/watir/e2e.rb
@@ -0,0 +1,113 @@
+require 'watir'
+require 'fileutils'
+require 'test/unit'
+
+INSTIKI_ROOT = File.expand_path(File.dirname(__FILE__) + "/../..")
+require(File.expand_path(File.dirname(__FILE__) + "/../../config/environment"))
+
+INSTIKI_PORT = 2501
+HOME = "http://localhost:#{INSTIKI_PORT}"
+
+class E2EInstikiTest < Test::Unit::TestCase
+
+  def startup
+    
+    createProcess = Win32API.new('kernel32.dll', 'CreateProcess', 'pplllllppp', 'L')
+    startupinfo = [ 68 ].pack('lx64')
+    @@instiki = [ 0,0,0,0 ].pack('llll')
+    createProcess.call(nil, 
+        "ruby #{RAILS_ROOT}/instiki.rb --storage #{prepare_storage} " +
+        "    --port #{INSTIKI_PORT} --environment development", 
+        0, 0, 1, 0, 0, "c:\\", startupinfo, @@instiki)
+
+    sleep 5
+    @@ie = Watir::IE.start("http://localhost:2501")
+
+    setup_web
+    setup_home_page
+    
+    @@ie
+  end
+  
+  def self.shutdown  
+
+    processid = @@instiki.unpack('llll')[2]
+    
+    openProcess = Win32API.new('kernel32.dll', 'OpenProcess', 'lil', 'l')
+    handle = openProcess.call(1, 0, processid)
+    
+    terminateProcess = Win32API.new('kernel32.dll', 'TerminateProcess', 'll', 'L')
+    terminateProcess.call(handle, 0)
+
+    # todo this doesn't actually shut down anything
+    @@ie.close if defined? @@ie
+  end
+  
+  def ie
+    if defined? @@ie
+      @@ie
+    else
+      startup
+    end
+  end
+
+  def setup
+    ie.goto(HOME)
+    ie
+  end
+
+  def test_home_page_contents
+    assert_equal HOME + '/wiki/list', ie.link(:text, 'All Pages').href
+    assert_equal HOME + '/wiki/recently_revised', ie.link(:text, 'Recently Revised').href
+  end
+
+  private
+  
+  def prepare_storage
+    storage_path = INSTIKI_ROOT + '/storage/e2e'
+    FileUtils.rm_rf(storage_path) if File.exists? storage_path
+    FileUtils.mkdir_p(storage_path)
+    storage_path
+  end
+  
+  def setup_web
+    assert_equal 'Wiki', ie.textField(:name, 'web_name').value
+    assert_equal 'wiki', ie.textField(:name, 'web_address').value
+    assert_equal '', ie.textField(:name, 'password').value
+    assert_equal '', ie.textField(:name, 'password_check').value
+    
+    ie.textField(:name, 'password').set('123')
+    ie.textField(:name, 'password_check').set('123')
+    ie.button(:value, 'Setup').click
+    assert_equal HOME + '/wiki/new/HomePage', ie.url
+  end
+
+  def setup_home_page
+    ie.textField(:name, 'content').set('Homepage of a test wiki')
+    ie.button(:value, 'Submit').click
+    assert_equal HOME + '/wiki/show/HomePage', ie.url
+  end
+
+  def bp
+    require 'breakpoint'
+    breakpoint
+  end
+
+end
+
+begin
+  require 'test/unit/ui/console/testrunner'
+  Test::Unit::UI::Console::TestRunner.new(E2EInstikiTest.suite).start
+rescue => e
+    $stderr.puts 'Unhandled error during test execution'
+    $stderr.puts e.message
+    $stderr.puts e.backtrace
+ensure 
+  begin 
+    E2EInstikiTest::shutdown
+  rescue => e
+    $stderr.puts 'Error during shutdown'
+    $stderr.puts e.message
+    $stderr.puts e.backtrace
+  end
+end