fuby 0.0.1

data/test/fuby/pop_options.rb

@@ -0,0 +1,31 @@
+require 'fuby/pop_options'
+
+using Fuby
+
+describe Array do
+  describe "pop_options" do
+    it "pops the last element if is_a? Hash" do
+
+      xs = [1, 2, 3, { a:1 }]
+      xs.pop_options.must_equal a:1
+      xs.must_equal [1, 2, 3]
+
+    end
+    it "creates and returns a new hash unless the last element is_a? Hash" do
+
+      xs = [1, 2, 3]
+      xs.pop_options.must_equal Hash.new
+      xs.must_equal [1, 2, 3]
+
+    end
+    it "merges any given options as defaults" do
+
+      xs = [1, 2, 3, { a:1, b:2, c:3 }]
+      xs.pop_options({ b:20 }, c:300).must_equal a:1, b:2, c:3
+
+      xs = [1, 2, 3, { a:1 }]
+      xs.pop_options({ b:20, c:30 }, c:300).must_equal a:1, b:20, c:30
+
+    end
+  end
+end

data/test/fuby/prefixes.rb

@@ -0,0 +1,13 @@
+require 'fuby/prefixes'
+
+using Fuby
+
+describe Array do
+  describe "prefixes" do
+    it "returns an Enumerable of the prefixes of self, longest first" do
+
+      [1, 2, 3].prefixes.to_a.must_equal [[1, 2, 3], [1, 2], [1]]
+
+    end
+  end
+end

data/test/fuby/prepend.rb

@@ -0,0 +1,34 @@
+require 'fuby/prepend'
+
+using Fuby
+
+describe Module do
+  describe "prepend &block" do
+    it "creates and prepends a module based on the given &block" do
+
+      klass = Class.new do
+
+        include Module.new {
+          def foo
+            '1st'
+          end
+        }
+
+        def foo
+          '2nd' + super
+        end
+
+      end
+      klass.prepend! do
+
+        def foo
+          '3rd' + super
+        end
+
+      end
+      klass.new.must_respond_to :foo
+      klass.new.foo.must_equal '3rd2nd1st'
+
+    end
+  end
+end

data/test/fuby/push_options.rb

@@ -0,0 +1,32 @@
+require 'fuby/push_options'
+
+using Fuby
+
+describe Array do
+  describe "push_options" do
+    it "returns the last element if is_a? Hash" do
+
+      opt = { a: 1 }
+      xs = [1, 2, 3, opt]
+      xs.push_options.must_be_same_as opt
+      xs.must_equal [1, 2, 3, opt]
+
+    end
+    it "creates and returns a new hash which is pushed onto self" do
+
+      xs = [1, 2, 3]
+      xs.push_options.must_equal Hash.new
+      xs.must_equal [1, 2, 3, Hash.new]
+
+    end
+    it "merges any given options as defaults" do
+
+      xs = [1, 2, 3, { a:1, b:2, c:3 }]
+      xs.push_options({ b:20 }, c:300).must_equal a:1, b:2, c:3
+
+      xs = [1, 2, 3]
+      xs.push_options({ b:20, c:30 }, c:300).must_equal b:20, c:30
+
+    end
+  end
+end

data/test/fuby/submodule.rb

@@ -0,0 +1,15 @@
+require 'fuby/submodule'
+
+using Fuby
+
+describe Module do
+  describe "submodule *includes" do
+    it "returns a new module including self and the given *includes" do
+
+      includes = [Module.new, Module.new, Module.new]
+
+      Module.new.submodule *includes
+
+    end
+  end
+end

data/test/fuby/suffixes.rb

@@ -0,0 +1,13 @@
+require 'fuby/suffixes'
+
+using Fuby
+
+describe Array do
+  describe "suffixes" do
+    it "returns an Enumerable of the suffixes of self, longest first" do
+
+      [1, 2, 3].suffixes.to_a.must_equal [[1, 2, 3], [2, 3], [3]]
+
+    end
+  end
+end

data/test/fuby/tap.rb

@@ -0,0 +1,58 @@
+require 'fuby/tap'
+
+using Fuby
+
+describe Object do
+  %w{ tap tap? tap! }.each { |w| eval %{
+    describe :#{ w } do
+      it "returns self unless block_given?" do
+
+        obj = Object.new
+        obj.must_be_same_as obj.#{ w }
+
+      end
+      it "calls the given block with self, and returns self" do
+
+        obj = Object.new
+        obj.#{ w } { |arg| arg.must_be_same_as obj }.must_be_same_as obj
+
+      end
+    end
+  }}
+end
+describe NilClass do
+  describe :tap do
+    it "calls the block_given with self, and returns self" do
+     
+      called = false
+      nil.tap { called = true }
+      called.must_equal true
+      nil.tap { |arg| arg.must_be_nil }.must_be_nil
+      nil.tap.must_be_nil
+
+    end
+  end
+  %w{ tap? tap_each }.each { |w| eval %{
+
+    describe :#{ w } do
+      it "returns self without calling the block_given" do
+
+        called = false
+        nil.#{ w } { called = true }
+        called.must_equal false
+        nil.#{ w } { 99 }.must_be_nil
+        nil.#{ w }.must_be_nil
+
+      end
+    end
+
+  }}
+  describe :tap! do
+    it "raises TypeError" do
+
+      nil.tap! { 99 }.must_raise TypeError rescue nil
+      nil.tap!.must_raise TypeError rescue nil
+
+    end
+  end
+end

data/test/fuby/to_boolean.rb

@@ -0,0 +1,31 @@
+require 'fuby/to_boolean'
+
+using Fuby
+
+describe Numeric do
+  describe "to_boolean" do
+    it "converts self to a boolean according to the common interpretation" do
+
+      0.to_boolean.must_equal false
+      1.to_boolean.must_equal true
+      +0.1.to_boolean.must_equal true
+      -0.1.to_boolean.must_equal false
+    end
+  end
+end
+
+describe String do
+  describe "to_boolean" do
+    it "converts self to a boolean according to the common interpretation" do
+
+      "1".to_boolean.must_equal true
+      "t".to_boolean.must_equal true
+      "true".to_boolean.must_equal true
+      "TRUE".to_boolean.must_equal true
+      "yes".to_boolean.must_equal true
+      "y".to_boolean.must_equal true
+      "goo".to_boolean.must_equal false
+
+    end
+  end
+end

data/test/fuby/to_camel_case.rb

@@ -0,0 +1,15 @@
+require 'fuby/to_camel_case'
+
+using Fuby
+
+describe Symbol do
+  describe "to_camelCase" do
+    it "converts self to a camelCase symbol" do
+
+      :html5_the_5th_element.to_camelCase.must_equal :html5The5thElement
+      :HTML5TH.to_CamelCase.must_equal :Html5th
+      :HTML5th.to_CamelCase.must_equal :HTML5th
+
+    end
+  end
+end

data/test/fuby/to_dash_case.rb

@@ -0,0 +1,15 @@
+require 'fuby/to_dash_case'
+
+using Fuby
+
+describe Symbol do
+  describe "to_dash_case" do
+    it "converts self to a dash-case symbol" do
+
+      :html5_the_5th_element.to_dash_case.must_equal :"html5-the-5th-element"
+      :HTML5TH.to_dash_case.must_equal :"html-5th"
+      :HTML5th.to_dash_case.must_equal :"html-5th"
+
+    end
+  end
+end

data/test/fuby/to_hash.rb

@@ -0,0 +1,23 @@
+require 'fuby/to_hash'
+
+using Fuby
+
+describe Enumerable do
+  describe "to_hash" do
+    it "returns a Hash with the indicies of self as keys" do
+
+      [1, 2, 3].to_hash.must_equal 0 => 1, 1 => 2, 2 => 3
+
+    end
+  end
+end
+
+describe Hash do
+  describe "to_hash" do
+    it "returns a copy of self" do
+
+      { a:1 }.must_equal a:1
+
+    end
+  end
+end

data/test/fuby/to_pred.rb

@@ -0,0 +1,25 @@
+require 'fuby/to_pred'
+
+using Fuby
+
+describe Module do
+  describe "to_pred" do
+    it "returns a Proc that returns whether its argument kind_of? self" do
+
+      Symbol.to_pred.call(:foo).must_equal true
+      Symbol.to_pred.call('foo').must_equal false
+
+    end
+  end
+end
+
+describe Regexp do
+  describe "to_pred" do
+    it "returns a Proc that returns whether its argument matches self" do
+
+      /foo/.to_pred.call(:foo).must_equal true
+      /foo/.to_pred.call('foo').must_equal true
+
+    end
+  end
+end

data/test/fuby/to_proc.rb

@@ -0,0 +1,56 @@
+require 'fuby/to_proc'
+
+using Fuby
+
+describe Array do
+  describe "to_proc" do
+    it "returns a Proc that interprets `self` as a lookup table" do
+
+      [1, 2, 3].to_proc.call(1).must_equal 2
+
+    end
+  end
+end
+
+describe Hash do
+  describe "to_proc" do
+    it "returns a Proc that interprets `self` as a fuzzy lookup table" do
+
+      { /foo/ => true, /bar/ => false }.to_proc.call('foo').must_equal true
+      { Integer => true, Float => false }.to_proc.call(4).must_equal true
+
+      [1, 1.0].map(&{ Integer => true, Float => false }.to_proc).must_equal [true, false]
+
+    end
+  end
+end
+
+describe String do
+  describe "to_proc" do
+    it "returns a Proc based on `self` as a format string" do
+
+      "%s_%s".to_proc.call(5, 'a').must_equal "5_a"
+
+    end
+  end
+end
+
+describe Regexp do
+  describe "to_proc" do
+    it "returns a Proc based on `self` as a grouping expression" do
+
+      /_(\w+)_/.to_proc.call("_foo_").must_equal "foo"
+
+    end
+  end
+end
+
+describe Integer do
+  describe "to_proc" do
+    it "returns a Proc that takes an array and returns the element at this index" do
+
+      1.to_proc.call([1, 2]).must_equal 2
+
+    end
+  end
+end

data/test/fuby/to_regexp.rb

@@ -0,0 +1,38 @@
+require 'fuby/to_regexp'
+
+using Fuby
+
+describe Regexp do
+  describe "to_regexp" do
+    it "returns a copy of self" do
+
+      re = /fun/
+      re.to_regexp.must_equal re.dup
+
+    end
+  end
+end
+
+describe Array do
+  describe "to_regexp" do
+    it "returns the disjunction of terms contained in self" do
+
+      [ /abra/, /cadabra/ ].to_regexp.must_equal /abra|cadabra/
+
+    end
+  end
+end
+
+describe String do
+  describe "to_regexp" do
+    it "returns a Regexp that matches this string exactly" do
+
+      "foo".must_match "foo".to_regexp
+      "__foo__".must_match "foo".to_regexp
+      "a foo".must_match "foo".to_regexp
+      "a food".wont_match "foo".to_regexp
+      "food".wont_match "foo".to_regexp
+
+    end
+  end
+end