taskjuggler 0.0.8 → 0.0.9

data/spec/IntervalList_spec.rb

@@ -0,0 +1,138 @@
+#!/usr/bin/env ruby -w
+# encoding: UTF-8
+#
+# = IntervalList_spec.rb -- The TaskJuggler III Project Management Software
+#
+# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011
+#               by Chris Schlaeger <chris@linux.com>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of version 2 of the GNU General Public License as
+# published by the Free Software Foundation.
+#
+
+require 'rubygems'
+require 'IntervalList'
+
+class TaskJuggler
+
+  describe IntervalList do
+
+    before(:all) do
+      @t0 = TjTime.new('2011-01-01').freeze
+      @t1 = TjTime.new('2011-01-02').freeze
+      @t2 = TjTime.new('2011-01-03').freeze
+      @t3 = TjTime.new('2011-01-04').freeze
+      @t4 = TjTime.new('2011-01-05').freeze
+      @t5 = TjTime.new('2011-01-06').freeze
+      @t6 = TjTime.new('2011-01-07').freeze
+      @i0_1 = Interval.new(@t0, @t1).freeze
+      @i0_2 = Interval.new(@t0, @t2).freeze
+      @i0_3 = Interval.new(@t0, @t3).freeze
+      @i1_2 = Interval.new(@t1, @t2).freeze
+      @i1_3 = Interval.new(@t1, @t3).freeze
+      @i2_3 = Interval.new(@t2, @t3).freeze
+      @i3_4 = Interval.new(@t3, @t4).freeze
+      @i3_6 = Interval.new(@t3, @t6).freeze
+      @i4_5 = Interval.new(@t4, @t5).freeze
+      @i4_6 = Interval.new(@t4, @t6).freeze
+      @i5_6 = Interval.new(@t5, @t6).freeze
+    end
+
+    describe "#<<" do
+
+      before do
+        @il = IntervalList.new
+      end
+
+      it 'should add a new interval' do
+        @il << @i0_1
+        @il.should == [ @i0_1 ]
+      end
+
+      it 'Intervals should be added in ascending order' do
+        @il << @i1_2
+        lambda { @il << @i0_1 }.should raise_error
+      end
+
+      it 'should merge adjecent intervals on add' do
+        @il << @i0_1
+        @il << @i1_2
+        @il.should == [ @i0_2 ]
+      end
+
+      it 'should not merge non-adjecent intervals on add' do
+        @il << @i0_1
+        @il << @i2_3
+        @il.should == [ @i0_1, @i2_3 ]
+      end
+
+      it 'operator concatenation should work' do
+        @il << @i_01 << @i2_3 << @i4_5
+        @il.length.should == 3
+      end
+
+    end
+
+    describe '#&' do
+
+      it 'without overlap should be empty' do
+        il1 = IntervalList.new([ @i0_1 ])
+        il2 = IntervalList.new([ @i1_2 ])
+        (il1 & il2).should be_empty
+        (il2 & il1).should be_empty
+      end
+
+      it 'with empty list should be empty' do
+        il1 = IntervalList.new([ @i0_1 ])
+        il2 = IntervalList.new([ ])
+        (il1 & il2).should be_empty
+        (il2 & il1).should be_empty
+      end
+
+      it 'with self should be self' do
+        il = IntervalList.new([ @i0_1 ])
+        (il & il).should == il
+      end
+
+      it 'with partial overlap should be overlap' do
+        il1 = IntervalList.new([ @i0_2 ])
+        il2 = IntervalList.new([ @i1_3 ])
+        il3 = IntervalList.new([ @i1_2 ])
+        (il1 & il2).should == il3
+        (il2 & il1).should == il3
+      end
+
+      it 'with center inclusion should be inclusion' do
+        il1 = IntervalList.new([ @i0_3, @i3_6 ])
+        il2 = IntervalList.new([ @i1_2, @i4_5 ])
+        (il1 & il2).should == il2
+        (il2 & il1).should == il2
+      end
+
+      it 'with left inclusion should be inclusion' do
+        il1 = IntervalList.new([ @i1_3, @i4_6 ])
+        il2 = IntervalList.new([ @i1_2, @i4_5 ])
+        (il1 & il2).should == il2
+        (il2 & il1).should == il2
+      end
+
+      it 'with right inclusion should be inclusion' do
+        il1 = IntervalList.new([ @i1_3, @i4_6 ])
+        il2 = IntervalList.new([ @i2_3, @i5_6 ])
+        (il1 & il2).should == il2
+        (il2 & il1).should == il2
+      end
+
+      it 'with adjecent intervals should be empty' do
+        il1 = IntervalList.new([ @i0_1, @i2_3 ])
+        il2 = IntervalList.new([ @i1_2, @i3_4 ])
+        (il1 & il2).should be_empty
+        (il2 & il1).should be_empty
+      end
+
+    end
+
+  end
+
+end

data/spec/ProjectBroker_spec.rb

@@ -0,0 +1,133 @@
+#!/usr/bin/env ruby -w
+# encoding: UTF-8
+#
+# = ProjectBroker_spec.rb -- The TaskJuggler III Project Management Software
+#
+# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011
+#               by Chris Schlaeger <chris@linux.com>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of version 2 of the GNU General Public License as
+# published by the Free Software Foundation.
+#
+
+require 'daemon/ProjectBroker'
+
+RSpec.configure do |c|
+  c.filter_run_excluding :ruby => lambda {|version|
+    !(RUBY_VERSION.to_s =~ /^#{version.to_s}/)
+  }
+end
+
+class TaskJuggler
+
+  def TaskJuggler::runBroker(pb, key)
+    pb.authKey = key
+    pb.daemonize = false
+    pb.logStdIO = false
+    pb.port = 0
+    # Don't generate any debug or info messages
+    pb.log.outputLevel = 1
+    pb.log.logLevel = 1
+    t = Thread.new { pb.start }
+    yield
+    pb.stop
+    t.join
+  end
+
+  describe ProjectBroker, :ruby => 1.9  do
+
+    it "can be started and stopped" do
+      @pb = ProjectBroker.new
+      @authKey = 'secret'
+      TaskJuggler::runBroker(@pb, @authKey) do
+        true
+      end
+    end
+
+  end
+
+  describe ProjectBrokerIface, :ruby => 1.9 do
+
+    before do
+      @pb = ProjectBroker.new
+      @pbi = ProjectBrokerIface.new(@pb)
+      @authKey = 'secret'
+    end
+
+    describe "apiVersion" do
+
+      it "should fail with bad authentication key" do
+        TaskJuggler::runBroker(@pb, @authKey) do
+          @pbi.apiVersion('bad key', 1).should == 0
+        end
+      end
+
+      it "should pass with correct authentication key" do
+        TaskJuggler::runBroker(@pb, @authKey) do
+          @pbi.apiVersion(@authKey, 1).should == 1
+        end
+      end
+
+      it "should fail with wrong API version", :ruby => 1.9 do
+        TaskJuggler::runBroker(@pb, @authKey) do
+          @pbi.apiVersion(@authKey, 0).should == -1
+        end
+      end
+
+    end
+
+    describe "command" do
+
+      it "should fail with bad authentication key" do
+        TaskJuggler::runBroker(@pb, @authKey) do
+          @pbi.command('bad key', :status, []).should be_false
+        end
+      end
+
+      it "should support 'status'" do
+        TaskJuggler::runBroker(@pb, @authKey) do
+          @pbi.command(@authKey, :status, []).should match \
+            /.*No projects registered.*/
+        end
+      end
+
+      it "should support 'terminate'" do
+        TaskJuggler::runBroker(@pb, @authKey) do
+          @pbi.command(@authKey, :stop, []).should be_nil
+        end
+      end
+
+      it "should support 'add' and 'remove'" do
+        TaskJuggler::runBroker(@pb, @authKey) do
+          stdIn = StringIO.new("project foo 'foo' 2011-01-04 +1w task 'foo'")
+          stdOut = StringIO.new
+          stdErr = StringIO.new
+          args = [ Dir.getwd, [ '.' ], stdOut, stdErr, stdIn, true ]
+          @pbi.command(@authKey, :addProject, args).should be_true
+          stdErr.string.should be_empty
+
+          # Can't remove non-existing project bar
+          @pbi.command(@authKey, :removeProject, 'bar').should be_false
+          @pbi.command(@authKey, :removeProject, 'foo').should be_true
+          # Can't remove foo twice
+          @pbi.command(@authKey, :removeProject, 'foo').should be_false
+        end
+      end
+
+    end
+
+    describe "updateState" do
+
+      it "should fail with bad authentication key" do
+        TaskJuggler::runBroker(@pb, @authKey) do
+          @pbi.updateState('bad key', 'foo', 'foo', :status, true).should \
+            be_false
+        end
+      end
+
+    end
+
+  end
+
+end

data/tasks/changelog.rake

@@ -2,35 +2,52 @@ require 'time'
 
 desc 'update changelog'
 task :CHANGELOG do
+  # Get list of release tags from Git repository
   releases = `git tag`.split("\n").map { |r| r.chomp }
 
-  File.open('CHANGELOG', 'w+') do |changelog|
-    prevRelease = nil
-    releases.each do |release|
-      version = /\d\.\d\.\d/.match(release)
-      interval = prevRelease ? "#{prevRelease}..#{release}" : release
-      prevRelease = release
+  # Now we get the commit entries for each release
+  sections = []
+  prevRelease = nil
+  releases.each do |release|
+    # This buffer holds the final text for the release section. It will
+    # contain the commit messages in RDoc format.
+    text = ''
+    # We only support release tags in the form X.X.X
+    version = /\d\.\d\.\d/.match(release)
+    # Construct a Git range.
+    interval = prevRelease ? "#{prevRelease}..#{release}" : release
+    prevRelease = release
+
+    # Get the date of the release
+    date = Time.parse(/Date: (.*)/.match(`git show #{release}`)[1]).utc
+    date = date.strftime("%Y-%m-%d")
+    # We use RDOC markup syntax to generate a title
+    text += "= Release #{version} (#{date})\n\n"
+
+    # Use -z option for git-log to get 0 bytes as separators.
+    `git log -z #{interval}`.split("\0").each do |commit|
+      # We ignore merges.
+      next if commit =~ /^Merge: \d*/
 
-      date = Time.parse(/Date: (.*)/.match(`git show #{release}`)[1]).utc
-      date = date.strftime("%Y-%m-%d")
-      # We use RDOC markup syntax to generate a title
-      changelog.puts "= Release #{version} (#{date})\n"
+      ref, author, time, _, message = commit.split("\n", 5)
+      ref = ref[/commit ([0-9a-f]+)/, 1]
+      author = author[/Author: (.*)/, 1].strip
+      time = Time.parse(time[/Date: (.*)/, 1]).utc
+      # Eleminate git-svn-id: lines
+      message.gsub!(/git-svn-id: .*\n/, '')
+      # Eliminate Signed-off-by: lines
+      message.gsub!(/Signed-off-by: .*\n/, '')
+      message.strip!
 
-      `git log -z #{interval}`.split("\0").each do |commit|
-        next if commit =~ /^Merge: \d*/
-        ref, author, time, _, message = commit.split("\n", 5)
-        ref = ref[/commit ([0-9a-f]+)/, 1]
-        author = author[/Author: (.*)/, 1].strip
-        time = Time.parse(time[/Date: (.*)/, 1]).utc
-        # Eleminate git-svn-id: lines
-        message.gsub!(/git-svn-id: .*\n/, '')
-        # Eliminate Signed-off-by: lines
-        message.gsub!(/Signed-off-by: .*\n/, '')
-        message.strip!
+      text += "  * #{message}\n"
+    end
+    sections << text
+  end
 
-        changelog.puts '', "  * #{message}"
-      end
-      changelog.puts
+  File.open('CHANGELOG', 'w+') do |changelog|
+    # List releases from last to first.
+    sections.reverse.each do |section|
+      changelog.puts section + "\n"
     end
   end
 end

data/tasks/csts.rake

@@ -19,6 +19,7 @@ RAKE_FILES      = FileList[RAKEFILE, PRJ_FILE, GEM_SPEC_FILE, SETUP_FILE, "#{RAK
 BIN_FILES       = FileList["#{BIN_DIR}/**/*"]
 LIB_FILES       = FileList["#{LIB_DIR}/**/*.rb"]
 TEST_FILES      = FileList["#{TEST_DIR}/**/test_*.rb"]
+SPEC_PATTERN    = 'spec/**/*_spec.rb'
 RDOC_FILES      = FileList[README,LICENSE,CHANGELOG]
 
 # DIST FILES

data/tasks/gem.rake

@@ -12,6 +12,7 @@ execs = Dir.glob('./bin/*') + Dir.glob('./**/run') +
 
 task :release => [:clobber] do
     puts "Preparing release of #{PROJECT_NAME} version #{PROJECT_VERSION}"
+    Rake::Task[:spec].invoke
     Rake::Task[:test].invoke
     Rake::Task[:rdoc].invoke
     # Make sure all files and directories are readable.

data/tasks/rcov.rake

@@ -5,7 +5,7 @@ Rcov::RcovTask.new do |t|
     t.output_dir = RCOV_DIR
     t.verbose = true
 if RUBY_1_9
-    t.ruby_opts = [ "-r tasks/rexml_fix_19" ]
+    t.ruby_opts = [ "-I . -r tasks/rexml_fix_19" ]
 else
     t.ruby_opts = [ "-r tasks/rexml_fix" ]
 end

data/tasks/spec.rake

@@ -0,0 +1,7 @@
+require 'rake'
+require 'rspec/core/rake_task'
+
+desc 'Run all RSpec tests in the spec directory'
+RSpec::Core::RakeTask.new(:spec) do |t|
+  t.pattern = SPEC_PATTERN
+end

data/tasks/test.rake

@@ -5,6 +5,7 @@ require 'rake/testtask'
 REQUIRE_PATHS.unshift File.join(File.dirname(__FILE__), '..')
 
 # TEST TASK
+desc 'Run all unit tests in the test directory'
 test_task_name = HAVE_EXT ? :test_ext : :test
 Rake::TestTask.new( test_task_name ) do |t|
     t.libs = REQUIRE_PATHS

data/test/MessageChecker.rb

@@ -3,7 +3,8 @@
 #
 # = MessageChecker.rb -- The TaskJuggler III Project Management Software
 #
-# Copyright (c) 2006, 2007, 2008, 2009, 2010 by Chris Schlaeger <cs@kde.org>
+# Copyright (c) 2006, 2007, 2008, 2009, 2010, 2011
+#               by Chris Schlaeger <chris@linux.com>
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of version 2 of the GNU General Public License as

data/test/TestSuite/CSV-Reports/niku.tjp

@@ -0,0 +1,70 @@
+project "Niku Test" 2010-02-01 +3m {
+  extend task {
+    text ClarityPID "Clarity PID"
+    text ClarityPName "Clarity Project Name"
+  }
+  extend resource {
+    text ClarityRID "Clarity Resource ID"
+  }
+}
+
+# The ClarityPID and ClarityPName must be always kept in sync. The
+# easiest way to achieve this, is by using such macros.
+macro PID_p1 [ ClarityPID "p1" ClarityPName "Project 1" ]
+macro PID_p2 [ ClarityPID "p2" ClarityPName "Project 2" ]
+macro PID_p3 [ ClarityPID "p3" ClarityPName "Project 3" ]
+
+macro Resource [
+  resource ${1} "${1}" {
+    ClarityRID "${1}"
+  }
+]
+
+${Resource "r1"}
+${Resource "r2"}
+supplement resource r2 {
+  vacation 2010-02-15 +1w
+}
+${Resource "r3"}
+
+task "T1" {
+  allocate r1
+  effort 5w
+  ${PID_p1}
+}
+
+task t2 "T2" {
+  allocate r2
+  effort 10d
+  ${PID_p1}
+}
+
+task "T3" {
+  depends !t2
+  allocate r2
+  effort 10d
+  ${PID_p2}
+}
+
+task "T4" {
+  allocate r3
+  effort 3w
+  ${PID_p2}
+}
+
+nikureport "." {
+  formats csv
+  headline "This is a test report"
+  period 2010-02-01-8:00 - %{2010-03-01 -6h}
+  timeoff "vacations" "Vacation time"
+  # Depending on your Clarity configuration, you may need to add this
+  # CustomInformation section in the report. It's raw XML code and
+  # will be embedded into each <Project> section of the resulting
+  # report. This is just an example and it must be customized to work!
+  title -8<-
+   <CustomInformation>
+    <ColumnValue name="foo_state">foo_active</ColumnValue>
+    <ColumnValue name="partition_code">foo_eng</ColumnValue>
+   </CustomInformation>
+  ->8-
+}