motiro 0.6.3

data/test/lib/configuration.rb

@@ -0,0 +1,53 @@
+require 'yaml'
+
+class Configuration
+
+    FILE_NAME = File.expand_path(File.dirname(__FILE__) +
+                             '/../../config/motiro.yml')
+
+    def initialize(repo_type='subversion')
+        @repo_type = repo_type
+        @original_contents = File.open(FILE_NAME).read
+        @confs = YAML.load @original_contents
+        @confs.delete 'subversion' if repo_type != 'subversion'
+    end
+
+    def update_interval=(new_interval)
+        reconfigure('update_interval', new_interval)
+    end
+    
+    def repo=(new_url)
+        reconfigure("#{@repo_type}/repo", new_url)
+    end
+    
+    def go_live
+        self.update_interval = 0
+    end
+    
+    def go_cached
+        self.update_interval = 10
+    end
+    
+    def revert
+        file = File.open(FILE_NAME, 'w')
+        file << @original_contents
+        file.close
+    end
+    
+private
+
+    def reconfigure(key, value)
+        dst_hash = @confs
+        keys = key.split('/')
+        last_key = keys.pop
+        keys.each do |k|
+          dst_hash = dst_hash[k] = {}
+        end
+        
+        dst_hash[last_key] = value
+        file = File.open(FILE_NAME, 'w')
+        YAML.dump(@confs, file)
+        file.close
+    end
+    
+end

data/test/lib/darcs_excerpts.rb

@@ -0,0 +1,181 @@
+#  Motiro - A project tracking tool
+#  Copyright (C) 2006-2007  Thiago Arrais
+#  
+#  This program is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License, or
+#  any later version.
+#  
+#  This program is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#  
+#  You should have received a copy of the GNU General Public License
+#  along with this program; if not, write to the Free Software
+#  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+
+  P1 = <<END
+<changelog>
+<patch author='thiago.arrais@gmail.com' date='20060717200939' local_date='Mon Jul 17 17:09:39 BRT 2006' inverted='False' hash='20060717200939-49d33-c04fbb63892ae64cd96d1ad8f1ad2dd0a6e8e7da.gz'>
+	<name>Some refactoring after the mess</name>
+</patch>
+</changelog>
+END
+
+  P2 = <<END
+<changelog>
+<patch author='thiago.arrais@gmail.com' date='20060813140540' local_date='Sun Aug 13 11:05:40 BRT 2006' inverted='False' hash='20060813140540-49d33-a640b3999077a8be03d81825ad7d40108c827250.gz'>
+        <name>Cheking for ghc --make output</name>
+        <comment>
+Still need testing on Windows. Much probably there are file system and/or
+linebreaking issues.</comment>
+</patch>
+</changelog>
+END
+
+  P3 = <<END
+<changelog>
+<patch author='thiago.arrais@gmail.com' date='20060822135332' local_date='Tue Aug 22 10:53:32 Hora oficial do Brasil 2006' inverted='False' hash='20060822135332-47d7b-f311f9b4f4f2d329d8de62efaa09c5d20cf08f8f.gz'>
+	<name> </name>
+</patch>
+</changelog>
+END
+
+  P4 = <<END
+<changelog>
+<patch author='thiago.arrais@gmail.com' date='20060717200939' local_date='Mon Jul 17 17:09:39 BRT 2006' inverted='False' hash='20060717200939-49d33-c04fbb63892ae64cd96d1ad8f1ad2dd0a6e8e7da.gz'>
+	<name>Some refactoring after the mess</name>
+</patch>
+<patch author='thiago.arrais@gmail.com' date='20060813140540' local_date='Sun Aug 13 11:05:40 BRT 2006' inverted='False' hash='20060813140540-49d33-a640b3999077a8be03d81825ad7d40108c827250.gz'>
+        <name>Cheking for ghc --make output</name>
+        <comment>
+Still need testing on Windows. Much probably there are file system and/or
+linebreaking issues.</comment>
+</patch>
+</changelog>
+END
+
+  P5 = <<END
+<changelog>
+<patch author='thiago.arrais@gmail.com' date='20061120200104' local_date='Mon Nov 20 17:01:04 BRT 2006' inverted='False' hash='20061120200104-49d33-41e1ddac59f9a3cfa80c59492a686ab69ee5cd92.gz'>
+	<name>Activated restore defaults button for preference page</name>
+</patch>
+</changelog>
+END
+  
+  P5DIFF = <<END
+Mon Nov 20 17:01:04 BRT 2006  thiago.arrais@gmail.com
+  * Activated restore defaults button for preference page
+diff -rN -u old-eclipsefp/net.sf.eclipsefp.haskell.ui/src/net/sf/eclipsefp/haskell/ui/preferences/BuildConsolePP.java new-eclipsefp/net.sf.eclipsefp.haskell.ui/src/net/sf/eclipsefp/haskell/ui/preferences/BuildConsolePP.java
+--- old-eclipsefp/net.sf.eclipsefp.haskell.ui/src/net/sf/eclipsefp/haskell/ui/preferences/BuildConsolePP.java	2006-12-12 09:38:40.000000000 -0300
++++ new-eclipsefp/net.sf.eclipsefp.haskell.ui/src/net/sf/eclipsefp/haskell/ui/preferences/BuildConsolePP.java	2006-12-12 09:38:40.000000000 -0300
+@@ -56,18 +56,36 @@
+ 		fChkCleanConsole = new Button(composite, SWT.CHECK);
+ 		fChkCleanConsole.setText("Always clear console before building");
+ 		
++		createListeners();
++		fillValuesInControls();
++		return composite;
++	}
++
++	private void createListeners() {
+ 		fChkCleanConsole.addSelectionListener(new SelectionListener() {
+ 
+-			public void widgetDefaultSelected(SelectionEvent e) {}
++			public void widgetDefaultSelected(SelectionEvent e) {
++				//ignore event
++			}
+ 
+ 			public void widgetSelected(SelectionEvent e) {
+ 				fStore.setValue(CLEAR_BUILD_CONSOLE, fChkCleanConsole.getSelection());
+ 			}
+ 			
+ 		});
+-		
++	}
++
++	private void fillValuesInControls() {
+ 		fChkCleanConsole.setSelection(fStore.getBoolean(CLEAR_BUILD_CONSOLE));
+-		return composite;
++	}
++
++	
++	@Override
++	protected void performDefaults() {
++		super.performDefaults();
++		
++		fStore.setToDefault(CLEAR_BUILD_CONSOLE);
++		fillValuesInControls();
+ 	}
+ 
+ 	@Override
+
+END
+  
+  P6 = <<END
+<changelog>
+<patch author='thiago.arrais@gmail.com' date='20061120181253' local_date='Mon Nov 20 15:12:53 BRT 2006' inverted='False' hash='20061120181253-49d33-fd91e402f9667bc07e0e329831afcbde49b4fae8.gz'>
+	<name>Started build console preference page with clean before build option</name>
+</patch>
+</changelog>
+END
+
+  P6DIFF = <<END
+Mon Nov 20 15:12:53 BRT 2006  thiago.arrais@gmail.com
+  * Started build console preference page with clean before build option
+diff -rN -u old-eclipsefp/net.sf.eclipsefp.common.core/src/net/sf/eclipsefp/common/core/util/MultiplexedWriter.java new-eclipsefp/net.sf.eclipsefp.common.core/src/net/sf/eclipsefp/common/core/util/MultiplexedWriter.java
+--- old-eclipsefp/net.sf.eclipsefp.common.core/src/net/sf/eclipsefp/common/core/util/MultiplexedWriter.java	2006-12-12 11:04:19.000000000 -0300
++++ new-eclipsefp/net.sf.eclipsefp.common.core/src/net/sf/eclipsefp/common/core/util/MultiplexedWriter.java	2006-12-12 11:04:19.000000000 -0300
+@@ -1,3 +1,14 @@
++/*******************************************************************************
++ * Copyright (c) 2005, 2006 Thiago Arrais and others.
++ *
++ * All rights reserved. This program and the accompanying materials
++ * are made available under the terms of the Eclipse Public License v1.0
++ * which accompanies this distribution, and is available at
++ * http://www.eclipse.org/legal/epl-v10.html
++ *
++ * Contributors:
++ *     Thiago Arrais - Initial API and implementation
++ *******************************************************************************/
+ package net.sf.eclipsefp.common.core.util;
+ 
+ import java.io.IOException;
+@@ -51,4 +62,8 @@
+ 		}
+ 	}
+ 
++	public void removeOutput(Writer out) {
++		fOutputs.remove(out);
++	}
++
+ }
+diff -rN -u old-eclipsefp/net.sf.eclipsefp.common.core.test/src/net/sf/eclipsefp/common/core/test/util/MultiplexedWriterTest.java new-eclipsefp/net.sf.eclipsefp.common.core.test/src/net/sf/eclipsefp/common/core/test/util/MultiplexedWriterTest.java
+--- old-eclipsefp/net.sf.eclipsefp.common.core.test/src/net/sf/eclipsefp/common/core/test/util/MultiplexedWriterTest.java	2006-12-12 11:04:19.000000000 -0300
++++ new-eclipsefp/net.sf.eclipsefp.common.core.test/src/net/sf/eclipsefp/common/core/test/util/MultiplexedWriterTest.java	2006-12-12 11:04:19.000000000 -0300
+@@ -76,6 +76,17 @@
+ 		multiplexer.close();
+ 		assertTrue(out.closed);
+ 	}
++	
++	public void testDoNotMultiplexToRemovedOutput() throws IOException {
++		final StringWriter output = new StringWriter();
++		MultiplexedWriter multiplexer = new MultiplexedWriter();
++		
++		multiplexer.addOutput(output);
++		multiplexer.removeOutput(output);
++		multiplexer.write("This should not be outputed to the removed writer");
++
++		assertEquals(0, output.toString().length());
++	}
+ 
+ 	private void multiplexTo(Writer... outputs) throws InterruptedException, IOException {
+ 		Writer multiplexer = new MultiplexedWriter(outputs);
+
+END
+
+  P_EMPTY = <<END
+<changelog>
+</changelog>
+END

data/test/lib/darcs_repo.rb

@@ -0,0 +1,77 @@
+#  Motiro - A project tracking tool
+#  Copyright (C) 2006-2007  Thiago Arrais
+#  
+#  This program is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License, or
+#  any later version.
+#  
+#  This program is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
+#  You should have received a copy of the GNU General Public License
+#  along with this program; if not, write to the Free Software
+#  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+
+require 'fileutils'
+require 'repoutils'
+require 'webserver'
+
+include FileUtils
+
+class DarcsRepository
+
+  attr_reader :dir, :url, :author
+  
+  def initialize(options=:http)
+    @url = @dir = find_root_dir('darcs')
+    if (:http == options)
+      @server = WebServer.create_http_server_on(self.dir)
+      @url = 'http://localhost:' + @server[:Port].to_s
+    end
+    @author = 'alceu.valenca@olinda.pe.br'
+    mkdir_p(self.dir)
+    run_on_repo { `darcs init` }
+  end
+  
+  def add_file(name, contents)
+    file_path = "#{self.dir}/#{name}"
+    
+    File.open(file_path, 'w') do |file|
+      file << contents
+    end
+    
+    run_on_repo { `darcs add #{name}` }
+  end
+  
+  def record(patch_text)
+    temp_file = TEMP_DIR + '/darcs-msg.motiro'
+    File.open(temp_file, 'w') do |file|
+      file << patch_text
+    end
+
+    run_on_repo { `darcs record -a --logfile="#{temp_file}" --author="#{self.author}" 2>&1` }
+  end
+  
+  def destroy
+    @server.shutdown if !@server.nil?
+    rm_rf(self.dir)
+  end
+  
+private
+
+  def run_on_repo
+    previous = Dir.pwd
+    begin
+      Dir.chdir(self.dir)
+      yield
+    ensure
+      Dir.chdir(previous)
+    end
+  end
+
+  include RepoUtils
+
+end

data/test/lib/live_mode_test.rb

@@ -0,0 +1,51 @@
+#  Motiro - A project tracking tool
+#  Copyright (C) 2006-2007  Thiago Arrais
+#  
+#  This program is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License, or
+#  any later version.
+#  
+#  This program is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#  
+#  You should have received a copy of the GNU General Public License
+#  along with this program; if not, write to the Free Software
+#  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+
+require 'configuration'
+require 'local_svn'
+
+module LiveModeTestCase
+
+  def setup
+    super
+    @repo = self.create_repository
+    @config = Configuration.new(self.repo_type)
+    @config.repo = @repo.url
+    @config.go_live
+    do_setup
+  end
+
+  def create_repository
+    LocalSubversionRepository.new
+  end
+  
+  def repo_type
+    'subversion'
+  end
+
+  def do_setup; end
+    
+  def teardown
+    super
+    @repo.destroy
+    @config.revert
+    do_teardown
+  end
+
+  def do_teardown; end
+
+end

data/test/lib/local_svn.rb

@@ -0,0 +1,157 @@
+require 'fileutils'
+require 'netutils'
+require 'repoutils'
+
+include FileUtils
+
+class LocalSubversionRepository
+  
+  attr_reader :url
+  attr_reader :wc_dir
+  attr_reader :username
+  
+  def initialize
+    @username = 'motiro'
+    @password = 'motiro-pass'
+    
+    @root_dir = find_root_dir
+    repo_dir = create_repo(@root_dir)
+    authorize_anon_read(repo_dir, @username, @password)
+    @url = start_server(repo_dir)
+    @wc_dir = create_working_copy(@root_dir, @url)        
+    @valid = true
+  end
+  
+  def destroy
+    if @valid
+      @valid = false
+      kill_server
+      rm_rf(@root_dir)
+    end
+  end
+  
+  def mkdir(dirname, comment=nil)
+    if comment.nil? then
+      svn_command("mkdir #{self.wc_dir}/#{dirname}")
+    else
+      svn_command("mkdir #{self.url}/#{dirname}", comment)
+    end
+  end
+  
+  def add_file(filename, contents)
+    put_file(filename, contents)
+  end
+  
+  def put_file(filename, contents)
+    absolute_file = "#{self.wc_dir}/#{filename}"
+    existed = FileTest.exists? absolute_file
+    
+    file = File.open(absolute_file, 'w')
+    file << contents
+    file.close
+    if !existed
+      svn_command("add #{absolute_file}")
+    end
+  end
+  
+  def commit(comment)
+    svn_command("commit #{self.wc_dir}", comment)
+  end
+  
+  def copy(src, dest, comment)
+    svn_command("copy #{self.url}/#{src} #{self.url}/#{dest}", comment)
+  end
+  
+  def move(src, dest, comment)
+    svn_command("move #{self.url}/#{src} #{self.url}/#{dest}", comment)
+  end
+  
+  private
+  
+  include RepoUtils
+  
+  def svn_command(command, comment=nil)
+    line = "svn #{command}"
+    unless comment.nil?
+      line += " --username #{@username} --password #{@password} -m \"#{comment}\""
+    end
+    `#{line}`
+  end
+  
+  def create_repo(root_dir)
+    repo_dir =  "#{root_dir}/repo"
+    
+    mkdir_p(repo_dir) 
+    
+    `svnadmin create #{repo_dir}`
+    
+    return repo_dir
+  end
+  
+  def create_working_copy(root_dir, repo_url)
+    wc_dir = find_free_dir_under(root_dir, 'wc')
+    svn_command("checkout #{repo_url} #{wc_dir}")
+    return wc_dir
+  end
+  
+  def start_server(repo_dir)
+    port = NetUtils.find_available_port
+    
+    @server_pid = start_process(
+      "svnserve -d --foreground --listen-port #{port} -r #{repo_dir}")
+    
+    sleep 0.5 # give some time for the server to boot
+    
+    return "svn://localhost:#{port}"
+  end
+  
+  def kill_server
+    Process.kill('SIGKILL', @server_pid)
+  end
+  
+  def authorize_anon_read(repo_dir, username, password)
+    svnserve_file = File.open(repo_dir + '/conf/svnserve.conf', 'w')
+    svnserve_file << "[general]\n" <<
+                         "anon-access = read\n" <<
+                         "auth-access = write\n" <<
+                         "password-db = passwd\n"
+    svnserve_file.close
+    
+    passwd_file = File.open(repo_dir + '/conf/passwd', 'w')
+    passwd_file << "[users]\n" <<
+                       "#{username} = #{password}\n"
+    passwd_file.close
+  end
+  
+  @@fork_ok = true
+
+  def start_process(cmd)
+  # function inspired by Kirk Haines' code, published on ruby-talk group
+  # original code available at
+  # http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-talk/211793
+    begin
+      raise NotImplementedError unless @@fork_ok
+      pid = fork do
+        exec(cmd)
+      end
+    rescue NotImplementedError
+      @@fork_ok = false
+      begin
+        require 'rubygems'
+      rescue Exception
+      end
+      
+      begin
+        require 'win32/process'
+      rescue LoadError
+        raise "Please install win32-process.\n'gem install win32-process' or http://rubyforge.org/projects/win32utils"
+      end
+      
+      pid = Process.create(:app_name => cmd).process_id
+      
+    end
+    
+    return pid
+  end
+
+end

data/test/lib/netutils.rb

@@ -0,0 +1,42 @@
+#  Motiro - A project tracking tool
+#  Copyright (C) 2006-2007  Thiago Arrais
+#  
+#  This program is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License, or
+#  any later version.
+#  
+#  This program is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#  
+#  You should have received a copy of the GNU General Public License
+#  along with this program; if not, write to the Free Software
+#  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+
+require 'socket'
+
+# Utilities for local repositories
+module NetUtils
+
+  def self.find_available_port
+    port = 36906
+    while(try_port(port))
+      port += 1
+    end
+        
+    return port
+  end
+    
+  def self.try_port(port)
+    begin
+      t = TCPSocket.new('localhost', port)
+      t.close
+      return true
+    rescue
+      return false
+    end
+  end
+  
+end

data/test/lib/platform_thread.rb

@@ -0,0 +1,62 @@
+#  Motiro - A project tracking tool
+#  Copyright (C) 2006-2007  Thiago Arrais
+#  
+#  This program is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License, or
+#  any later version.
+#  
+#  This program is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#  
+#  You should have received a copy of the GNU General Public License
+#  along with this program; if not, write to the Free Software
+#  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+
+require 'rubygems'
+require 'platform'
+
+class PlatformThread
+
+  def initialize(platform=self, process=self)
+    @platform, @process = platform, process
+    
+    if :win32 == platform.OS
+      @pid = process.fork_win32_process { yield }
+    else
+      @thread = process.new_thread { yield }
+    end
+  end
+  
+  def kill
+    if :win32 == @platform.OS
+      @process.kill_win32_process(9, @pid)
+    else
+      @thread.kill
+    end
+  end
+  
+  def OS
+    Platform::OS
+  end
+
+  def fork_win32_process
+    require 'win32/process'
+    Process.fork do
+      yield
+    end
+  end
+  
+  def kill_win32_process(signal, pid)
+    require 'win32/process'
+    Process.kill(signal, pid)
+  end
+  
+  def new_thread
+    Thread.new { yield }
+  end
+
+end
+

data/test/lib/repoutils.rb

@@ -0,0 +1,23 @@
+TEMP_DIR = File.expand_path(File.dirname(__FILE__) + '/../../tmp') unless defined? TEMP_DIR
+
+# Utilities for local repositories
+module RepoUtils
+
+  def find_root_dir(prefix='svn')
+    find_free_dir_under(TEMP_DIR, prefix)
+  end
+
+  def find_free_dir_under(parent_dir, prefix)
+    contents = Dir.entries(parent_dir)
+    suffix = ''
+    if (contents.include?(prefix))
+      suffix = 1
+      while(contents.include?(prefix + suffix.to_s))
+        suffix += 1
+      end
+    end
+
+    parent_dir + '/' + prefix + suffix.to_s
+  end
+
+end

data/test/lib/selenium_extensions.rb

@@ -0,0 +1,32 @@
+#  Motiro - A project tracking tool
+#  Copyright (C) 2006-2007  Thiago Arrais
+#  
+#  This program is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License, or
+#  any later version.
+#  
+#  This program is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#  
+#  You should have received a copy of the GNU General Public License
+#  along with this program; if not, write to the Free Software
+#  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+
+module SeleniumExtensions
+
+  def wait_for_visible(elem_id)
+    wait_for_condition(visible(elem_id), 2000)
+  end
+
+  def wait_for_not_visible(elem_id)
+    wait_for_condition("! " + visible(elem_id), 2000)
+  end
+  
+  def visible(elem_id)
+    "selenium.browserbot.getCurrentWindow().document.getElementById('#{elem_id}').style.display != 'none'"  
+  end
+
+end