facets 3.1.0 → 3.2.0

data/test/core/enumerator/lazy/test_squeeze.rb

@@ -1,33 +0,0 @@
-if defined?(Enumerator::Lazy)
-  covers 'facets/enumerator/lazy/squeeze'
-
-  test_case Enumerator::Lazy do
-
-    method :squeeze do
-
-      # make an Enumerable class to test
-      eC = Class.new do
-        include Enumerable
-        def initialize(*a)
-          @a = a
-        end
-        def each(&b)
-          @a.each(&b)
-        end
-      end
-
-      test 'example (default)' do
-        e = eC.new(1,2,2,3,3,2,1)
-        e.lazy.squeeze.to_a.assert == [1,2,3,2,1]
-      end
-
-      test 'example (with argument)' do
-        e = eC.new(1,2,2,3,3,2,1)
-        e.lazy.squeeze(*[3]).to_a.assert == [1,2,2,3,2,1]
-      end
-
-    end
-
-  end
-
-end

data/test/core/enumerator/test_fx.rb

@@ -1,16 +0,0 @@
-covers 'facets/enumerator/fx'
-
-test_case Enumerator do
-
-  method :fx do
-
-    test do
-      e = [1,2,3].to_enum
-      r = e.fx + 2
-      r.assert == [3,4,5]
-    end
-
-  end
-
-end
-

data/test/core/enumerator/test_new.rb

@@ -1,21 +0,0 @@
-covers 'facets/enumerator'
-
-test_case Enumerator do
-
-  class_method :new do
-
-    test "with block" do
-      # This example taken from ri19 Enumerator.new
-      fib = Enumerator.new do |y|
-       a = b = 1
-        loop {
-          y << a
-          a, b = b, a + b
-        }
-      end
-      fib.take(10).assert == [1, 1, 2, 3, 5, 8, 13, 21, 34, 55]
-    end
-
-  end
-
-end

data/test/core/enumerator_tc.rb

@@ -1,40 +0,0 @@
-covers 'facets/enumerator'
-
-test_case Enumerator::Yielder do
-
-  class_method :new do
-
-    test do
-      y = Enumerator::Yielder.new{ |x| x + 1 }
-    end
-
-  end
-
-  method :yield do
-
-    test do
-      y = Enumerator::Yielder.new{ |x| x + 1 }
-      y.yield(1).assert == 2
-    end
-
-  end
-
-  method :<< do
-
-    test do
-      a = []
-      y = Enumerator::Yielder.new{ |x| a << x + 1 }
-      y << 1
-      a.assert == [2]
-    end
-
-    test do
-      a = []
-      y = Enumerator::Yielder.new{ |x,y| a << x + y }
-      y.<<(1,2)
-      a.assert == [3]
-    end
-
-  end
-
-end

data/test/core/exception/test_detail.rb

@@ -1,15 +0,0 @@
-covers 'facets/exception/detail'
-
-test_case Exception do
-
-  method :detail do
-
-    test "at least it runs" do
-      err = ArgumentError.new("example error")
-      err.detail
-    end
-
-  end
-
-end
-

data/test/core/exception/test_raised.rb

@@ -1,15 +0,0 @@
-covers 'facets/exception/raised'
-
-test_case Exception do
-
-  class_method :raised? do
-
-    test do
-      NameError.raised? do
-        supercalafragalistic
-      end
-    end
-
-  end
-
-end

data/test/core/exception/test_suppress.rb

@@ -1,16 +0,0 @@
-covers 'facets/exception/suppress'
-
-test_case Exception do
-
-  class_method :suppress do
-
-    test do
-      NameError.suppress do
-        supercalafragalistic
-      end
-    end
-
-  end
-
-end
-

data/test/core/file/test_append.rb

@@ -1,22 +0,0 @@
-covers 'facets/file/append'
-
-test_case File do
-
-  class_method :append do
-
-    setup do
-      require 'fileutils'
-      @test_file = 'tmp/append.txt'
-      FileUtils.rm(@test_file) if File.exist?(@test_file)
-    end
-
-    test do
-      File.append(@test_file, "line 1\n")
-      File.read(@test_file).assert == "line 1\n"
-      File.append(@test_file, "line 2\n")
-      File.read(@test_file).assert == "line 1\nline 2\n"
-    end
-
-  end
-
-end

data/test/core/file/test_create.rb

@@ -1,17 +0,0 @@
-covers 'facets/file/create'
-
-test_case File do
-
-  class_method :create do
-
-    test_file = 'tmp/rewrite.txt'
-    test_data = 'This is a test!'
-
-    test do
-      File.create(test_file, test_data)
-      File.read(test_file).assert == test_data
-    end
-
-  end
-
-end

data/test/core/file/test_ext.rb

@@ -1,31 +0,0 @@
-covers 'facets/file/ext'
-
-test_case File do
-
-  class_method :ext do
-
-    test "typical filename" do
-      s = 'file.txt'
-      File.ext(s).assert == 'txt'
-      File.ext(s, 'old').assert == 'file.old'
-      File.ext(s, '').assert == 'file'
-    end
-
-    test "no extension" do
-      s = 'file'
-      File.ext(s).assert == ''
-      File.ext(s, 'txt').assert == 'file.txt'
-      File.ext(s, '').assert == 'file'
-    end 
-
-    test "non-standard extensions" do
-      s = '.profile'
-      File.ext(s).assert == ''
-      File.ext(s, 'new').assert == '.profile.new'
-      File.ext(s, '').assert == '.profile'
-    end
-
-  end
-
-end
-

data/test/core/file/test_null.rb

@@ -1,14 +0,0 @@
-covers 'facets/file/null'
-
-test_case File do
-
-  class_method :null do
-
-    test do
-      assert File.null
-    end
-
-  end
-
-end
-

data/test/core/file/test_read_binary.rb

@@ -1,19 +0,0 @@
-covers 'facets/file/read_binary'
-
-test_case File do
-
-  # TODO: Is this even really testable?
-  class_method :read_binary do
-
-    test_file = 'tmp/read_binary.txt'
-    test_data = "line 1\nline 2\nline 3"
-
-    test do
-      File.open(test_file, 'w'){ |f| f << test_data }
-      File.read_binary(test_file).assert == test_data
-    end
-
-  end
-
-end
-

data/test/core/file/test_read_list.rb

@@ -1,16 +0,0 @@
-covers 'facets/file/read_list'
-
-test_case File do
-
-  class_method :read_list do
-
-    test_file = 'tmp/read_list.txt'
-
-    test do
-      File.open(test_file, 'w'){ |f| f << "line 1\nline 2\n#line 3" }
-      File.read_list(test_file).assert == ['line 1', 'line 2']
-    end
-
-  end
-
-end

data/test/core/file/test_rewrite.rb

@@ -1,35 +0,0 @@
-covers 'facets/file/rewrite'
-
-test_case File do
-
-  test_data = 'This is a test!'
-
-  class_method :rewrite do
-
-    setup do
-      @test_file = 'tmp/rewrite.txt'
-      File.open(@test_file, 'w'){ |w| w << test_data }
-    end
-
-    test do
-      File.rewrite(@test_file){ |s| s.reverse }
-      File.read(@test_file).assert == test_data.reverse
-    end
-
-  end
-
-  class_method :rewrite! do
-
-    setup do
-      @test_file = 'tmp/rewrite.txt'
-      File.open(@test_file, 'w'){ |w| w << test_data }
-    end
-
-    test do
-      File.rewrite!(@test_file){ |s| s.reverse! }
-      File.read(@test_file).assert == test_data.reverse
-    end
-
-  end
-
-end

data/test/core/file/test_rootname.rb

@@ -1,13 +0,0 @@
-covers 'facets/file/rootname'
-
-test_case File do
-
-  class_method :rootname do
-
-    test do
-      File.rootname('test/core/file').assert == 'test'
-    end
-
-  end
-
-end

data/test/core/file/test_sanitize.rb

@@ -1,32 +0,0 @@
-covers 'facets/file/sanitize'
-
-test_case File do
-
-  # TODO: Write file identity tests.
-  class_method :sanitize do
-
-    test "spaces become underscores" do
-      File.sanitize('This is a test').assert == "This_is_a_test"
-    end
-
-    test "Windows-style path dividers" do
-      File.sanitize('This\is\test').assert == "test"
-    end
-
-    test "Unix-style path dividers" do
-      File.sanitize('This/is/test').assert == "test"
-    end
-
-    test "non-word characters" do
-      File.sanitize('This/te#$#@!st').assert == "te_____st"
-    end
-
-    test "initial dot" do
-      File.sanitize('.').assert == "_."
-      File.sanitize('....').assert == "_...."
-    end
-
-  end
-
-end
-

data/test/core/file/test_split_all.rb

@@ -1,14 +0,0 @@
-covers 'facets/file/split_all'
-
-test_case File do
-
-  class_method :split_all do
-
-    test do
-      fp = "test/core/file"
-      File.split_all(fp).assert == ['test', 'core', 'file']
-    end
-
-  end
-
-end

data/test/core/file/test_write.rb

@@ -1,22 +0,0 @@
-covers 'facets/file/write'
-
-test_case File do
-
-  class_method :write do
-
-    test_file = 'tmp/write.txt'
-
-    test do
-      data = "Test data\n"
-
-      nbytes = File.write(test_file, data)
-
-      out = File.read(test_file)
-      out.assert == data
-      out.size.assert == nbytes
-    end
-
-  end
-
-end
-

data/test/core/file/test_writelines.rb

@@ -1,21 +0,0 @@
-covers 'facets/file/writelines'
-
-#require File.dirname(__FILE__) + '/helpers/mockfile'
-test_case File do
-
-  class_method :writelines do
-
-    test_file = 'tmp/writelines.txt'
-    test_data = %w[one two three four five]
-
-    test do
-      File.writelines(test_file, test_data)
-
-      out = File.readlines(test_file)
-      out.map{ |l| l.chomp }.assert == test_data
-    end
-
-  end
-
-end
-

data/test/core/filetest/test_root.rb

@@ -1,14 +0,0 @@
-covers 'facets/filetest/root'
-
-test_case FileTest do
-
-  class_method :root? do
-
-    test do
-      assert FileTest.root?('/')
-    end
-
-  end
-
-end
-

data/test/core/functor_tc.rb

@@ -1,41 +0,0 @@
-covers 'facets/functor'
-
-test_case Functor do
-
-  class_method :new do
-
-    test do
-      fc = Functor.new do |op, *a, &b|
-        [op, a, b]
-      end
-      (fc + 1).assert == [:+, [1], nil]
-    end
-
-  end
-
-  method :__class__ do
-
-    test do
-      fc = Functor.new do |op, *a, &b|
-        [op, a, b]
-      end
-      fc.__class__.assert == Functor
-    end
-
-  end
-
-  method :to_proc do
-
-    test do
-      f = Functor.new do |op, *a|
-        [op, *a]
-      end
-      p = f.to_proc
-      p.assert.is_a? Proc
-      p.call(:+,1,2,3).assert == [:+,1,2,3]
-    end
-
-  end
-
-end
-

data/test/core/hash/test_alias.rb

@@ -1,25 +0,0 @@
-covers 'facets/hash/alias'
-
-test_case Hash do
-
-  method :alias! do
-
-    test do
-      foo = { 'a'=>1, 'b'=>2 }
-      foo.alias!('c','b').assert == { 'a'=>1, 'b'=>2, 'c'=>2 }
-    end
-
-    test do
-      foo = { 'a'=>1, 'b'=>2 }
-      foo.alias!(:a,'a').assert == { :a=>1, 'a'=>1, 'b'=>2 }
-    end
-
-    test do
-      foo = { :a=>1, :b=>2 }
-      foo.alias!('bar','foo').assert == { :a=>1, :b=>2 }
-    end
-
-  end
-
-end
-

data/test/core/hash/test_argumentize.rb

@@ -1,23 +0,0 @@
-covers 'facets/hash/argumentize'
-
-test_case Hash do
-
-  method :argumentize do
-
-    setup do
-      @h = { :list => [1,2], :base => "HI" }
-    end
-
-    test "without an argument field" do
-      @h.argumentize.assert == [ { :list => [1,2], :base => "HI" } ]
-    end
-
-    test "with an argument field" do
-      @h.argumentize(:list).assert == [ 1, 2, { :base => "HI" } ]
-      @h.argumentize(:base).assert == [ "HI", { :list => [1,2] } ]
-    end
-
-  end
-
-end
-

data/test/core/hash/test_at.rb

@@ -1,16 +0,0 @@
-covers 'facets/hash/at'
-
-test_case Hash do
-
-  method :at do
-
-    test do
-      h = { :a=>1, :b=>2 }
-      h.at(:a).assert == 1
-      h.at(:b).assert == 2
-    end
-
-  end
-
-end
-

data/test/core/hash/test_autonew.rb

@@ -1,22 +0,0 @@
-covers 'facets/hash/autonew'
-
-test_case Hash do
-
-  class_method :autonew do
-
-    test do
-      h = Hash.autonew
-      h['s1']['p1'] = 4
-      h['s1']['p2'] = 5
-      h['s1']['p3'] = 2
-      h['s1']['p4'] = 3
-    
-      h.assert == {"s1"=>{"p1"=>4, "p4"=>3, "p3"=>2, "p2"=>5}}
-    
-      h['s1'].keys.sort.assert == ["p1", "p2", "p3", "p4"]
-    end
-
-  end
-
-end
-

data/test/core/hash/test_collate.rb

@@ -1,61 +0,0 @@
-covers 'facets/hash/collate'
-
-test_case Hash do
-
-  setup do
-    @a = { :a=>1, :b=>2, :z=>26, :all=>%w|a b z|, :stuff1=>%w|foo bar|, :whee=>%w|a b| }
-    @b = { :a=>1, :b=>4, :c=>9,  :all=>%w|a b c|, :stuff2=>%w|jim jam|, :whee=>%w|a b| }
-    @c = { :a=>1, :b=>8, :c=>27 }
-  end
-
-  method :collate do
-
-    test do
-      collated = @a.collate(@b)
-
-      collated.keys.length.assert == 8
-
-      collated[:a].assert == [1,1]
-      collated[:b].assert == [2,4]
-      collated[:c].assert == [9]
-      collated[:z].assert == [26]
-
-      collated[:all].assert == %w|a b z a b c|
-      collated[:stuff1].assert == %w|foo bar|
-      collated[:stuff2].assert == %w|jim jam|
-      collated[:whee].assert == %w|a b a b|
-    end
-
-    test "multiple times" do
-      collated = @a.collate(@b).collate(@c)
-
-      collated[:a].assert == [1,1,1]
-      collated[:b].assert == [2,4,8]
-      collated[:c].assert == [9,27]
-    end
-
-  end
-
-  method :collate! do
-
-    test "in place variant of #collate" do
-      collated = @a.dup
-      collated.collate!(@b)
-
-      collated.keys.length.assert == 8
-
-      collated[:a].assert == [1,1]
-      collated[:b].assert == [2,4]
-      collated[:c].assert == [9]
-      collated[:z].assert == [26]
-
-      collated[:all].assert == %w|a b z a b c|
-      collated[:stuff1].assert == %w|foo bar|
-      collated[:stuff2].assert == %w|jim jam|
-      collated[:whee].assert == %w|a b a b|
-    end
-
-  end
-
-end
-

data/test/core/hash/test_count.rb

@@ -1,23 +0,0 @@
-covers 'facets/hash/count'
-
-test_case Hash do
-
-  method :count do
-
-    test do
-      {:A=>1, :B=>1, :C=>2}.count(1).assert == 2
-      {:A=>1, :B=>1, :C=>2}.count(2).assert == 1
-    end
-
-    test "no matches" do
-      {:A=>1, :B=>1, :C=>2}.count(3).assert == 0
-    end
-
-    test "still works with Enumerable#count" do
-      {:A=>1, :B=>1, :C=>2}.count.assert == 3
-    end
-
-  end
-
-end
-