dslkit 0.2.0

data/tests/test_common.rb

@@ -0,0 +1,180 @@
+require 'test/unit'
+require 'tempfile'
+
+class TC_DSLKit < Test::Unit::TestCase
+  def setup
+    @tl = TL.new
+    @tl2 = TL.new
+    @ie = IE.new { foo }
+    @c  = C.new
+    @da = DA.new
+    @i  = I.new
+  end
+
+  def test_thread_local
+    assert_nil @tl.foo
+    @tl.foo = 1
+    assert_equal 1, @tl.foo
+    new_foo = nil
+    thread = Thread.new do
+      @tl.foo = 2
+      new_foo = @tl.foo
+    end
+    thread.join
+    assert_equal 2, new_foo
+    assert_equal 1, @tl.foo
+    assert_equal @tl.baz, @tl2.baz
+  end
+
+  def test_instance_thread_local
+    assert_nil @tl.baz
+    @tl.baz = 1
+    assert_equal 1, @tl.baz
+    new_foo = nil
+    thread = Thread.new do
+      @tl.baz = 2
+      new_foo = @tl.baz
+    end
+    thread.join
+    assert_equal 2, new_foo
+    assert_equal 1, @tl.baz
+    assert_not_equal @tl.baz, @tl2.baz
+  end
+
+  def test_thread_global
+    assert_nil @tl.bar
+    @tl.bar = 1
+    assert_equal 1, @tl.bar
+    new_bar = nil
+    thread = Thread.new do
+      @tl.bar = 2
+      new_bar = @tl.bar
+    end
+    thread.join
+    assert_equal 2, new_bar
+    assert_equal 2, @tl.bar
+  end
+
+  def test_instance_exec
+    assert_equal :foo, @ie.foo
+    assert_equal :foo, @ie.exec
+    @ie.freeze
+    assert_equal :foo, @ie.foo
+    assert_equal :foo, @ie.exec
+  end
+
+  def test_constant
+    assert_equal :foo, @c.foo
+  end
+
+  def test_dsl_accessor
+    assert_nil @da.foo
+    assert_equal :bar, @da.bar
+    assert_equal :baz, @da.baz
+    assert_equal [:qu, :ux], @da.quux
+    @da.foo 1
+    @da.bar 2
+    @da.baz 3
+    assert_equal 1, @da.foo
+    assert_equal 2, @da.bar
+    assert_equal 3, @da.baz
+  end
+
+  def test_dsl_reader
+    assert_equal true, @da.on
+    assert_equal false, @da.off
+    assert_raises(ArgumentError) do
+      @da.on false
+    end
+    assert_equal [ @da.on, @da.off ], @da.states
+    assert_equal %w[a b c], @da.abc
+    @da.abc << 'd'
+    assert_equal %w[a b c d], @da.abc
+    @da.instance_variable_set :@abc, %w[a b c]
+    assert_equal %w[a b c], @da.abc
+  end
+
+  def test_dsl_accessor_multiple
+    assert_nil @da.foo
+    assert_equal :bar, @da.bar
+    @da.foo 1, 2
+    @da.bar [1, 2]
+    assert_equal [1, 2], @da.foo
+    assert_equal [1, 2], @da.bar
+    @da.bar [1, 2, *@da.bar]
+    assert_equal [1, 2] * 2, @da.bar
+  end
+
+  def test_interpreter
+    assert_equal :foo, @i.interpret('foo')
+    temp = Tempfile.new('foo')
+    temp.write 'foo'
+    temp.rewind
+    assert_equal :foo, @i.interpret(temp)
+  end
+
+  def test_interpreter_with_args
+    assert_equal 3, @i.interpret('|x| x + y', 1)
+    temp = Tempfile.new('foo')
+    temp.write '|x| x + y'
+    temp.rewind
+    assert_equal 3, @i.interpret(temp, 1)
+  end
+
+  def test_symbol_maker
+    if defined? S
+      s = S.new
+      assert_equal(:foo, s.instance_exec { foo })
+      assert_raises(NoMethodError) { s.instance_exec { foo 1 }}
+    end
+  end
+
+  def test_constant_maker
+    if defined? K
+      assert_equal(:FOO, K::FOO)
+    end
+  end
+
+  def test_deflect_block
+    assert_raises(NoMethodError) { 1.foo }
+    assert !D.deflect?(Integer, :foo)
+    D.deflect(Integer, :foo, DSLKit::Deflect::Deflector.new { :foo }) do
+      assert_equal :foo, 1.foo
+      assert D.deflect?(Integer, :foo)
+    end
+    assert !D.deflect?(Integer, :foo)
+    assert_raises(NoMethodError) { 1.foo }
+  end
+
+  def test_deflect
+    assert_raises(NoMethodError) { 1.foo }
+    assert !D.deflect?(Integer, :foo)
+    D.deflect_start(Integer, :foo, DSLKit::Deflect::Deflector.new { :foo })
+    assert_equal :foo, 1.foo
+    assert D.deflect?(Integer, :foo)
+    t = Thread.new do
+      assert !D.deflect?(Integer, :foo)
+      assert_raises(NoMethodError) { 1.foo }
+    end
+    t.join
+    D.deflect_stop(Integer, :foo)
+    assert !D.deflect?(Integer, :foo)
+    assert_raises(NoMethodError) { 1.foo }
+  end
+
+  def test_deflect_method_missing
+    assert_raises(NoMethodError) { 1.foo }
+    assert !D.deflect?(Integer, :method_missing)
+    D.deflect_start(Integer, :method_missing, DSLKit::Deflect::Deflector.new { :foo })
+    assert_equal :foo, 1.foo
+    assert D.deflect?(Integer, :method_missing)
+    t = Thread.new do
+      assert !D.deflect?(Integer, :method_missing)
+      assert_raises(NoMethodError) { 1.foo }
+    end
+    t.join
+    D.deflect_stop(Integer, :method_missing)
+    assert !D.deflect?(Integer, :method_missing)
+    assert_raises(NoMethodError) { 1.foo }
+  end
+end

data/tests/test_polite.rb

@@ -0,0 +1,91 @@
+$:.unshift '../lib'
+$:.unshift 'tests'
+require 'dslkit/polite'
+
+class TL
+  def initialize
+    make_baz
+  end
+
+  extend DSLKit::ThreadLocal
+  thread_local :foo
+
+  include DSLKit::ThreadLocal
+  def make_baz
+    instance_thread_local :baz
+  end
+
+  extend DSLKit::ThreadGlobal
+  thread_global :bar
+end
+
+class IE
+  include DSLKit::InstanceExec
+
+  def initialize(&block)
+    @block = block
+  end
+
+  def exec
+    instance_exec(&@block)
+  end
+
+  def foo
+    :foo
+  end
+end
+
+class C
+  extend DSLKit::Constant
+
+  constant :foo, :foo
+end
+
+class DA
+  extend DSLKit::DSLAccessor
+
+  dsl_accessor :foo
+
+  dsl_accessor :bar, :bar
+
+  dsl_accessor :baz do :baz end
+
+  dsl_accessor :quux, :qu, :ux
+
+  dsl_reader :on, true 
+
+  dsl_reader :off, false
+
+  dsl_reader :states do
+    [ on, off ]
+  end
+
+  dsl_reader :abc, *%w[a b c]
+end
+
+class I
+  include DSLKit::Interpreter
+
+  def foo
+    :foo
+  end
+  
+  def y
+    2
+  end
+end
+
+class S
+  include DSLKit::InstanceExec
+  include DSLKit::SymbolMaker
+end
+
+module K
+  extend DSLKit::ConstantMaker
+end
+
+module D
+  extend DSLKit::Deflect
+end
+
+require 'test_common'

data/tests/test_rude.rb

@@ -0,0 +1,70 @@
+$:.unshift '../lib'
+$:.unshift 'tests'
+require 'dslkit/rude'
+
+class TL
+  def initialize
+    make_baz
+  end
+
+  thread_local :foo
+
+  def make_baz
+    instance_thread_local :baz
+  end
+
+  thread_global :bar
+end
+
+class IE
+  def initialize(&block)
+    @block = block
+  end
+
+  def exec
+    instance_exec(&@block)
+  end
+
+  def foo
+    :foo
+  end
+end
+
+class C
+  constant :foo, :foo
+end
+
+class DA
+  dsl_accessor :foo
+
+  dsl_accessor :bar, :bar
+
+  dsl_accessor :baz do :baz end
+
+  dsl_accessor :quux, :qu, :ux
+
+  dsl_reader :on, true 
+
+  dsl_reader :off, false
+
+  dsl_reader :states do
+    [ on, off ]
+  end
+
+  dsl_reader :abc, *%w[a b c]
+end
+
+class I
+  def foo
+    :foo
+  end
+
+  def y
+    2
+  end
+end
+
+module D
+end
+
+require 'test_common'

metadata

@@ -0,0 +1,69 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.8.11
+specification_version: 1
+name: dslkit
+version: !ruby/object:Gem::Version 
+  version: 0.2.0
+date: 2006-09-22 00:00:00 +02:00
+summary: Kit for building DSLs in Ruby
+require_paths: 
+- lib
+email: flori@ping.de
+homepage: http://dslkit.rubyforge.org
+rubyforge_project: dslkit
+description: This library contains recurring patterns, that are useful in the creation of internal Domain Specific Languages (DSL) in Ruby.
+autorequire: 
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+authors: 
+- Florian Frank
+files: 
+- tests
+- lib
+- examples
+- Rakefile
+- GPL
+- TODO
+- VERSION
+- CHANGES
+- install.rb
+- tests/test_common.rb
+- tests/test_rude.rb
+- tests/test_polite.rb
+- tests/runner.rb
+- lib/dslkit
+- lib/dslkit.rb
+- lib/dslkit/polite.rb
+- lib/dslkit/rude.rb
+- examples/recipe_common.rb
+- examples/subtract.reg
+- examples/mail.rb
+- examples/null_pattern.rb
+- examples/recipe.rb
+- examples/mm.rb
+- examples/multiply.reg
+- examples/recipe2.rb
+test_files: 
+- tests/runner.rb
+rdoc_options: []
+
+extra_rdoc_files: []
+
+executables: []
+
+extensions: []
+
+requirements: []
+
+dependencies: []
+