taskjuggler 0.0.2 → 0.0.3

data/test/TestSuite/Syntax/Errors/too_large_timing_res.tjp

@@ -0,0 +1,7 @@
+project test "Test" "1.0" 2007-08-26 +1w {
+  timezone "Pacific/Marquesas"
+# MARK: error 4 too_large_timing_res
+  timingresolution 60 min
+}
+
+task foo "Foo"

data/test/TestSuite/Syntax/Errors/unknown_scenario_idx.tjp

@@ -4,7 +4,7 @@ task t "T" {
   start 2007-08-19
 }
 
-htmltaskreport "report.html" {
+taskreport report "report.html" {
 # MARK: error 9 unknown_scenario_idx 
 	scenarios plan, foo
 }

data/test/TestSuite/Syntax/Errors/unknown_task.tjp

@@ -4,7 +4,7 @@ task t "T" {
   start 2007-08-19
 }
 
-htmltaskreport "report.html" {
+taskreport report "report.html" {
 # MARK: error 9 unknown_task
 	taskroot foo
 }

data/test/all.rb

@@ -13,19 +13,4 @@
 $:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
 $:.unshift File.dirname(__FILE__)
 
-require 'test_CSV-Reports.rb'
-require 'test_Query.rb'
-require 'test_TextScanner.rb'
-require 'test_Limits.rb'
-require 'test_RealFormat.rb'
-require 'test_TjpExample.rb'
-require 'test_LogicalExpression.rb'
-require 'test_RichText.rb'
-require 'test_TjTime.rb'
-require 'test_MacroTable.rb'
-require 'test_Scheduler.rb'
-require 'test_Project.rb'
-require 'test_ShiftAssignments.rb'
-require 'test_PropertySet.rb'
-require 'test_Syntax.rb'
-require 'test_UTF8String.rb'
+Dir.glob(File.dirname(__FILE__) + '/test_*.rb').each { |f| require f }

data/test/test_CSV-Reports.rb

@@ -11,13 +11,14 @@
 #
 
 $:.unshift File.join(File.dirname(__FILE__), '..', 'lib') if __FILE__ == $0
+$:.unshift File.dirname(__FILE__)
 
 require 'stringio'
 require 'test/unit'
 require 'TaskJuggler'
 require 'reports/CSVFile'
-Path = File.exists?('test') ? 'test/' : '' unless defined?(Path)
-require Path + 'MessageChecker'
+require 'MessageChecker'
+
 
 class TestScheduler < Test::Unit::TestCase
 
@@ -74,9 +75,11 @@ class TestScheduler < Test::Unit::TestCase
   end
 
   def test_CSV_Reports
-    Dir.glob(Path + 'TestSuite/CSV-Reports/*.tjp').each do |f|
-      baseName = f[22 + Path.length, f.length - (Path.length + 26)]
-      refFile = Path + "TestSuite/CSV-Reports/#{baseName}-Reference.csv"
+    path = File.dirname(__FILE__)
+
+    Dir.glob(path + 'TestSuite/CSV-Reports/*.tjp').each do |f|
+      baseName = f[22 + path.length, f.length - (path.length + 26)]
+      refFile = path + "TestSuite/CSV-Reports/#{baseName}-Reference.csv"
       tj = TaskJuggler.new(true)
       assert(tj.parse([ f ]), "Parser failed for #{f}")
       assert(tj.schedule, "Scheduler failed for #{f}")

data/test/test_Query.rb

@@ -31,7 +31,7 @@ class TestQuery < Test::Unit::TestCase
   end
 
   def test_scaleDuration
-    q = Query.new('project' => @p, 'numberFormat' => @p['numberformat'])
+    q = Query.new('project' => @p, 'numberFormat' => @p['numberFormat'])
     units = [ :minutes, :hours, :days, :weeks, :months, :shortauto ]
     vals = [
       # Inp  mins      hours   days   weeks  months  shortauto
@@ -54,7 +54,7 @@ class TestQuery < Test::Unit::TestCase
   end
 
   def test_scaleLoad
-    q = Query.new('project' => @p, 'numberFormat' => @p['numberformat'])
+    q = Query.new('project' => @p, 'numberFormat' => @p['numberFormat'])
     units = [ :minutes, :hours, :days, :weeks, :months, :shortauto ]
     vals = [
       # Inp  mins      hours   days   weeks  months  shortauto

data/test/test_RichText.rb

@@ -14,6 +14,21 @@ $:.unshift File.join(File.dirname(__FILE__), '..', 'lib') if __FILE__ == $0
 
 require 'test/unit'
 require 'RichText'
+require 'RichTextProtocolHandler'
+
+  class RTPDummy < TaskJuggler::RichTextProtocolHandler
+
+    def initialize()
+      super(nil, 'dummy')
+    end
+
+    # Return a XMLElement tree that represents the navigator in HTML code.
+    def to_html(args)
+      s = ''
+      TaskJuggler::XMLElement.new('blockfunc:dummy', args)
+    end
+  end
+
 
 class TestRichText < Test::Unit::TestCase
 
@@ -856,9 +871,89 @@ EOT
     assert_equal(ref, out)
   end
 
+  def test_hline_and_link
+    inp = <<EOT
+----
+[[foo bar]]
+EOT
+
+    # Check tagged output.
+    out = newRichText(inp).to_tagged + "\n"
+    ref = <<EOT
+<div><hr>----</hr>
+<p><ref data=\"foo\">[bar]</ref></p>
+
+</div>
+EOT
+    assert_equal(ref, out)
+
+    # Check ASCII output.
+    rt = newRichText(inp)
+    rt.lineWidth = 60
+    out = rt.to_s
+    ref = <<EOT
+--------------------------------------------------------
+bar
+
+EOT
+    assert_equal(ref, out)
+
+    # Check HTML output.
+    out = newRichText(inp).to_html.to_s + "\n"
+    ref = "<div>\n <hr/>\n <p><a href=\"foo.html\">bar</a></p>\n</div>\n"
+    assert_equal(ref, out)
+  end
+
+  def test_blockFunction
+    inp = <<EOT
+<[dummy id="foo" arg1="bar"]>
+=== Header ===
+<[dummy]>
+some text
+<[dummy]>
+EOT
+
+    # Check tagged output.
+    out = newRichText(inp).to_tagged + "\n"
+    ref = <<EOT
+<div><blockfunc:dummy arg1="bar" id="foo"/><h2>0.1 [Header]</h2>
+
+<blockfunc:dummy/><p>[some] [text]</p>
+
+<blockfunc:dummy/></div>
+EOT
+    assert_equal(ref, out)
+
+    # Check ASCII output.
+    rt = newRichText(inp)
+    rt.lineWidth = 60
+    out = rt.to_s
+    ref = <<EOT
+0.1 Header
+
+some text
+
+EOT
+    assert_equal(ref, out)
+
+    # Check HTML output.
+    out = newRichText(inp).to_html.to_s + "\n"
+    ref = <<EOT
+<div>
+ <blockfunc:dummy arg1=\"bar\" id=\"foo\"/>
+ <h2 id="Header">0.1 Header</h2>
+ <blockfunc:dummy/>
+ <p>some text</p>
+ <blockfunc:dummy/>
+</div>
+EOT
+    assert_equal(ref, out)
+  end
+
   def newRichText(text)
     begin
       rText = TaskJuggler::RichText.new(text)
+      rText.registerProtocol(RTPDummy.new)
     rescue TaskJuggler::RichTextException => msg
       $stderr.puts "Error in RichText Line #{msg.lineNo}: #{msg.text}\n" +
                    "#{msg.line}"

data/test/test_Scheduler.rb

@@ -11,18 +11,20 @@
 #
 
 $:.unshift File.join(File.dirname(__FILE__), '..', 'lib') if __FILE__ == $0
+$:.unshift File.dirname(__FILE__)
 
 require 'test/unit'
 require 'TaskJuggler'
-Path = File.exists?('test') ? 'test/' : '' unless defined?(Path)
-require Path + 'MessageChecker'
+require 'MessageChecker'
 
 class TestScheduler < Test::Unit::TestCase
 
   include MessageChecker
 
   def test_SchedulerErrors
-    Dir.glob(Path + 'TestSuite/Scheduler/Errors/*.tjp').each do |f|
+    path = File.dirname(__FILE__) + '/'
+    Dir.glob(path + 'TestSuite/Scheduler/Errors/*.tjp').each do |f|
+      ENV['TZ'] = 'Europe/Berlin'
       tj = TaskJuggler.new(false)
       assert(tj.parse([ f ]), "Parser failed for #{f}")
       tj.schedule
@@ -31,7 +33,9 @@ class TestScheduler < Test::Unit::TestCase
   end
 
   def test_SchedulerCorrect
-    Dir.glob(Path + 'TestSuite/Scheduler/Correct/*.tjp').each do |f|
+    path = File.dirname(__FILE__) + '/'
+    Dir.glob(path + 'TestSuite/Scheduler/Correct/*.tjp').each do |f|
+      ENV['TZ'] = 'Europe/Berlin'
       tj = TaskJuggler.new(true)
       assert(tj.parse([ f ]), "Parser failed for ${f}")
       assert(tj.schedule, "Scheduler failed for #{f}")

data/test/test_Syntax.rb

@@ -11,18 +11,20 @@
 #
 
 $:.unshift File.join(File.dirname(__FILE__), '..', 'lib') if __FILE__ == $0
+$:.unshift File.dirname(__FILE__)
 
 require 'test/unit'
 require 'TaskJuggler'
-Path = File.exists?('test') ? 'test/' : '' unless defined?(Path)
-require Path + 'MessageChecker'
+require 'MessageChecker'
 
 class TestScheduler < Test::Unit::TestCase
 
   include MessageChecker
 
   def test_syntaxCorrect
-    Dir.glob(Path + 'TestSuite/Syntax/Correct/*.tjp').each do |f|
+    path = File.dirname(__FILE__) + '/'
+    Dir.glob(path + 'TestSuite/Syntax/Correct/*.tjp').each do |f|
+      ENV['TZ'] = 'Europe/Berlin'
       tj = TaskJuggler.new(false)
       assert(tj.parse([ f ]), "Parser failed for #{f}")
       assert(tj.messageHandler.messages.empty?, "Unexpected error in #{f}")
@@ -30,7 +32,9 @@ class TestScheduler < Test::Unit::TestCase
   end
 
   def test_syntaxErrors
-    Dir.glob(Path + 'TestSuite/Syntax/Errors/*.tjp').each do |f|
+    path = File.dirname(__FILE__) + '/'
+    Dir.glob(path + 'TestSuite/Syntax/Errors/*.tjp').each do |f|
+      ENV['TZ'] = 'Europe/Berlin'
       tj = TaskJuggler.new(false)
       assert(!tj.parse([ f ]), "Parser succedded for #{f}")
       checkMessages(tj, f)

data/test/test_deep_copy.rb

@@ -0,0 +1,83 @@
+#!/usr/bin/env ruby -w
+# encoding: UTF-8
+#
+# = test_Query.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 'deep_copy'
+
+class A
+  def initialize
+    @a = [ 10, 11, 12 ]
+  end
+
+  def mute
+    @a[1] = 'z'
+  end
+
+  def muted
+    @a[1]
+  end
+end
+
+class B
+  def initialize
+    @a = 1
+    @b = 'abc'
+    @c = [ 1, 2, 3 ]
+    @d = [ [ 1, 2], [ 3, 4 ], A.new ]
+    @e = { '0' => 49, '1' => 50, '2' => 51 }
+  end
+
+  def mute
+    @b[1] = '-'
+    @d[1][1] = 'x'
+    @d[2].mute
+    @e['1'] = 111
+  end
+
+  def muted
+    [ @b[1, 1], @d[1][1], @d[2].muted, @e['1'] ]
+  end
+end
+
+class Test_deep_copy < Test::Unit::TestCase
+
+  def test_clone
+    a = B.new
+    b = a.deep_clone
+    a.mute
+
+    out = a.muted
+    refA = [ '-', 'x', 'z', 111 ]
+    refA.length.times do |i|
+      assert_equal(refA[i], out[i])
+    end
+
+    out = b.muted
+    refB = [ 'b', 4, 11, 50 ]
+    refB.length.times do |i|
+      assert_equal(refB[i], out[i])
+    end
+  end
+
+  def test_network
+    a = [ 0, '1', 'abc' ]
+    b = { 'a' => 0, 'b' => '123', 'c' => a }
+    a << b
+
+    c = a.deep_clone
+    d = b.deep_clone
+  end
+
+end
+