ttk 0.1.576

data/test/ressources/runit/good.rb

@@ -0,0 +1,30 @@
+
+
+
+class Good
+
+
+end
+
+
+if __FILE__ == $0
+
+require 'test/unit/ui/yaml/testrunner'
+
+class GoodTest < Test::Unit::TestCase
+
+  def test_1
+    assert(true)
+  end
+
+  def test_2
+    assert(true, 'good')
+    assert(true, 'very good')
+  end
+
+end
+
+Test::Unit::UI::Yaml::TestRunner.run(GoodTest)
+
+end
+

data/test/ressources/text/1.txt

@@ -0,0 +1,4 @@
+	 /*-------------------------------------------------------.
+	 |                      TestTKewl                         |
+	 |  "parce que les tests on s'en bat pas les couilles !"  |
+	 `-------------------------------------------------------*/

data/test/runit/dumpers/xml_test.rb

@@ -0,0 +1,75 @@
+# Author: Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright: Copyright (c) 2004, 2005 TTK Team. All rights reserved.
+# License: Ruby license.
+
+# $LastChangedBy$
+# $Id: xml_test.rb 575 2005-04-14 10:22:30Z polrop $
+
+require 'test/unit/ui/yaml/testrunner'
+require 'ttk'
+
+module TTK
+
+  module Dumpers
+
+    class Xml
+
+      class Test < Test::Unit::TestCase
+
+        def test_simple
+          ref_input = <<-end
+            root:
+              strategy: Suite
+              contents:
+                - sub1:
+                    strategy: Cmd
+                    foo: bar
+                    test:
+                      subsub:
+                        status: PASS
+                - sub2:
+                    status: FAILED
+              status: 1/2
+          end
+
+          ref_output = <<-end
+            <?xml version="1.0" encoding="iso-8859-1"?>
+            <node name='root'>
+              <node name='status'>1/2</node>
+              <node name='contents'>
+                <node name='sub1'>
+                  <node name='foo'>bar</node>
+                  <node name='test'>
+                    <node name='subsub'>
+                      <node name='status'>PASS</node>
+                    </node>
+                  </node>
+                  <node name='strategy'>Cmd</node>
+                </node>
+                <node name='sub2'>
+                  <node name='status'>FAILED</node>
+                </node>
+              </node>
+              <node name='strategy'>Suite</node>
+            </node>
+          end
+          ref_output.gsub!(/^            /, '')
+
+          TempPath.new do |my_output|
+            log = Logger.new(Xml.new(my_output.open('w')))
+            ref_input = YAML::load(ref_input)
+            ref_input.to_ttk_log(log)
+            log.close
+            assert_equal(ref_output, my_output.read)
+          end
+        end
+
+      end
+
+    end # class Xml
+
+  end # module Dumpers
+
+end # module TTK
+
+Test::Unit::UI::Yaml::TestRunner.run(TTK::Dumpers::Xml::Test)

data/test/runit/dumpers/yaml_test.rb

@@ -0,0 +1,68 @@
+# Author: Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright: Copyright (c) 2004, 2005 TTK Team. All rights reserved.
+# License: Ruby license.
+
+# $LastChangedBy$
+# $Id: yaml_test.rb 567 2005-04-13 08:00:06Z polrop $
+
+require 'test/unit/ui/yaml/testrunner'
+require 'ttk'
+
+module TTK
+
+  module Dumpers
+
+    class Yaml
+
+      class Test < Test::Unit::TestCase
+
+        def test_simple
+          in_ref = [
+            [:new_node, :name, :map], [:new_leaf, "root"], [:up],
+            [:new_node, :strategy], [:new_leaf, "Suite"], [:up],
+            [:new_node, :contents, :seq],
+              [:new_node, :sub1],
+                [:new_node, :strategy], [:new_leaf, "Pool"], [:up],
+                [:new_node, :test],
+                  [:new_node, :subsub],
+                [:new_node, :status], [:new_leaf, "PASS"], [:up],[:up],[:up],
+                [:new_node, :foo], [:new_leaf, "bar"], [:up], [:up],
+              [:new_node, :sub2],
+                [:new_node, :status], [:new_leaf, "FAIL"], [:up],[:up],[:up],
+            [:new_node, :status], [:new_leaf, "FAIL(50%)"], [:up],
+          ]
+
+          out_ref = <<-end
+            ---
+            name: root
+            strategy: Suite
+            contents:
+              - sub1:
+                  strategy: Pool
+                  test:
+                    subsub:
+                      status: PASS
+                  foo: bar
+              - sub2:
+                  status: FAIL
+            status: FAIL(50%)
+          end
+          out_ref.gsub!(/^            /, '')
+
+          out_my = StringIO.new
+          logger = Logger.new(Yaml.new(out_my))
+          in_ref.each { |a| logger.send(*a) }
+          out_my.rewind
+
+          assert_equal(out_ref, out_my.read)
+        end
+
+      end
+
+    end # class Yaml
+
+  end # module Dumpers
+
+end # module TTK
+
+Test::Unit::UI::Yaml::TestRunner.run(TTK::Dumpers::Yaml::Test)

data/test/runit/fetchers/fetchers_test.rb

@@ -0,0 +1,48 @@
+# Author:: Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004 TTK Team. All rights reserved.
+# License:: Ruby license.
+
+# $LastChangedBy: ertai $
+# $Id: fetchers_test.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+require 'test/unit/ui/yaml/testrunner'
+require 'ttkd'
+
+
+module TTK
+
+  module Fetchers
+
+    class FetchersTest < ::Test::Unit::TestCase
+
+      def test_simple
+        me_dir, @me = Pathname.new(__FILE__).split
+        q_in = Queue.new
+        q_out = Queue.new
+        thr_srv = Thread.new do
+          srv = Server.new(nil, me_dir)
+          drbsrv = DRb::DRbServer.new(nil, srv)
+          q_out.push drbsrv.uri
+          q_in.pop
+        end
+        srv_uri = q_out.pop
+        clt = Client.new(nil, DRb::DRbObject.new_with_uri(srv_uri))
+        drbsrv = DRb::DRbServer.new(nil, clt)
+        stat = drbsrv.front.fetch(@me, Pathname.new(Dir.tmpdir))
+        assert(stat[:success])
+        q_in.push(42)
+      end
+
+      def teardown
+        File.delete("#{Dir.tmpdir}/#{@me}")
+      end
+
+    end # class ClientTest
+
+  end # module Fetchers
+
+end # module TTK
+
+Test::Unit::UI::Yaml::TestRunner.run(TTK::Fetchers::FetchersTest)
+

data/test/runit/loaders/OYaml_test.rb

@@ -0,0 +1,35 @@
+# Author:: Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004 TTK Team. All rights reserved.
+# License:: Ruby license.
+
+# $LastChangedBy: ertai $
+# $Id: OYaml_test.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+require 'test/unit/ui/yaml/testrunner'
+require 'ttk'
+
+module TTK
+
+  module Loaders
+
+    class OYamlTest < ::Test::Unit::TestCase
+
+      def test1
+        doc = OYaml.new.load_doc('--- { d: 3, a: 2, b: 4 }')
+        assert_equal(doc.keys, [:d, :a, :b])
+      end
+
+      def test2
+        doc = OYaml.new.load_doc('--- { a: 2, d: 3, b: 4 }')
+        assert_equal(doc.keys, [:a, :d, :b])
+      end
+
+    end # class OYamlTest
+
+  end # module Loaders
+
+end # module TTK
+
+Test::Unit::UI::Yaml::TestRunner.run(TTK::Loaders::OYamlTest)
+

data/test/runit/logger/section_node_test.rb

@@ -0,0 +1,125 @@
+# Author:: Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004 TTK Team. All rights reserved.
+# License:: Ruby license.
+
+# $LastChangedBy: ertai $
+# $Id: section_node_test.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+require 'test/unit/ui/yaml/testrunner'
+require 'ttk'
+
+
+module TTK
+
+  class Logger
+
+    class SectionNodeTest < ::Test::Unit::TestCase
+
+      def setup
+        foo = SectionNode.new('foo',
+                              SectionNode.new('baz',
+                                              SectionNode.new('son1'),
+                                              SectionNode.new('son2')),
+                              SectionNode.new('goo'))
+        @tree = SectionNode.new('root',
+                                foo,
+                                SectionNode.new('bar'))
+      end
+
+      def test_name=
+        s = SectionNode.new('toto')
+        assert_equal('toto', s.name)
+        s.name = 'foo'
+        assert_equal('foo', s.name)
+      end
+
+      def test_sub_sections
+        assert_equal([], SectionNode.new('foo').sub_sections)
+      end
+
+      def test_label
+        s = SectionNode.new('foo',
+                            SectionNode.new('bar'),
+                            SectionNode.new('baz', SectionNode.new('goo')))
+        assert_equal('bar', s['bar'].name)
+        assert_equal('baz', s['baz'].name)
+        assert_equal('goo', s['baz']['goo'].name)
+      end
+
+      def test_find
+        goo = SectionNode.new('goo')
+        s = SectionNode.new('foo',
+                            SectionNode.new('bar'),
+                            SectionNode.new('baz', goo))
+        assert_equal(goo, s.find('goo'))
+        assert_nil(s.find('toto'))
+      end
+
+      def test_active_tree
+        s = SectionNode.new('foo',
+                            SectionNode.new('bar'),
+                            SectionNode.new('baz', SectionNode.new('goo')))
+        assert(! s.active?)
+        s.each_section { |ss| assert(! ss.active?) }
+        assert(! s['baz']['goo'].active?)
+        section_actived = s.active_tree(true)
+        expected_section = %w(foo bar baz goo)
+        expected_section.each do |x|
+          assert(section_actived.include?(x), "#{x} not actived")
+        end
+        assert_equal(expected_section.size, section_actived.size)
+        s.each_section { |ss| assert(ss.active?) }
+        assert(s['baz']['goo'].active?)
+      end
+
+      def test_active_section
+        assert_equal([], SectionNode.new('root').active_section('toto'))
+        assert_equal(['root'], SectionNode.new('root').active_section('root'))
+        assert_equal([], @tree.active_section('toto'))
+        section_actived = @tree.active_section('baz')
+        expected_section = %w(root foo baz son1 son2)
+        expected_section.each do |x|
+          assert(section_actived.include?(x), "#{x} not actived")
+        end
+        assert_equal(expected_section.size, section_actived.size)
+      end
+
+      def test_unactive_section__easy
+        assert_equal([], SectionNode.new('root').unactive_section('toto'))
+        assert_equal([], SectionNode.new('root').unactive_section('root'))
+        section_actived = @tree.active_section('baz')
+        section_actived = @tree.unactive_section('baz')
+        expected_section = %w(root foo baz son1 son2)
+        expected_section.each do |x|
+          assert(section_actived.include?(x), "#{x} not actived")
+        end
+        assert_equal(expected_section.size, section_actived.size)
+      end
+
+      def test_unactive_section__difficult
+        section_actived = @tree.active_section('baz')
+        section_actived = @tree.active_section('goo')
+        section_actived = @tree.unactive_section('baz')
+        expected_section = %w(baz son1 son2)
+        expected_section.each do |x|
+          assert(section_actived.include?(x), "#{x} not actived")
+        end
+        assert_equal(expected_section.size, section_actived.size)
+        section_actived = @tree.unactive_section('goo')
+        expected_section = %w(goo foo root)
+        expected_section.each do |x|
+          assert(section_actived.include?(x), "#{x} not actived")
+        end
+        assert_equal(expected_section.size, section_actived.size)
+      end
+
+    end # class SectionNodeTest
+
+  end # class Logger
+
+end # module TTK
+
+Test::Unit::UI::Yaml::TestRunner.run(TTK::Logger::SectionNodeTest)
+
+

data/test/runit/logger/severity_test.rb

@@ -0,0 +1,41 @@
+# Author:: Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004 TTK Team. All rights reserved.
+# License:: Ruby license.
+
+# $LastChangedBy: ertai $
+# $Id: severity_test.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+require 'test/unit/ui/yaml/testrunner'
+require 'ttk'
+
+module TTK
+
+  class Logger
+
+    class SeverityTest < ::Test::Unit::TestCase
+
+      def test_unshift
+        assert_equal(Severity::DEBUG, Severity.lower)
+        Severity.unshift('DEBUG1')
+        assert_equal(Severity::DEBUG1, Severity.lower)
+      end
+
+      def test_push
+        assert_equal(Severity::UNKNOWN, Severity.higher)
+        Severity.push('UNKNOWN1')
+        assert_equal(Severity::UNKNOWN1, Severity.higher)
+      end
+
+      def test_label
+        assert_equal('WARN', Severity.label(2))
+      end
+
+    end # class SeverityTest
+
+  end # class Logger
+
+end # module TTK
+
+Test::Unit::UI::Yaml::TestRunner.run(TTK::Logger::SeverityTest)
+

data/test/runit/logger/verbosity_test.rb

@@ -0,0 +1,49 @@
+# Author:: Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004 TTK Team. All rights reserved.
+# License:: Ruby license.
+
+# $LastChangedBy: ertai $
+# $Id: verbosity_test.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+require 'test/unit/ui/yaml/testrunner'
+require 'ttk'
+
+module TTK
+
+  class Logger
+
+    class VerbosityTest < ::Test::Unit::TestCase
+
+      class VerbosityEx < Verbosity
+      end
+
+      def test_self_verbosity
+        assert_raises(ArgumentError) do
+          VerbosityEx.verbosity :foo, 42
+        end
+        assert_raises(ArgumentError) do
+          VerbosityEx.verbosity :sections, 0
+        end
+      end
+
+      def test_self_level_fields
+        assert_equal([], Verbosity.level_fields(0))
+        assert_equal([:severity_level], Verbosity.level_fields(1))
+        assert_equal([:sections], Verbosity.level_fields(2))
+        assert_equal([:date], Verbosity.level_fields(3))
+      end
+
+      def test_higher_level
+        assert_equal(3, VerbosityEx.higher_level)
+      end
+
+    end # class VerbosityTest
+
+  end # class Logger
+
+end # module TTK
+
+Test::Unit::UI::Yaml::TestRunner.run(TTK::Logger::VerbosityTest)
+
+