ClsRuby 1.0.0

data/tests/tc_tag_scalar_nonspace_string.rb

@@ -0,0 +1,46 @@
+$:.unshift( File.join( File.dirname( __FILE__ ), '../lib' ) )
+
+require 'test/unit'
+
+require 'cls-ruby/parser'
+require 'cls-ruby/tag_scalar'
+
+class TC_TagScalarNonspaceString < Test::Unit::TestCase
+  def setup
+    @tag = ClsRuby::TagScalar.new :name => 'test',
+        :format => ClsRuby::SCALAR_NONSPACE_STRING
+  end
+
+  def test_normal
+    assert_nothing_raised do
+      ClsRuby::parse_string '{test 1234 }', @tag
+    end
+
+    assert_equal( "1234", @tag.value )
+  end
+
+  def test_no_value
+    assert_raise( ClsRuby::ParsingErrorEx ) do
+      ClsRuby::parse_string( '{test}', @tag )
+    end
+  end
+
+  def test_two_tags
+    assert_raise( ClsRuby::ParsingErrorEx ) do
+      ClsRuby::parse_string( '{test 1} {test 2}', @tag )
+    end
+  end
+
+  def test_two_values
+    assert_raise( ClsRuby::ParsingErrorEx ) do
+      ClsRuby::parse_string( '{test 1 2}', @tag )
+    end
+  end
+
+  def test_string_as_value
+    assert_raise( ClsRuby::ParsingErrorEx ) do
+      ClsRuby::parse_string( '{test "1"}', @tag )
+    end
+  end
+end
+

data/tests/tc_tag_scalar_string.rb

@@ -0,0 +1,47 @@
+$:.unshift( File.join( File.dirname( __FILE__ ), '../lib' ) )
+
+require 'test/unit'
+
+require 'cls-ruby/parser'
+require 'cls-ruby/tag_scalar'
+require 'cls-ruby/basic_scalars'
+
+class TC_TagScalarString < Test::Unit::TestCase
+  def setup
+    @tag = ClsRuby::TagScalar.new :name => 'test',
+        :format => ClsRuby::SCALAR_STRING
+  end
+
+  def test_normal
+    assert_nothing_raised do
+      ClsRuby::parse_string '{test "1 2  34"}', @tag
+    end
+
+    assert_equal( "1 2  34", @tag.value )
+  end
+
+  def test_no_value
+    assert_raise( ClsRuby::ParsingErrorEx ) do
+      ClsRuby::parse_string( '{test}', @tag )
+    end
+  end
+
+  def test_two_tags
+    assert_raise( ClsRuby::ParsingErrorEx ) do
+      ClsRuby::parse_string( '{test "1"} {test "2"}', @tag )
+    end
+  end
+
+  def test_two_values
+    assert_raise( ClsRuby::ParsingErrorEx ) do
+      ClsRuby::parse_string( '{test "1" "2"}', @tag )
+    end
+  end
+
+  def test_nonspace_as_value
+    assert_raise( ClsRuby::ParsingErrorEx ) do
+      ClsRuby::parse_string( '{test 1}', @tag )
+    end
+  end
+end
+

data/tests/tc_tag_scalar_vector_int.rb

@@ -0,0 +1,88 @@
+$:.unshift( File.join( File.dirname( __FILE__ ), '../lib' ) ) 
+require 'test/unit'
+
+require 'cls-ruby/parser'
+require 'cls-ruby/tag_scalar_vector'
+
+class TC_TagScalarVectorInt < Test::Unit::TestCase
+  def setup
+    @tag = ClsRuby::TagScalarVector.new :name => 'test',
+        :format => ClsRuby::SCALAR_INT,
+        :constraint => 1..1000
+  end 
+
+  def test_normal_single_value
+    assert_nothing_raised do
+      ClsRuby::parse_string '{test 234}', @tag
+    end
+
+    assert_equal( [ 234 ], @tag.value )
+  end
+
+  def test_normal_multi_values
+    assert_nothing_raised do
+      ClsRuby::parse_string '{test 234 345 763 48 1}', @tag
+    end
+
+    assert_equal( [ 234, 345, 763, 48, 1 ], @tag.value )
+  end
+
+  def test_fetch
+    assert_nothing_raised do
+      ClsRuby::parse_string '', @tag
+    end
+
+    assert_equal( false, @tag.tag_defined? )
+    assert_equal( [], @tag.value )
+    assert_equal( [ 345 ], @tag.fetch( [ 345 ] ) )
+  end
+
+  def test_reset
+    test_normal_multi_values
+    @tag.tag_reset
+    test_normal_single_value
+  end
+
+  def test_no_value
+    assert_raise( ClsRuby::ParsingErrorEx ) do
+      ClsRuby::parse_string( '{test}', @tag )
+    end
+  end
+
+  def test_two_tags
+    assert_raise( ClsRuby::ParsingErrorEx ) do
+      ClsRuby::parse_string( '{test 1} {test 2}', @tag )
+    end
+  end
+
+  def test_string_as_value
+    assert_raise( ClsRuby::ParsingErrorEx ) do
+      ClsRuby::parse_string( '{test "1"}', @tag )
+    end
+  end
+
+  def test_out_of_range_min
+    assert_raise( ClsRuby::ParsingErrorEx ) do
+      ClsRuby::parse_string( '{test 1 0 2}', @tag )
+    end
+  end
+
+  def test_out_of_range_max
+    assert_raise( ClsRuby::ParsingErrorEx ) do
+      ClsRuby::parse_string( '{test 1000 1001 1000}', @tag )
+    end
+  end
+end
+
+class TC_AutoDefineTagIntScalarVector < Test::Unit::TestCase
+  def test_autodefine
+    t = ClsRuby::TagScalarVector.new(
+        :name => 'n',
+        :format => ClsRuby::SCALAR_INT,
+        :value => [ 1, 2, 3 ] )
+    assert_equal( true, t.tag_defined? )
+    assert_equal( [ 1, 2, 3 ], t.value )
+  end
+end
+
+

data/tests/tc_tag_scalar_vector_string.rb

@@ -0,0 +1,48 @@
+$:.unshift( File.join( File.dirname( __FILE__ ), '../lib' ) )
+
+require 'test/unit'
+
+require 'cls-ruby/parser'
+require 'cls-ruby/tag_scalar_vector'
+
+class TC_TagScalarVectorString < Test::Unit::TestCase
+  def setup
+    @tag = ClsRuby::TagScalarVector.new :name => 'test',
+        :format => ClsRuby::SCALAR_STRING
+  end
+
+  def test_normal_single_value
+    assert_nothing_raised do
+      ClsRuby::parse_string '{test "1 2  34"}', @tag
+    end
+
+    assert_equal( [ "1 2  34" ], @tag.value )
+  end
+
+  def test_normal_multi_values
+    assert_nothing_raised do
+      ClsRuby::parse_string '{test "1 2  34" "222" "3333" }', @tag
+    end
+
+    assert_equal( [ "1 2  34", "222", "3333" ], @tag.value )
+  end
+
+  def test_no_value
+    assert_raise( ClsRuby::ParsingErrorEx ) do
+      ClsRuby::parse_string( '{test}', @tag )
+    end
+  end
+
+  def test_two_tags
+    assert_raise( ClsRuby::ParsingErrorEx ) do
+      ClsRuby::parse_string( '{test "1"} {test "2"}', @tag )
+    end
+  end
+
+  def test_nonspace_as_value
+    assert_raise( ClsRuby::ParsingErrorEx ) do
+      ClsRuby::parse_string( '{test 1}', @tag )
+    end
+  end
+end
+

data/tests/tc_tag_scalar_vector_string_empty.rb

@@ -0,0 +1,40 @@
+$:.unshift( File.join( File.dirname( __FILE__ ), '../lib' ) )
+
+require 'test/unit'
+
+require 'cls-ruby/parser'
+require 'cls-ruby/tag_scalar_vector'
+
+class TC_TagScalarVectorStringEmpty < Test::Unit::TestCase
+  def setup
+    @tag = ClsRuby::TagScalarVector.new :name => 'test',
+        :format => ClsRuby::SCALAR_STRING,
+        :can_be_empty => true
+  end
+
+  def test_normal_single_value
+    assert_nothing_raised do
+      ClsRuby::parse_string '{test "1 2  34"}', @tag
+    end
+
+    assert_equal( [ "1 2  34" ], @tag.value )
+  end
+
+  def test_normal_multi_values
+    assert_nothing_raised do
+      ClsRuby::parse_string '{test "1 2  34" "222" "3333" }', @tag
+    end
+
+    assert_equal( [ "1 2  34", "222", "3333" ], @tag.value )
+  end
+
+  def test_no_value
+    assert_nothing_raised do
+      ClsRuby::parse_string( '{test}', @tag )
+    end
+
+    assert_equal( [], @tag.value )
+  end
+
+end
+

data/tests/tc_tag_vector_of_different_tags.rb

@@ -0,0 +1,109 @@
+$:.unshift( File.join( File.dirname( __FILE__ ), '../lib' ) )
+
+require 'test/unit'
+
+require 'cls-ruby/parser'
+require 'cls-ruby/tag_scalar'
+require 'cls-ruby/tag_no_value'
+require 'cls-ruby/tag_vector_of_different_tags'
+
+class TC_TagVectorOfDifferentTags < Test::Unit::TestCase
+
+  class Filter
+    INCLUDE = 1
+    EXCLUDE = 2
+
+    attr_reader :type, :regex
+
+    def initialize( type, regex )
+      @type, @regex = type, regex
+    end
+
+    def ==( other )
+      type == other.type && regex == other.regex
+    end
+  end
+
+  class TagInclude < ClsRuby::TagStringScalar
+    def value
+      Filter.new( Filter::INCLUDE, super )
+    end
+  end
+
+  class TagExclude < ClsRuby::TagStringScalar
+    def value
+      Filter.new( Filter::EXCLUDE, super )
+    end
+  end
+
+  class TagFilter < ClsRuby::TagNoValue
+    child_tag :filters, ClsRuby::TagVectorOfDifferentTags,
+              :nested_tags => [
+                  { :name => 'include', :type => TagInclude },
+                  { :name => 'exclude', :type => TagExclude } ]
+
+    default_tag_params :name => 'filter'
+
+    def filters
+      filters = @filters.collect_values_by( :value )
+    end
+  end
+
+  def setup
+    @tag = TagFilter.new( :name => 'filter', :mandatory => true )
+  end
+
+  def test_no_values
+    assert_nothing_raised do
+      ClsRuby::parse_string( "{filter}", @tag )
+    end
+  end
+
+  def test_single_include
+    assert_nothing_raised do
+      ClsRuby::parse_string(
+         '{filter {include "AAA"}}', @tag )
+    end
+
+    assert_equal( [ Filter.new( Filter::INCLUDE, 'AAA' ) ],
+        @tag.filters )
+  end
+
+  def test_single_exclude
+    assert_nothing_raised do
+      ClsRuby::parse_string(
+         '{filter {exclude "AAA"}}', @tag )
+    end
+
+    assert_equal( [ Filter.new( Filter::EXCLUDE, 'AAA' ) ],
+        @tag.filters )
+  end
+
+  def test_multi_filters
+    values = [
+        Filter.new( Filter::INCLUDE, 'first' ),
+        Filter.new( Filter::EXCLUDE, 'second' ),
+        Filter.new( Filter::INCLUDE, 'third' ) ]
+
+    str = '{filter ' + values.inject( '' ) do |result, v|
+        result << '{'
+        result << ( Filter::INCLUDE == v.type ? 'include' : 'exclude' )
+        result << ' "' << v.regex << '"}'
+      end + '}'
+
+    assert_nothing_raised do
+      ClsRuby::parse_string( str, @tag )
+    end
+
+    assert_equal( values, @tag.filters )
+  end
+
+  def test_reset
+    test_multi_filters
+    @tag.tag_reset
+    test_single_include
+    @tag.tag_reset
+    test_single_exclude
+  end
+end
+

data/tests/tc_tag_vector_of_tags.rb

@@ -0,0 +1,103 @@
+$:.unshift( File.join( File.dirname( __FILE__ ), '../lib' ) )
+
+require 'test/unit'
+
+require 'cls-ruby/parser'
+require 'cls-ruby/tag_scalar'
+require 'cls-ruby/tag_no_value'
+require 'cls-ruby/tag_vector_of_tags'
+
+class TC_TagVectorOfTags < Test::Unit::TestCase
+  class TagField < ClsRuby::TagNoValue
+    Description = Struct.new( :name, :value )
+
+    child_tag :name, ClsRuby::TagScalar, :format => ClsRuby::SCALAR_STRING,
+              :mandatory => true
+    child_tag :value, ClsRuby::TagScalar, :format => ClsRuby::SCALAR_STRING,
+              :mandatory => true
+
+    def description
+      Description.new( @name.value, @value.value )
+    end
+  end
+
+  class TagMessage < ClsRuby::TagNoValue
+    Description = Struct.new( :name, :fields )
+
+    child_tag :name, ClsRuby::TagScalar, :format => ClsRuby::SCALAR_STRING,
+              :mandatory => true
+    child_tag :field, ClsRuby::TagVectorOfTags, :type => TagField
+
+    def description
+      fields = @field.collect_values_by :description
+
+      Description.new( @name.value, fields )
+    end
+  end
+
+  def setup
+    @tag = TagMessage.new( :name => 'message', :mandatory => true )
+  end
+
+  def test_normal_no_field
+    assert_nothing_raised do
+      ClsRuby::parse_string(
+        %q<
+        {message
+          {name "no_field" }
+        }>,
+        @tag )
+    end
+
+    assert_equal( 'no_field', @tag.description.name )
+  end
+
+  def test_normal_single_field
+    assert_nothing_raised do
+      ClsRuby::parse_string(
+        %q<
+        {message
+          {name "single_field" }
+          {field {name "first"} {value "AAA"}}
+        }>,
+        @tag )
+    end
+
+    assert_equal( 'single_field', @tag.description.name )
+    assert_equal( 'first', @tag.description.fields[0].name )
+    assert_equal( 'AAA', @tag.description.fields[0].value )
+  end
+
+  def test_normal_multi_fields
+    values = [ [ 'a', 'a' ], [ 'b', 'b' ], [ 'c', 'c' ] ]
+
+    assert_nothing_raised do
+      ClsRuby::parse_string(
+        %q<
+        {message
+          {name "multi_fields" }
+        > +
+        values.inject( "" ) do |result, pair|
+          result << "{field {name \"#{pair[0]}\"} {value \"#{pair[1]}\"}}"
+          result
+        end + "}",
+        @tag )
+    end
+
+    assert_equal( 'multi_fields', @tag.description.name )
+
+    expected_values = values.inject( [] ) do |result, pair|
+      result << TagField::Description.new( pair[ 0 ], pair[ 1 ] )
+      result
+    end
+
+    assert_equal( expected_values, @tag.description.fields )
+  end
+
+  def test_reset
+    test_normal_multi_fields
+    @tag.tag_reset
+    test_normal_single_field
+  end
+end
+

data/tests/ts_cls_ruby.rb

@@ -0,0 +1,7 @@
+require 'test/unit'
+
+Dir.glob( File.join( File.dirname( __FILE__ ), '**/tc_*.rb' ) ).each do |tc|
+  require tc
+end
+
+# vim: ts=2 sw=2 sts=2 expandtab

metadata

@@ -0,0 +1,140 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.0
+specification_version: 1
+name: ClsRuby
+version: !ruby/object:Gem::Version 
+  version: 1.0.0
+date: 2007-03-14 00:00:00 +03:00
+summary: Curl Like Syntax for Ruby language
+require_paths: 
+- lib
+email: eao197@yahoo.com
+homepage: http://www.rubyforge.com/projects/clsruby
+rubyforge_project: 
+description: 
+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: 
+post_install_message: 
+authors: 
+- Yauheni Akhotnikau
+files: 
+- tests/tc_child_tag.rb
+- tests/tc_constraint_one_of.rb
+- tests/tc_formatters.rb
+- tests/tc_format_helper.rb
+- tests/tc_lexer.rb
+- tests/tc_lexer_char_classifier.rb
+- tests/tc_lexer_first_stage.rb
+- tests/tc_parser_simple.rb
+- tests/tc_scalar_parsers.rb
+- tests/tc_tag.rb
+- tests/tc_tag_no_value.rb
+- tests/tc_tag_scalar_int.rb
+- tests/tc_tag_scalar_nonspace_string.rb
+- tests/tc_tag_scalar_string.rb
+- tests/tc_tag_scalar_vector_int.rb
+- tests/tc_tag_scalar_vector_string.rb
+- tests/tc_tag_scalar_vector_string_empty.rb
+- tests/tc_tag_vector_of_different_tags.rb
+- tests/tc_tag_vector_of_tags.rb
+- tests/ts_cls_ruby.rb
+- lib/cls-ruby
+- lib/cls-ruby.rb
+- lib/cls-ruby/basic_scalars.rb
+- lib/cls-ruby/constraints
+- lib/cls-ruby/default_formatter.rb
+- lib/cls-ruby/ex.rb
+- lib/cls-ruby/formatter.rb
+- lib/cls-ruby/lexers
+- lib/cls-ruby/oneline_formatter.rb
+- lib/cls-ruby/parser.rb
+- lib/cls-ruby/tag.rb
+- lib/cls-ruby/tag_any.rb
+- lib/cls-ruby/tag_no_value.rb
+- lib/cls-ruby/tag_scalar.rb
+- lib/cls-ruby/tag_scalar_helpers.rb
+- lib/cls-ruby/tag_scalar_vector.rb
+- lib/cls-ruby/tag_vector_of_different_tags.rb
+- lib/cls-ruby/tag_vector_of_tags.rb
+- lib/cls-ruby/vector_of_tags_impl.rb
+- lib/cls-ruby/constraints/one_of.rb
+- lib/cls-ruby/lexers/char_classifier.rb
+- lib/cls-ruby/lexers/first_stage.rb
+- lib/cls-ruby/lexers/lexer.rb
+- docs/base_formatting_methods
+- docs/base_parsing_methods
+- docs/constructor_params
+- docs/examples
+- docs/fragments
+- docs/principles
+- docs/std_tags_short_description
+- docs/syntax
+- docs/why_cls
+- docs/examples/log_single_line_format
+- docs/examples/service_description
+- docs/examples/sms-hist
+- docs/examples/tag_any
+- docs/fragments/custom_tag_field.rb
+- docs/fragments/custom_tag_include.rb
+- docs/fragments/field.cls
+- docs/fragments/include.cls
+- docs/fragments/inherit_tag_params.rb
+- docs/fragments/message.cls
+- docs/fragments/tags_order.rb
+- docs/fragments/tag_field.rb
+- docs/fragments/tag_message.rb
+- examples/hex_stream.txt
+- examples/log_single_line_formatter.rb
+- examples/service_description.day_time.cfg
+- examples/service_description.rb
+- examples/sms-hist.rb
+- examples/space_concat.txt
+- examples/tag_any.rb
+- THANKS
+- README
+- LICENSE
+test_files: []
+
+rdoc_options: 
+- -c
+- windows-1251
+- -S
+- --all
+- -p
+- -F
+- --main
+- README
+extra_rdoc_files: 
+- README
+- LICENSE
+- docs/base_formatting_methods
+- docs/base_parsing_methods
+- docs/constructor_params
+- docs/examples
+- docs/principles
+- docs/std_tags_short_description
+- docs/syntax
+- docs/why_cls
+- docs/examples/log_single_line_format
+- docs/examples/service_description
+- docs/examples/sms-hist
+- docs/examples/tag_any
+executables: []
+
+extensions: []
+
+requirements: []
+
+dependencies: []
+