rogdl 0.1.0

data/test/test_parser.rb

@@ -0,0 +1,189 @@
+require 'test/unit'
+require 'lib/rogdl'
+
+class TestParser < Test::Unit::TestCase
+  include Rogdl
+
+  def test_initialize
+    parser = Parser.new
+    assert_equal false, parser.nil?
+    assert_equal [[]], parser.lines
+  end
+  
+  def xtest_parse
+    text = <<TEXT
+# leading comments 
+ 
+parent
+    child
+        grandchild #trailing comments
+        # comments in the middle
+    sibling
+    
+TEXT
+
+    parent = Parser.parse(text)
+    assert_equal 'parent', parent.gname
+    assert_equal 2, parent.glength
+    assert_equal 'grandchild', parent.child.grandchild.gname
+    assert_equal '<parent><child>grandchild</child><sibling/></parent>', parent.to_xml
+  end
+  
+
+  
+
+  def tconvert(convert_me, expected)
+    parser = Parser.new
+    parser.lines = convert_me
+    converted = parser.convert
+    assert_equal true, (expected == converted)
+  end
+  
+  def test_convert
+
+    tconvert([['a']], Node.new('a'))
+    tconvert([['ab']], Node.new('ab'))
+    tconvert([['a','b']], Node.new('a').add('b'))
+    tconvert([['a'], [nil, 'b']], Node.new('a').add('b'))
+    
+    tconvert([[],['a']], Node.new('a'))
+  end
+  
+
+  def expect(string, lines)
+    parser = Parser.new
+    parser.translate(string)
+
+    assert_equal lines, parser.lines
+  end
+
+  def expect_raise(string)
+    assert_raise RuntimeError do
+      Parser.new.translate(string)
+    end
+  end
+  
+  def test_whitespace
+    expect(' ', [[]])
+    expect('  ', [[]])
+    expect('   ', [[]])
+    expect('    ', [[nil]])
+    expect('     ', [[nil]])
+    expect('      ', [[nil]])
+    expect('       ', [[nil]])
+    expect('        ', [[nil,nil]])
+    
+    expect('    a', [[nil, 'a']])
+    expect('        a', [[nil, nil, 'a']])
+
+    expect("    a\n    b", [[nil, 'a'], [nil, 'b']])
+    expect("        a\n        b", [[nil, nil, 'a'], [nil, nil, 'b']])
+    
+    expect(' #', [[]])
+    expect(" \n", [[],[]])
+    expect(" #\n", [[],[]])
+    expect " \na", [[],['a']]
+  end
+
+  def test_simple_strings
+    expect('a', [['a']])
+    expect('ab', [['ab']])
+    expect('a b', [['a','b']])
+    expect('    a', [[nil, 'a']])
+    expect('    a ', [[nil, 'a']])
+    expect('    a  ', [[nil, 'a']])
+
+    expect('ab cd', [['ab','cd']])
+    expect('    ab cd', [[nil, 'ab','cd']])
+    expect('    ab cd ', [[nil, 'ab', 'cd']])
+    expect('    ab cd  ', [[nil, 'ab', 'cd']])
+    
+    expect("a\nb", [['a'],['b']])
+    expect("ab\ncd", [['ab'], ['cd']])
+    expect("a b\nc d", [['a','b'], ['c','d']])
+    expect("    a\n    b", [[nil, 'a'], [nil, 'b']])
+    expect("    a \n    b ", [[nil, 'a'], [nil, 'b']])
+    expect("    a  \n    b  ", [[nil, 'a'], [nil, 'b']])
+
+    expect("ab cd\nef gh", [['ab','cd'], ['ef','gh']])
+    expect("    ab cd\n    ef gh", [[nil, 'ab','cd'], [nil, 'ef','gh']])
+    expect("    ab cd \n    ef gh ", [[nil, 'ab', 'cd'], [nil, 'ef', 'gh']])
+    expect("    ab cd  \n    ef gh  ", [[nil, 'ab', 'cd'], [nil, 'ef', 'gh']])
+    
+  end
+  
+  def test_sq_strings
+    expect("'a'", [['a']])
+    expect("'ab'", [['ab']])
+    expect("'a b'", [['a b']])
+    expect("'a' 'b'", [['a','b']])
+    expect("'a b'", [['a b']])
+    expect(%s{'!@#$%^&*()<>?:"|_+,./;[]-='}.to_s, [[%s{!@#$%^&*()<>?:"|_+,./;[]-=}.to_s]])
+    expect("'\\''",[["'"]])
+    
+    expect_raise("'\n")
+    expect_raise("'\n'")
+  end
+
+  def test_dq_strings
+    expect('"a"', [['a']])
+    expect('"ab"', [['ab']])
+    expect('"a b"', [['a b']])
+    expect('"a" "b"', [['a','b']])
+    expect('"a b"', [['a b']])
+    expect(%s{"!@#$%^&*()<>?:'|_+,./;[]-="}.to_s, [[%s{!@#$%^&*()<>?:'|_+,./;[]-=}.to_s]])
+    expect('"' + '\\' + '"' + '"',[['"']])
+    
+    expect_raise('"' + "\n")
+    expect_raise('"' + "\n" + '"')
+  end
+
+  def test_comments
+    expect('#a', [[]])
+    expect('   #a', [[]])
+    expect('    #a', [[nil]])
+    expect('#####', [[]])
+    expect("#a\n#b", [[], []])
+    
+  end
+
+  def test_phrases
+    expect('a (b)', [['a'], [nil, 'b']])
+    expect('a ( b)', [['a'], [nil, 'b']])
+    expect('a (b )', [['a'], [nil, 'b']])
+    expect('a ( b )', [['a'], [nil, 'b']])
+    expect('a (b c)', [['a'], [nil, 'b', 'c']])
+    
+    expect('"a" ("b")', [['a'], [nil, 'b']])
+    expect('"a" ( "b")', [['a'], [nil, 'b']])
+    expect('"a" ("b" )', [['a'], [nil, 'b']])
+    expect('"a" ( "b" )', [['a'], [nil, 'b']])
+    expect('"a" ("b" "c")', [['a'], [nil, 'b', 'c']])
+    expect('"a" ("b c")', [['a'], [nil, 'b c']])
+    
+    expect("'a' ('b')", [['a'], [nil, 'b']])
+    expect("'a' ( 'b')", [['a'], [nil, 'b']])
+    expect("'a' ('b' )", [['a'], [nil, 'b']])
+    expect("'a' ( 'b' )", [['a'], [nil, 'b']])
+    expect("'a' ('b' 'c')", [['a'], [nil, 'b', 'c']])
+    expect("'a' ('b c')", [['a'], [nil, 'b c']])
+    
+    
+  end
+  
+  
+  def test_clauses
+    expect('a (b, c)', [['a'], [nil, 'b'], [nil, 'c']])
+    expect('a (b, c, d)', [['a'], [nil, 'b'], [nil, 'c'], [nil, 'd']])
+    expect('"a" ("b", "c")', [['a'], [nil, 'b'], [nil, 'c']])    
+    expect("'a' ('b', 'c')", [['a'], [nil, 'b'], [nil, 'c']])
+    
+    expect("a (b c)", [['a'], [nil, 'b', 'c']])
+    expect("a (b c)\n", [['a'], [nil, 'b', 'c'], []])
+    expect("a\n    b (c d)", [['a'], [nil, 'b'], [nil, nil, 'c', 'd']])
+    expect("a\n    b (c)\n    d (e)", [['a'], [nil, 'b'], [nil, nil, 'c'], [nil, 'd'], [nil, nil, 'e']])
+  end
+
+
+  
+end

data/test/test_rogdl.rb

@@ -0,0 +1,11 @@
+require 'test/unit'
+require 'lib/rogdl'
+
+class TestRogdl < Test::Unit::TestCase
+  include Rogdl
+
+  def test_empty
+    # this is included for Gem publication
+  end
+
+end

data/test/test_schema.rb

@@ -0,0 +1,66 @@
+require 'test/unit'
+require 'lib/rogdl'
+
+
+class TestSchema < Test::Unit::TestCase
+  include Rogdl
+
+  def test_initialize
+    schema = Schema.new(Node.new('a'))
+  end
+  
+  def test_validate1
+    schema = Schema.new(Parser.parse_file("./rspec/clouds_schema.ogdl"))
+    messages = schema.validate(Node.new('blah'))
+    assert_equal "Expecting 'families', but found 'blah'", messages.first
+  end
+
+  def test_validate2
+    schema = Schema.new(Parser.parse_file("./rspec/clouds_schema.ogdl"))
+    messages = schema.validate(Node.new('families'))
+    assert_equal "Found node named 'families' that should have one or more children named: 'family'", messages.first
+  end
+
+  def test_validate3
+    cloud_string = <<CLOUDS
+families
+    family
+        name
+        description
+CLOUDS
+    schema = Schema.new(Parser.parse_file("./rspec/clouds_schema.ogdl"))
+    messages = schema.validate(Parser.parse(cloud_string))
+    assert_equal "Found node named 'family' that should have one or more children named: 'cloud'", messages.first
+  end
+
+  def test_validate4
+    cloud_string = <<CLOUDS
+families
+    family
+        #name missing!!
+        description
+        cloud
+            name
+CLOUDS
+    schema = Schema.new(Parser.parse_file("./rspec/clouds_schema.ogdl"))
+    messages = schema.validate(Parser.parse(cloud_string))
+    assert_equal "Found node named 'family' that should have exactly one child named: 'name'", messages.first
+  end
+
+  def test_validate5
+    cloud_string = <<CLOUDS
+families
+    family
+        name
+        description
+        cloud
+            name
+            genus
+            genus
+CLOUDS
+    schema = Schema.new(Parser.parse_file("./rspec/clouds_schema.ogdl"))
+    messages = schema.validate(Parser.parse(cloud_string))
+    assert_equal "Found node named 'cloud' that should have zero or one child named: 'genus'", messages.first
+  end
+
+end

data/test/test_string.rb

@@ -0,0 +1,32 @@
+require 'lib/rogdl'
+require 'test/unit'
+
+class TestString < Test::Unit::TestCase
+  include Rogdl
+
+  def test_camel_case
+    assert_equal 'someText', 'some text'.camel_case
+    assert_equal 'someText', 'some_text'.camel_case
+  end
+
+  def test_upper_camel_case
+    assert_equal 'SomeText', 'some text'.upper_camel_case
+    assert_equal 'SomeText', 'some_text'.upper_camel_case
+  end
+
+  def test_pluralize
+    assert_equal 'dogs', 'dog'.pluralize
+    assert_equal 'buses', 'bus'.pluralize
+  end
+  
+  def test_to_b
+    assert_equal true, 'true'.to_b
+    assert_equal false, 'false'.to_b
+    assert_equal false, 'blah'.to_b
+  end
+
+  def test_to_n
+    assert_equal 'a', 'a'.to_n.gname
+  end
+
+end

data/test/test_symbol.rb

@@ -0,0 +1,13 @@
+require 'test/unit'
+require 'lib/rogdl'
+
+class TestSymbol < Test::Unit::TestCase
+  include Rogdl
+
+  def test_a
+    assert_equal ':a', :a.to_n.gname
+  end
+  
+  
+  
+end

data/test/test_writer.rb

@@ -0,0 +1,71 @@
+require 'test/unit'
+require 'lib/node'
+require 'lib/writer'
+require 'lib/parser'
+
+class TestWriter < Test::Unit::TestCase
+  include Rogdl
+
+  def test_initialize
+    writer = Writer.new
+    assert_equal({}, writer.templates)
+  end
+
+  def test_hi
+    parent = Node.new("parent")
+    writer = Writer.new
+    writer.templates["parent"] = "hi"
+    array = writer.write(parent)
+    assert_equal ["hi"], array
+  end
+
+  def test_simple
+    parent = Node.new("parent")
+    writer = Writer.new
+    writer.templates["parent"] = "<%= self.gname %>"
+    array = writer.write(parent)
+    assert_equal ["parent"], array
+  end
+
+  def test_simple2
+    parent = Node.new("parent")
+    parent.add Node.new("child")
+    writer = Writer.new
+    writer.templates["parent"] = "<%= self.gvalue %>"
+    array = writer.write(parent)
+    assert_equal ["child"], array
+  end
+
+  def test_simple3
+    parent = Node.new("parent")
+    parent.add Node.new("child")
+    writer = Writer.new
+    writer.templates["parent"] = "<hi><%= self.gvalue %></hi>"
+    array = writer.write(parent)
+    assert_equal ["<hi>child</hi>"], array
+  end
+
+  def test_nested
+    parent = Node.new("parent")
+    parent.add Node.new("child")
+    writer = Writer.new
+    writer.templates["parent"] = %q{<hi><%= self.gfirst.render %></hi>}
+    writer.templates["child"] = %q{<bye><%= self.gname %></bye>}
+    array = writer.write(parent)
+    assert_equal ["<hi><bye>child</bye></hi>"], array
+  end
+
+  def test_override_template_name
+    parent = Node.new("parent")
+    parent.add Node.new("child")
+    writer = Writer.new
+    writer.templates["parent"] = %q{<hi><%= self.gfirst.render('alternate') %></hi>}
+    writer.templates["child"] = %q{<bye><%= self.gname %></bye>}
+    writer.templates["alternate"] = %q{<goodbye><%= self.gname %></goodbye>}
+    array = writer.write(parent)
+    assert_equal ["<hi><goodbye>child</goodbye></hi>"], array
+  end
+
+
+
+end

metadata

@@ -0,0 +1,70 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.2
+specification_version: 1
+name: rogdl
+version: !ruby/object:Gem::Version 
+  version: 0.1.0
+date: 2007-08-20 00:00:00 -05:00
+summary: A package for parsing OGDL files
+require_paths: 
+- lib/rogdl
+email: ben.hidalgo@gmail.com
+homepage: 
+rubyforge_project: 
+description: 
+autorequire: 
+default_executable: 
+bindir: bin
+has_rdoc: false
+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: 
+- Ben Hidalgo
+files: 
+- lib/array.rb
+- lib/fixnum.rb
+- lib/hash.rb
+- lib/nil.rb
+- lib/node.rb
+- lib/parser.rb
+- lib/rogdl.rb
+- lib/schema.rb
+- lib/string.rb
+- lib/symbol.rb
+- lib/writer.rb
+- test/test_array.rb
+- test/test_fixnum.rb
+- test/test_hash.rb
+- test/test_nil.rb
+- test/test_node.rb
+- test/test_parser.rb
+- test/test_rogdl.rb
+- test/test_schema.rb
+- test/test_string.rb
+- test/test_symbol.rb
+- test/test_writer.rb
+- README.txt
+- History.txt
+test_files: []
+
+rdoc_options: []
+
+extra_rdoc_files: 
+- README.txt
+- History.txt
+executables: []
+
+extensions: []
+
+requirements: []
+
+dependencies: []
+