taskjuggler 0.0.2

data/test/test_Scheduler.rb

@@ -0,0 +1,42 @@
+#!/usr/bin/env ruby -w
+# encoding: UTF-8
+#
+# = test_Scheduler.rb -- The TaskJuggler III Project Management Software
+#
+# Copyright (c) 2006, 2007, 2008, 2009 by Chris Schlaeger <cs@kde.org>
+#
+# 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.
+#
+
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib') if __FILE__ == $0
+
+require 'test/unit'
+require 'TaskJuggler'
+Path = File.exists?('test') ? 'test/' : '' unless defined?(Path)
+require Path + 'MessageChecker'
+
+class TestScheduler < Test::Unit::TestCase
+
+  include MessageChecker
+
+  def test_SchedulerErrors
+    Dir.glob(Path + 'TestSuite/Scheduler/Errors/*.tjp').each do |f|
+      tj = TaskJuggler.new(false)
+      assert(tj.parse([ f ]), "Parser failed for #{f}")
+      tj.schedule
+      checkMessages(tj, f)
+    end
+  end
+
+  def test_SchedulerCorrect
+    Dir.glob(Path + 'TestSuite/Scheduler/Correct/*.tjp').each do |f|
+      tj = TaskJuggler.new(true)
+      assert(tj.parse([ f ]), "Parser failed for ${f}")
+      assert(tj.schedule, "Scheduler failed for #{f}")
+      assert(tj.messageHandler.messages.empty?, "Unexpected error in #{f}")
+    end
+  end
+
+end

data/test/test_ShiftAssignments.rb

@@ -0,0 +1,77 @@
+#!/usr/bin/env ruby -w
+# encoding: UTF-8
+#
+# = test_PropertySet.rb -- The TaskJuggler III Project Management Software
+#
+# Copyright (c) 2006, 2007, 2008, 2009 by Chris Schlaeger <cs@kde.org>
+#
+# 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.
+#
+
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib') if __FILE__ == $0
+
+require 'test/unit'
+require 'Project'
+
+class TestPropertySet < Test::Unit::TestCase
+
+  def setup
+    @p = TaskJuggler::Project.new('p', 'Project', '1.0',
+                                  TaskJuggler::MessageHandler.new(true))
+    @p['start'] = TaskJuggler::TjTime.new('2008-07-29')
+    @p['end'] = TaskJuggler::TjTime.new('2008-08-31')
+    @s1 = TaskJuggler::Shift.new(@p, 's1', "Shift2", nil).scenario(0)
+    @s2 = TaskJuggler::Shift.new(@p, 's2', "Shift1", nil).scenario(0)
+  end
+
+  def teardown
+    @p = @s1 = @s2 = nil
+    TaskJuggler::ShiftAssignments.sbClear
+  end
+
+  def test_finalizer
+    sas1 = TaskJuggler::ShiftAssignments.new
+    sas1.setProject(@p)
+    assert_equal(0, TaskJuggler::ShiftAssignments.scoreboards.length)
+    sas1.addAssignment(sa1 = TaskJuggler::ShiftAssignment.new(@s1,
+      TaskJuggler::Interval.new(TaskJuggler::TjTime.new('2008-08-01'),
+                                TaskJuggler::TjTime.new('2008-08-05'))))
+    assert_equal(1, TaskJuggler::ShiftAssignments.scoreboards.length)
+
+    # Call finalizer directly to check for runtime errors that would otherwise
+    # go unnoticed.
+    TaskJuggler::ShiftAssignments.deleteScoreboard(sas1.object_id)
+    assert_equal(0, TaskJuggler::ShiftAssignments.scoreboards.length)
+  end
+
+  def test_SBsharing
+    sas1 = TaskJuggler::ShiftAssignments.new
+    sas1.setProject(@p)
+    assert_equal(0, TaskJuggler::ShiftAssignments.scoreboards.length)
+    sas1.addAssignment(TaskJuggler::ShiftAssignment.new(@s1,
+      TaskJuggler::Interval.new(TaskJuggler::TjTime.new('2008-08-01'),
+                                TaskJuggler::TjTime.new('2008-08-05'))))
+
+    sas2 = TaskJuggler::ShiftAssignments.new
+    sas2.setProject(@p)
+    sas2.addAssignment(TaskJuggler::ShiftAssignment.new(@s1,
+      TaskJuggler::Interval.new(TaskJuggler::TjTime.new('2008-08-01'),
+                                TaskJuggler::TjTime.new('2008-08-05'))))
+
+    assert_equal(1, TaskJuggler::ShiftAssignments.scoreboards.length)
+
+    sas3 = TaskJuggler::ShiftAssignments.new
+    sas3.setProject(@p)
+    sas3.addAssignment(TaskJuggler::ShiftAssignment.new(@s2,
+      TaskJuggler::Interval.new(TaskJuggler::TjTime.new('2008-08-01'),
+                                TaskJuggler::TjTime.new('2008-08-05'))))
+
+    assert_equal(2, TaskJuggler::ShiftAssignments.scoreboards.length)
+
+    sas1 = sas2 = sas3 = nil
+  end
+
+end
+

data/test/test_Syntax.rb

@@ -0,0 +1,41 @@
+#!/usr/bin/env ruby -w
+# encoding: UTF-8
+#
+# = test_Syntax.rb -- The TaskJuggler III Project Management Software
+#
+# Copyright (c) 2006, 2007, 2008, 2009 by Chris Schlaeger <cs@kde.org>
+#
+# 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.
+#
+
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib') if __FILE__ == $0
+
+require 'test/unit'
+require 'TaskJuggler'
+Path = File.exists?('test') ? 'test/' : '' unless defined?(Path)
+require Path + 'MessageChecker'
+
+class TestScheduler < Test::Unit::TestCase
+
+  include MessageChecker
+
+  def test_syntaxCorrect
+    Dir.glob(Path + 'TestSuite/Syntax/Correct/*.tjp').each do |f|
+      tj = TaskJuggler.new(false)
+      assert(tj.parse([ f ]), "Parser failed for #{f}")
+      assert(tj.messageHandler.messages.empty?, "Unexpected error in #{f}")
+    end
+  end
+
+  def test_syntaxErrors
+    Dir.glob(Path + 'TestSuite/Syntax/Errors/*.tjp').each do |f|
+      tj = TaskJuggler.new(false)
+      assert(!tj.parse([ f ]), "Parser succedded for #{f}")
+      checkMessages(tj, f)
+    end
+  end
+
+end
+

data/test/test_TextScanner.rb

@@ -0,0 +1,95 @@
+#!/usr/bin/env ruby -w
+# encoding: UTF-8
+#
+# = test_TextScanner.rb -- The TaskJuggler III Project Management Software
+#
+# Copyright (c) 2006, 2007, 2008, 2009 by Chris Schlaeger <cs@kde.org>
+#
+# 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.
+#
+
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+
+require 'test/unit'
+require 'TextScanner'
+require 'MessageHandler'
+
+class TaskJuggler
+
+class TestTextScanner < Test::Unit::TestCase
+
+  def setup
+  end
+
+  def teardown
+  end
+
+  def test_basic
+    text = <<'EOT'
+Hello world 1
+2.0 # Comment
+2008-12-14 // Another comment
+
+foo:
+a.b.c - $ [A Macro]
+15:23 "A string"
+EOT
+
+    s = TaskJuggler::TextScanner.new(text, MessageHandler.new(false))
+    s.open(true)
+    ref = [
+      ['ID', 'Hello', 1],
+      ['ID', 'world', 1],
+      ['INTEGER', 1, 1],
+      ['FLOAT', 2.0, 2],
+      ['DATE', TjTime.new('2008-12-14'), 3],
+      ['ID_WITH_COLON', 'foo', 5],
+      ['ABSOLUTE_ID', 'a.b.c', 6],
+      ['LITERAL', ' - ', 6],
+      ['LITERAL', '$', 6],
+      ['MACRO', 'A Macro', 6],
+      ['TIME', ((15 * 60) + 23) * 60, 7],
+      ['STRING', 'A string', 7],
+      ['.', '<END>', 0 ]
+    ]
+
+    ref.each do |type, val, line|
+      token = s.nextToken
+      assert_equal([ type, val ], token,
+                   "1: Bad token #{token[1]} instead of #{val}")
+      assert_equal(line, s.lineNo,
+                   "1: Bad line number #{s.lineNo} instead of #{line} for #{val}")
+      s.returnToken(token)
+      token = s.nextToken
+      assert_equal([ type, val ], token,
+                   "2: Bad token #{token[1]} instead of #{val}")
+      assert_equal(line, s.lineNo,
+                   "2: Bad line number #{s.lineNo} instead of #{line} for #{val}")
+    end
+
+    s.close
+  end
+
+  def test_macro
+    text = <<'EOT'
+This ${adj} software
+EOT
+
+    s = TaskJuggler::TextScanner.new(text, MessageHandler.new(false))
+    s.open(true)
+    s.addMacro(TaskJuggler::Macro.new('adj', 'great', nil))
+
+    assert_equal(['ID', 'This'], s.nextToken)
+    assert_equal(['ID', 'great'], s.nextToken)
+    assert_equal(['ID', 'software'], s.nextToken)
+    assert_equal(['.', '<END>'], s.nextToken)
+
+    s.close
+
+  end
+end
+
+end
+

data/test/test_TjTime.rb

@@ -0,0 +1,114 @@
+#!/usr/bin/env ruby -w
+# encoding: UTF-8
+#
+# = test_TjTime.rb -- The TaskJuggler III Project Management Software
+#
+# Copyright (c) 2006, 2007, 2008, 2009 by Chris Schlaeger <cs@kde.org>
+#
+# 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.
+#
+
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+
+require 'test/unit'
+require 'TjTime'
+
+class TestTjTime < Test::Unit::TestCase
+
+  def setup
+    @endTime = TaskJuggler::TjTime.local(2030)
+    @startTimes = [
+      TaskJuggler::TjTime.local(1972, 3, 15, 19, 27),
+      TaskJuggler::TjTime.local(1972, 2, 12, 10),
+      TaskJuggler::TjTime.local(1984, 11, 1, 12),
+      TaskJuggler::TjTime.local(1992, 1, 1),
+    ]
+  end
+
+  def teardown
+  end
+
+  def test_sameTimeNextDay
+    @startTimes.each do |st|
+      t1 = t2 = st
+      t1_a = old_t2_a = t1.localtime.to_a
+      begin
+        t2 = t2.sameTimeNextDay
+        t2_a = t2.localtime.to_a
+        assert_equal(t1_a[0, 3], t2_a[0, 3])
+        assert(t2_a[3] == old_t2_a[3] + 1 ||
+               t2_a[3] == 1, t2_a.join(', '))
+        assert(t2_a[7] == old_t2_a[7] + 1 ||
+               t2_a[7] == 1, t2_a.join(', '))
+
+        old_t2_a = t2_a
+      end while t2 < @endTime
+    end
+  end
+
+  def test_sameTimeNextWeek
+    @startTimes.each do |st|
+      t1 = t2 = st
+      t1_a = old_t2_a = t1.localtime.to_a
+      begin
+        t2 = t2.sameTimeNextWeek
+        t2_a = t2.localtime.to_a
+        # Check that hour, minutes and seconds are the same.
+        assert_equal(t1_a[0, 3], t2_a[0, 3])
+        # Check that weekday is the same
+        assert(t2_a[6] == old_t2_a[6],
+               "old_t2: #{old_t2_a.join(', ')}\nt2:     #{t2_a.join(', ')}")
+        # Check that day of year has increased by 7 or has wrapped at end of
+        # the year.
+        assert(t2_a[7] == old_t2_a[7] + 7 || t2_a[7] <= 7,
+               "old_t2: #{old_t2_a.join(', ')}\nt2:     #{t2_a.join(', ')}")
+
+        old_t2_a = t2_a
+      end while t2 < @endTime
+    end
+  end
+
+  def test_sameTimeNextMonth
+    @startTimes.each do |st|
+      t1 = t2 = st
+      t1_a = old_t2_a = t1.localtime.to_a
+      begin
+        t2 = t2.sameTimeNextMonth
+        t2_a = t2.localtime.to_a
+        assert_equal(t1_a[0, 3], t2_a[0, 3])
+        assert(t2_a[3] == t2_a[3] ||
+               t2_a[3] > 28,
+               "old_t2: #{old_t2_a.join(', ')}\nt2:     #{t2_a.join(', ')}")
+        assert(t2_a[4] == old_t2_a[4] + 1 ||
+               t2_a[4] == 1,
+               "old_t2: #{old_t2_a.join(', ')}\nt2:     #{t2_a.join(', ')}")
+
+        old_t2_a = t2_a
+      end while t2 < @endTime
+    end
+  end
+
+  def test_sameTimeNextQuarter
+    @startTimes.each do |st|
+      t1 = t2 = st
+      t1_a = old_t2_a = t1.localtime.to_a
+      begin
+        t2 = t2.sameTimeNextQuarter
+        t2_a = t2.localtime.to_a
+        assert_equal(t1_a[0, 3], t2_a[0, 3],
+               "old_t2: #{old_t2_a.join(', ')}\nt2:     #{t2_a.join(', ')}")
+        assert((t2_a[4] == old_t2_a[4] + 3 &&
+                t2_a[5] == old_t2_a[5]) ||
+               (t2_a[4] == old_t2_a[4] - 9 &&
+                t2_a[5] == old_t2_a[5] + 1),
+               "old_t2: #{old_t2_a.join(', ')}\nt2:     #{t2_a.join(', ')}")
+
+        old_t2_a = t2_a
+      end while t2 < @endTime
+    end
+  end
+
+end
+

data/test/test_TjpExample.rb

@@ -0,0 +1,169 @@
+#!/usr/bin/env ruby -w
+# encoding: UTF-8
+#
+# = test_TjpExample.rb -- The TaskJuggler III Project Management Software
+#
+# Copyright (c) 2006, 2007, 2008, 2009 by Chris Schlaeger <cs@kde.org>
+#
+# 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.
+#
+
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+
+require 'test/unit'
+require 'TjpExample'
+
+class TestScheduler < Test::Unit::TestCase
+
+  def setup
+  end
+
+  def teardown
+  end
+
+  def test_1
+    text = <<'EOT'
+# *** EXAMPLE: 1 +
+This line is in.
+# *** EXAMPLE: 1 -
+This line is out.
+EOT
+
+    ex = TaskJuggler::TjpExample.new
+    ex.parse(text)
+
+    out = ex.to_s
+    ref = <<'EOT'
+This line is in.
+This line is out.
+EOT
+    assert_equal(ref, out)
+
+    out = ex.to_s('1')
+    ref = <<'EOT'
+This line is in.
+EOT
+    assert_equal(ref, out)
+  end
+
+  def test_2
+    text = <<'EOT'
+This line is in no snip.
+# *** EXAMPLE: 1 +
+This line is in snip 1.
+# *** EXAMPLE: 2 +
+This line is in snip 1 and 2.
+This line is as well in 1 and 2.
+# *** EXAMPLE: 1 -
+This line is in snip 2.
+# *** EXAMPLE: 3 +
+This line is in snip 2 and 3.
+# *** EXAMPLE: 2 -
+This line is in snip 3.
+EOT
+
+    ex = TaskJuggler::TjpExample.new
+    ex.parse(text)
+
+    out = ex.to_s
+    ref = <<'EOT'
+This line is in no snip.
+This line is in snip 1.
+This line is in snip 1 and 2.
+This line is as well in 1 and 2.
+This line is in snip 2.
+This line is in snip 2 and 3.
+This line is in snip 3.
+EOT
+    assert_equal(ref, out)
+
+    out = ex.to_s('1')
+    ref = <<'EOT'
+This line is in snip 1.
+This line is in snip 1 and 2.
+This line is as well in 1 and 2.
+EOT
+    assert_equal(ref, out)
+
+    out = ex.to_s('2')
+    ref = <<'EOT'
+This line is in snip 1 and 2.
+This line is as well in 1 and 2.
+This line is in snip 2.
+This line is in snip 2 and 3.
+EOT
+    assert_equal(ref, out)
+
+    out = ex.to_s('3')
+    ref = <<'EOT'
+This line is in snip 2 and 3.
+This line is in snip 3.
+EOT
+    assert_equal(ref, out)
+  end
+
+  def test_3
+    text = <<'EOT'
+# *** EXAMPLE: 1 +
+This line is in.
+# *** EXAMPLE: 1 -
+This line is out.
+# *** EXAMPLE: 1 +
+This line is in as well.
+EOT
+
+    ex = TaskJuggler::TjpExample.new
+    ex.parse(text)
+
+    out = ex.to_s
+    ref = <<'EOT'
+This line is in.
+This line is out.
+This line is in as well.
+EOT
+    assert_equal(ref, out)
+
+    out = ex.to_s('1')
+    ref = <<'EOT'
+This line is in.
+This line is in as well.
+EOT
+    assert_equal(ref, out)
+  end
+
+  def test_error_1
+    text = <<'EOT'
+# *** EXAMPLE: 1 -
+This line is in.
+EOT
+
+    ex = TaskJuggler::TjpExample.new
+    assert_raise(RuntimeError) { ex.parse(text) }
+  end
+
+  def test_error_2
+    text = <<'EOT'
+# *** EXAMPLE: 1 +
+This line is in.
+# *** EXAMPLE: 1 +
+This line is in.
+EOT
+
+    ex = TaskJuggler::TjpExample.new
+    assert_raise(RuntimeError) { ex.parse(text) }
+  end
+
+  def test_error_3
+    text = <<'EOT'
+# *** EXAMPLE: foo !
+This line is in.
+EOT
+
+    ex = TaskJuggler::TjpExample.new
+    assert_raise(RuntimeError) { ex.parse(text) }
+  end
+
+end
+