y_support 2.1.5 → 2.1.12

data/lib/y_support/typing.rb

@@ -1,34 +1,12 @@
-#encoding: utf-8
+# encoding: utf-8
 
 require 'y_support'
 
 # Typing library.
 #
-# Apart from Ruby default way of typing objects <em>by class and ancestry</em>,
-# exemplified eg. by built-in #kind_of?, alias #is_a? inquirers, y_support
-# typing library provides support for typing <em>by declaration</em>, and
-# runtime assertions for <em>duck type</em> examination.
-# 
-# 1. Using method <b>declare_compliance</b>, a module (class) can explicitly
-# declare, that it provides an interface compliant with another module (class).
-# Corresponding inquirer methods are <b>declared_compliance</b> (returns a list
-# of modules, to which the receiver declares compliance, or implicitly complies
-# by ancestry), and <b>declares_compliance?( other_module )</b>, which tells,
-# whether the receiver complies with a specific module. An object always
-# implicitly complies with its class and ancestry.
-# 
-# 2. Duck type examination is supported by a collection of runtime assertions.
-# These start with <b>tE_...</b>, meaning "enforce ... by raising TypeError".
-# 
-class Object
-  # Alias for ArgumentError
-  # 
-  AErr = ArgumentError
-  
-  # Alias for TypeError
-  # 
-  TErr = TypeError
-end
+# Apart from typing objects <em>by class and ancestry</em> (+#kind_of?+),
+# y_support typing library provides support for typing <em>by declaration</em>,
+# and for runtime assertions.
 
 directories_to_look_in = [ :typing ]
 

data/lib/y_support/unicode.rb

@@ -2,7 +2,8 @@
 
 require 'y_support'
 
-# A tiny number of Unicode 1-character aliases:
+# +y_support/unicode+ defines a small number of Unicode 1-character aliases to
+# make code more concise.
 #
 # * <b>ç</b> – class (c with cedilla, U00E7)
 # * <b>ⓒ</b> – singleton class (copyright sign)
@@ -35,8 +36,7 @@ class Object
   end
 end
 
-
-# Defined aliases:
+# +y_support/unicode+ also defines the following aliases:
 # 
 # * <b>★</b> – alias for include
 # * <b>ç</b> for +class+ in several method names
@@ -50,19 +50,18 @@ class Module
   alias remove_ç_variable remove_class_variable
 end
 
-
-
 # Defined aliases
 # 
 # * <b>√</b> – root of arbitrary degree ( x.√( n ) is n ** ( 1 / x ) ).
 # * <b>sqrt</b> as in +4.sqrt+ for square root (Math#sqrt).
 #
 class Numeric
+  # Returns n-th root of the argument, where n is the receiver number.
+  # 
   def √ number
     number ** ( 1.0 / self )
   end
 
-
   # Square root (using Math#sqrt).
   # 
   def sqrt
@@ -70,7 +69,6 @@ class Numeric
   end
 end
 
-
 # Other abbreviations (eg. for local variables) are optionally encouraged:
 # 
 # * <b>ɱ</b> – module (m with hook, U2C6E, compose seq. [m, j])

data/lib/y_support/version.rb

@@ -1,4 +1,4 @@
 module YSupport
-  VERSION = "2.1.5"
+  VERSION = "2.1.12"
   DEBUG = false
 end

data/lib/y_support/x.rb

@@ -1,17 +1,20 @@
 require 'y_support'
-require 'gtk2'
 
+# Assets related to X windows control.
+# 
 module YSupport::X
-  # Echo a string to the primary X clip with `xsel -b -i`.
-  # 
-  def echo_primary_clipboard( string )
-    system 'echo -n ' + string.inspect + ' | xsel -b -i'
+  # Echo a string to the primary X clip; `xsel -b -i`.
+  #
+  def echo_primary_clipboard string
+    s = 'echo -n ' + string.inspect + ' | xsel -b -i'
+    system s
   end
 
-  # Echo a string to the secondary X clip with `xsel -b -i`.
+  # Echo a string to the secondary X clip; `xsel -b -i`.
   # 
-  def echo_secondary_clipboard( string )
-    system 'echo -n "' + string.inspect + '" | xsel -s -i'
+  def echo_secondary_clipboard string
+    s = 'echo -n ' + string.inspect + ' | xsel -s -i'
+    system s
   end
 
   # Dialog box querying for a string.

data/lib/y_support.rb

@@ -1,5 +1,5 @@
-#encoding: utf-8
+# encoding: utf-8
 
-# YSupport is a collection of methods used in Y gems.
+# YSupport is a collection of methods used  in Y gems.
 # 
 require "y_support/version"

data/test/abstract_algebra_test.rb

@@ -1,41 +1,38 @@
 #! /usr/bin/ruby
 #encoding: utf-8
 
-require 'test/unit'
-require 'shoulda'
-
-# This whole test is one big FIXME
-
-class AbstractAlgebraTest < Test::Unit::TestCase
-  context "Algebra" do
-    setup do
-      require 'y_support/abstract_algebra'
-      # Define the stupidest monoid:
-      @monoid = Class.new { include Algebra::Monoid } # make some class
-      zero = @monoid.new         # call arbitrary instance zero
-      @monoid.class_exec {
-        # Define the stupidest #add method.
-        define_method :add do |other|
-          if self == zero then other
-          elsif other == zero then self
-          else self.class.addition_table[[self, other]] end
-        end
-        # Define the stupidest addition table.
-        instance_variable_set :@addition_table,                      
-                              Hash.new { |ꜧ, k|
-                                ꜧ[k] = if k[0].object_id <= k[1].object_id
-                                         new # just make up an instance
-                                       else
-                                         ꜧ[k[1], k[0]] # swap operands
-                                       end
-                              }
+require 'minitest/autorun'
+
+describe "Algebra" do
+  before do
+    require './../lib/y_support/abstract_algebra'
+    # Define the stupidest monoid:
+    @monoid = Class.new { include Algebra::Monoid } # make some class
+    zero = @monoid.new         # call arbitrary instance zero
+    @monoid.class_exec {
+      # Define the stupidest #add method.
+      define_method :add do |other|
+        if self == zero then other
+        elsif other == zero then self
+        else self.class.addition_table[[self, other]] end
+      end
+      # Define the stupidest addition table.
+      instance_variable_set :@addition_table,                      
+      Hash.new { |ꜧ, k|
+        ꜧ[k] = if k[0].object_id <= k[1].object_id
+                 new # just make up an instance
+               else
+                 ꜧ[k[1], k[0]] # swap operands
+               end
       }
-      # And refine the @monoid's singleton class.
-      @monoid.singleton_class.class_exec { attr_reader :addition_table }
-      @monoid.define_singleton_method :additive_identity do zero end
-    end
+    }
+    # And refine the @monoid's singleton class.
+    @monoid.singleton_class.class_exec { attr_reader :addition_table }
+    @monoid.define_singleton_method :additive_identity do zero end
+  end
 
-    should "have working Monoid" do
+  describe "Algebra" do
+    it "should have working Monoid" do
       m = @monoid.random                  # choose an instance
 
       # #== method
@@ -53,7 +50,7 @@ class AbstractAlgebraTest < Test::Unit::TestCase
       assert @monoid.zero + m == m
     end
 
-    should "have working Group" do
+    it "should have working Group" do
       g = @group.random
 
       # (monoid properties not tested)
@@ -63,7 +60,7 @@ class AbstractAlgebraTest < Test::Unit::TestCase
       assert (-g) + g == @group.zero
     end
 
-    should "define AbelianGroup" do
+    it "should define AbelianGroup" do
       ag = @abelian_group.random
 
       # (group properties not tested)
@@ -73,7 +70,7 @@ class AbstractAlgebraTest < Test::Unit::TestCase
       assert ag + bh == bh + ag
     end
 
-    should "define Ring" do
+    it "should define Ring" do
       r = @ring.random
 
       # (abelian group properties with respect to addition not tested)
@@ -93,7 +90,7 @@ class AbstractAlgebraTest < Test::Unit::TestCase
       assert r * ( s + t ) == ( r * s ) + ( s * t )
     end
 
-    should "define Field" do
+    it "should define Field" do
       f = @field.random
 
       # (ring properties not tested)
@@ -105,43 +102,35 @@ class AbstractAlgebraTest < Test::Unit::TestCase
     end
   end
 
-  context "numerics" do
-    setup do
-      require 'y_support/abstract_algebra'
-    end
-
-    should "have patched Integer" do
+  describe "numerics" do
+    it "should have patched Integer" do
       assert Integer.zero.equal? 0
     end
 
-    should "have patched Float" do
+    it "should have patched Float" do
       assert Float.zero.equal? 0.0
     end
 
-    should "have patched Rational" do
+    it "should have patched Rational" do
       assert Rational.zero.equal? Rational( 0, 0 )
     end
 
-    should "have patched Complex" do
+    it "should have patched Complex" do
       assert Complex.zero.equal? Complex( 0, 0 )
     end
   end
 
-  context "Matrix" do
-    setup do
-      require 'y_support/abstract_algebra'
-    end
-
-    should "have Matrix.wildcard_zero public instance method" do
+  describe "Matrix" do
+    it "should have Matrix.wildcard_zero public instance method" do
       # FIXME
     end
 
-    should "be able to perform #* with nonnumerics in the matrix" do
+    it "should be able to perform #* with nonnumerics in the matrix" do
       # FIXME
     end
 
-    should "numeric matrix multiplication still be working normally" do
+    it "should numeric matrix multiplication still be working normally" do
       # FIXME
     end
   end # context Matrix
-end # class AbstractAlgebraTest
+end

data/test/inert_recorder_test.rb

@@ -1,26 +1,21 @@
 #! /usr/bin/ruby
-#encoding: utf-8
+# encoding: utf-8
 
-require 'test/unit'
-require 'shoulda'
+require 'minitest/autorun'
 
-class YSupportTest < Test::Unit::TestCase
-  context "Object" do
-    setup do
-      require 'y_support/inert_recorder'
-    end
+describe "InertRecorder"  do
+  before do
+    require './../lib/y_support/inert_recorder'
+  end
 
-    should "have #InertRecorder() constructor" do
+  describe "Object" do
+    it "should have #InertRecorder() constructor" do
       assert_equal InertRecorder, InertRecorder( :bull ).class
     end
-  end # context Object
+  end
   
-  context "InertRecorder" do
-    setup do
-      require 'y_support/inert_recorder'
-    end
-
-    should "InertRecorder exist and comply" do
+  describe "InertRecorder" do
+    it "should InertRecorder exist and comply" do
       n = InertRecorder.new
       assert_equal [true, false], [n.present?, n.blank?]
       assert_respond_to InertRecorder.new, :arbitrary_message
@@ -30,5 +25,5 @@ class YSupportTest < Test::Unit::TestCase
       assert_equal [ :arbitrary_message, [:a, :b] ], n.recorded_messages[0][0..1]
       assert_equal "hello", n.recorded_messages[0][2].call
     end
-  end # context InertRecorder
-end # class InertRecorderTest
+  end
+end

data/test/local_object_test.rb

@@ -1,37 +1,32 @@
 #! /usr/bin/ruby
 #encoding: utf-8
 
-require 'test/unit'
-require 'shoulda'
+require 'minitest/autorun'
 
-class LocalObjectTest < Test::Unit::TestCase
-  context "Object" do
-    setup do
-      require 'y_support/local_object'
-    end
+describe "LocalObject" do
+  before do
+    require './../lib/y_support/local_object'
+  end
 
-    should "have constructor #LocalObject, alias #L!" do
+  describe "Object" do
+    it "should have constructor #LocalObject, alias #L!" do
       assert_equal LocalObject, LocalObject().class
       assert_equal LocalObject, L!.class
     end
 
-    should "have #local_object?, alias #ℓ?" do
+    it "should have #local_object?, alias #ℓ?" do
       assert_equal false, Object.new.local_object?
       assert_equal false, Object.new.ℓ?
     end
-  end # context Object
+  end
   
-  context "LocalObject" do
-    setup do
-      require 'y_support/local_object'
-    end
-
-    should "exist and comply" do
+  describe "LocalObject" do
+    it "should exist and comply" do
       n = LocalObject.new 'whatever'
       assert ! n.ℓ?
       assert n.ℓ? 'whatever'
       assert_equal 'whatever', n.signature
       assert_equal 'whatever', n.σ
     end
-  end # context LocalObject
-end # class LocalObjectTest
+  end
+end

data/test/misc_test.rb

@@ -5,7 +5,7 @@ require 'minitest/autorun'
 
 describe Object do
   before do
-    require 'y_support/core_ext/object'
+    require './../lib/y_support/core_ext/object'
   end
 
   it "should have #param_class" do
@@ -20,7 +20,7 @@ end
 
 describe Module do
   before do
-    require 'y_support/core_ext/module'
+    require './../lib/y_support/core_ext/module'
   end
 
   it "has #const_set_if_not_defined and #const_reset!" do
@@ -29,13 +29,18 @@ describe Module do
     m::Foo.must_equal 42
     m.const_reset! :Foo, 43
     m::Foo.must_equal 43
+    m.module_exec do
+      def a; 42 end
+      chain b: :a, &:to_s
+    end
+    Class.new do include m end.new.b.must_equal "42"
   end
 end
 
 
 describe Class do
   before do
-    require 'y_support/core_ext/class'
+    require './../lib/y_support/core_ext/class'
   end
 
   it "has #parametrize method" do
@@ -49,7 +54,7 @@ end
 
 describe Enumerable do
   before do
-    require 'y_support/core_ext/enumerable'
+    require './../lib/y_support/core_ext/enumerable'
   end
 
   it "should introduce #all_kind_of? collection qualifier" do
@@ -73,7 +78,7 @@ end
 
 describe Array do
   before do
-    require 'y_support/core_ext/array'
+    require './../lib/y_support/core_ext/array'
   end
 
   it "has #arrays_to_hash" do
@@ -135,7 +140,7 @@ end
 
 describe Hash do
   before do
-    require 'y_support/core_ext/hash'
+    require './../lib/y_support/core_ext/hash'
   end
 
   it "should have #default! custom defaulter" do
@@ -206,7 +211,7 @@ end
 describe "Matrix" do
   before do
     require 'matrix'
-    require 'y_support/stdlib_ext/matrix'
+    require './../lib/y_support/stdlib_ext/matrix'
   end
 
   it "should have #pp method" do
@@ -256,7 +261,7 @@ end
 
 describe String do
   before do
-    require 'y_support/core_ext/string'
+    require './../lib/y_support/core_ext/string'
   end
 
   it "should have #can_be_integer? returning the integer or false if not convertible" do
@@ -312,7 +317,7 @@ end
 
 describe Symbol do
   before do
-    require 'y_support/core_ext/symbol'
+    require './../lib/y_support/core_ext/symbol'
   end
 
   it "should have #default! defaulter going through String#default!" do
@@ -331,7 +336,7 @@ end
 
 describe Numeric do
   before do
-    require 'y_support/core_ext/numeric'
+    require './../lib/y_support/core_ext/numeric'
   end
 
   it "should have #zero public class methods" do

data/test/name_magic_test.rb

@@ -2,7 +2,7 @@
 #encoding: utf-8
 
 require 'minitest/autorun'
-require 'y_support/name_magic'
+require './../lib/y_support/name_magic'
 
 describe NameMagic do
   before do

data/test/null_object_test.rb

@@ -1,45 +1,38 @@
 #! /usr/bin/ruby
 #encoding: utf-8
 
-require 'test/unit'
-require 'shoulda'
+require 'minitest/autorun'
 
-class NullObjectTest < Test::Unit::TestCase
-  context 'Object' do
-    setup do
-      require 'y_support/null_object'
-    end
+describe "y_support/null_object" do
+  before do
+    require './../lib/y_support/null_object'
+  end
 
-    should "Object have #null_object? (alias #null?)" do
-      require 'y_support/null_object'
-      assert_equal true, (class Koko < NullObject; self end).new.null_object?
-      assert_equal true, (class Koko < NullObject; self end).new.null?
-      assert_equal [false, false], [nil.null_object?, nil.null?]
-      assert_equal true, NullObject.new( :koko ).null?( :koko )
-      assert_equal false, NullObject.new( :koko ).null?( :pipi )
+  describe Object do
+    it "should have #null_object? (alias #null?)" do
+      assert ( class Koko < NullObject; self end ).new.null_object?
+      assert ( class Koko < NullObject; self end ).new.null?
+      assert_equal [ false, false ], [ nil.null_object?, nil.null? ]
+      assert NullObject.new( :koko ).null?( :koko )
+      assert ! NullObject.new( :koko ).null?( :pipi )
     end
 
-    should "Object have #Maybe() constructor for something / NullObject" do
+    it "should have #Maybe() constructor for something / NullObject" do
       assert_equal NullObject, Maybe(nil).class
       assert_equal 42, Maybe(42)
     end
     
-    should "Object have #Null() constructor always returning NullObject" do
+    it "should have #Null() constructor always returning NullObject" do
       assert_equal NullObject, Null().class
     end
   end # context Object
   
-  context "NullObject" do
-    setup do
-      require 'y_support/null_object'
-    end
-
-    should "NullObject exist and comply" do
+  describe "NullObject" do
+    it "should NullObject exist and comply" do
       n = NullObject.new
-      assert_equal [[], "#<NullObject>", 0.0, 0], [n.to_a, n.to_s, n.to_f, n.to_i]
+      [n.to_a, n.to_s, n.to_f, n.to_i].must_equal [ [], "#<NullObject>", 0.0, 0 ]
       assert_equal [false, true], [n.present?, n.empty?]
-      assert_nothing_raised { NullObject.new.
-        must_have_attr_reader( :recorded_messages ) }
+      NullObject.new.must_have_attr_reader( :recorded_messages )
       assert_respond_to NullObject.new, :arbitrary_message
       n = NullObject.new :x
       n.arbitrary_message( :a, :b ) { "hello" }
@@ -47,4 +40,4 @@ class NullObjectTest < Test::Unit::TestCase
       assert_equal "#<NullObject kokotina>", NullObject.new( :kokotina ).inspect
     end
   end # context NullObject
-end # class NullObjectTest
+end

data/test/respond_to_test.rb

@@ -1,22 +1,21 @@
 #! /usr/bin/ruby
 #encoding: utf-8
 
-require 'test/unit'
-require 'shoulda'
+require 'minitest/autorun'
 
-class RespondToTest < Test::Unit::TestCase
-  context "Object" do
-    setup do
-      require 'y_support/respond_to'
-    end
+describe "y_support/typing" do
+  before do
+    require './../lib/y_support/respond_to'
+  end
 
-    should "have RespondTo() constructor" do
+  describe Object do
+    it "should have RespondTo() constructor" do
       assert_equal RespondTo, RespondTo( :inspect ).class
     end
-  end # context Object
+  end
 
-  context "RespondTo" do
-    should "work" do
+  describe "RespondTo" do
+    it "should work" do
       assert_respond_to( RespondTo.new(:hello), :=== )
       assert RespondTo.new(:each_char) === "arbitrary string"
       assert ! ( RespondTo.new(:each_char) === Object.new )
@@ -29,10 +28,10 @@ class RespondToTest < Test::Unit::TestCase
                when RespondTo.new(:improbab_method_name) then 1
                else false end
     end
-  end # context RespondTo
+  end
 
-  context "Symbol" do
-    should "have Symbol#~@ for .respond_to? case statements" do
+  describe Symbol do
+    it "should have Symbol#~@ for .respond_to? case statements" do
       assert_kind_of RespondTo, ~:hello
       assert RespondTo(:<<) === "testing"
       assert case ?x
@@ -42,5 +41,5 @@ class RespondToTest < Test::Unit::TestCase
                when ~:improbab_method_name then 1
                else false end
     end
-  end # context Symbol
-end # class RespondToTest
+  end
+end