RXAAL 0.0.1

data/lib/xaal_element.rb

@@ -0,0 +1,77 @@
+require "rexml/element"
+
+module RXaal
+  class XaalElement
+    include Serializable
+    @@default_id_num=0
+    attr_accessor_of_class XaalNS, :ns
+    attr_reader :refs
+    attr_reader :id
+    attr_reader :doc
+    cattr_reader :default_id_num
+    
+    def initialize(doc, id=nil, elem_ns = nil)
+      @refs = 0
+      @attribs = Array.new
+      if (elem_ns != nil)
+        @ns = elem_ns
+      else
+        @ns = doc.namespaces.name_to_ns[""]
+      end
+      
+      @doc = doc
+      
+      if id == nil
+        klass = self.class
+        
+        id = klass.name_minus_mod + "_" + XaalElement.get_new_default_id.to_s
+      end
+      
+      @id = id 
+    end
+    
+    def add_attribute(name, value, attrib_ns = ns)
+      temp = Attribute.new
+      temp.name = name
+      temp.value = value
+      temp.ns = attrib_ns
+      @attribs.push(temp)
+    end
+    
+    # increments the ref count of new_obj and decrements the ref count of curr_obj
+    def self.modify_ref(curr_obj, new_obj)
+      if (curr_obj != nil)
+        curr_obj.rm_ref
+      end
+      
+      new_obj.add_ref
+    end
+    
+    #decrements self's ref count by 1
+    def rm_ref
+      @refs -= 1
+    end
+    
+    #increments self's ref count by 1
+    def add_ref
+      @refs +=1
+    end
+    
+    def self.get_new_default_id
+      if @@default_id_num == 0
+        @@default_id_num = 1
+        return 0
+      else
+        return @@default_id_num += 1
+      end
+    end
+    
+    def superclass_serialize(element)
+      element.attributes["id"] = @id
+      
+      if @ns != doc.namespaces.name_to_ns[""]
+        element.name = @ns.prefix + ":" + element.name
+      end
+    end
+  end
+end

data/lib/xaalns.rb

@@ -0,0 +1,14 @@
+module RXaal
+  # represents a namespace for the purposes of RXAAL
+  class XaalNS
+    attr_accessor :url, :prefix
+    
+    def initialize (url, prefix)
+      @url = url
+      if prefix != nil
+        @prefix = prefix
+      end
+    end
+    
+  end
+end

data/test/arrow_test.rb

@@ -0,0 +1,43 @@
+require "test/serializable_test"
+class ArrowTest < SerializableTest
+  include RXaal
+  
+  def test_initialize
+   # flunk "Not yet implemented"
+  end
+  
+  def test_boolean_equals_true
+    [:forward, :backward].each {|s|
+      arrow = Arrow.new(@doc)
+      arrow.send("#{s.to_s}=", true)
+      assert arrow.send(s), s.to_s + "is not true."
+    }
+  end
+  
+  def test_boolean_equals_false
+    [:forward, :backward].each {|s|
+      arrow = Arrow.new(@doc)
+      arrow.send("#{s.to_s}=", false)
+      assert_equal false, arrow.send(s), s.to_s + "is not false."
+    }
+  end
+  
+  def test_boolean_only
+    [:forward, :backward].each {|s|
+      arrow = Arrow.new(@doc)
+      arrow.send("#{s.to_s}=", "true")
+      assert_not_equal "true", arrow.send(s), s.to_s + "accepts non-booleans."
+      assert_nil arrow.send(s), s.to_s + "isn't nil."
+    }
+  end
+  
+  def test_boolean_keep
+    [:forward, :backward].each {|s|
+      arrow = Arrow.new(@doc)
+      arrow.send("#{s.to_s}=", false)
+      assert_equal false, arrow.send(s), s.to_s + "is not false."
+      arrow.send("#{s.to_s}=", "false")
+      assert_equal false, arrow.send(s), s.to_s + "was modified."
+    }
+  end
+end

data/test/attribute_test.rb

@@ -0,0 +1,10 @@
+require "test/test_base"
+class AttributeTest < TestBase
+  def test_attrib_name_w_string
+    
+  end
+  
+  def test_attrib_name_w_int
+    
+  end
+end

data/test/bound_array_test.rb

@@ -0,0 +1,54 @@
+require "test/test_base"
+class BoundArrayTest < TestBase
+  include RXaal
+  def test_gt_gt_accept_type
+    array = BoundArray.new(Integer)
+    array << 4
+    assert_equal 1, array.length, "Array length isn't 1."
+    assert_equal 4, array[0], "First element isn't 4."
+  end
+  
+  def test_gt_gt_restrict
+    array = BoundArray.new(Integer)
+    array << "4"
+    assert_equal 0, array.length, "Array length isn't 0."
+  end
+  
+  def test_index_set_accept
+    array = BoundArray.new(Integer)
+    array << 5 << 3
+    array[1] = 67
+    assert_equal 67, array[1], "Array[1] isn't 67."
+  end
+  
+   def test_index_set_restrict
+    array = BoundArray.new(Integer)
+    array << 5 << 3
+    array[1] = "67"
+    assert_equal 3, array[1], "Array[1] isn't 3."
+  end
+  
+  def test_add_accept
+    array = BoundArray.new(Integer)
+    array << 5 << 3
+    
+    array2 = BoundArray.new(Integer)
+    array2 << 7
+    
+    array = array + array2
+    assert_equal 3, array.length, "Array length isn't 3"
+  end
+  
+  def test_add_reject
+    array = BoundArray.new(Integer)
+    array << 5 << 3
+    
+    array2 = BoundArray.new(String)
+    array2 << "home"
+    
+    array = array + array2
+    array3 = ["str"]
+    array = array + array3
+    assert_equal 2, array.length, "Array length isn't 2"
+  end
+end

data/test/metadata_test.rb

@@ -0,0 +1,35 @@
+require "test/test_base"
+
+class MetadataTest < TestBase
+  include RXaal
+  def test_serialize
+    metadata = Metadata.new(@doc)
+    methods = metadata.public_methods.select { |i| i.to_s =~ /.*#(app_|auth_)\w*=.*/ }
+    methods.each {|name|
+      metadata.send(name.to_sym, "value")
+      serialize = metadata.send(serialize?)
+      assert(serialize, "serialization not done right")
+      metadata = Metadata.new
+    }
+  end
+  
+  def test_takes_string
+    metadata = Metadata.new(@doc)
+    methods = metadata.public_methods.select { |i| i.to_s =~ /.*#(app_|auth_)\w*=.*/ }
+    methods.each {|name|
+      metadata.send(name.to_sym, "value")
+      val = metadata.send(name.chop)
+      assert("value", val)
+    }
+  end
+  
+  def test_wont_take_integer
+    metadata = Metadata.new(@doc)
+    methods = metadata.public_methods.select { |i| i.to_s =~ /.*#(app_|auth_)\w*=.*/ }
+    methods.each {|name|
+      metadata.send(name.to_sym, "value")
+      val = metadata.send(name.chop)
+      assert_nil val
+    }
+  end
+end

data/test/module_test.rb

@@ -0,0 +1,36 @@
+require "test/test_base"
+
+class ModuleTest < TestBase
+  attr_accessor_bool(:home) {|n| n.class == String}
+  
+  attr_accessor_of_class(String, :foo, :bar, :baz)
+    def test_attr_accessor_bool_home_exists
+      assert_equal false, instance_variable_defined?(:@home)
+    end
+  
+    def test_should_return_instance_variable_when_sent
+      @home = 0
+      assert_equal 0, home
+    end
+    
+    def test_should_set_instance_variable_when
+      self.home = 'home'
+      assert_equal 'home', @home
+    end
+
+    def test_shouldnt_set_instance_variable_when_sent_odd
+      self.home = 3
+      assert_not_equal 3, home
+  end
+  
+  def test_attr_accessor_of_class
+    self.foo = "home"
+    self.bar = :string
+    self.baz = 0
+    assert_equal 'home', foo
+    assert_not_equal :string, bar
+    assert_not_equal 0, baz
+  end
+
+end
+

data/test/ns_container_test.rb

@@ -0,0 +1,18 @@
+require "test/test_base"
+class NSContainerTest < TestBase
+  include RXaal
+  def test_add_ns
+    ns = NSContainer.new
+    ns.add_ns("http://sample.com", "new")
+    
+    assert(ns.name_to_ns.key?("new"), "Not added to name_to_ns")
+    assert(ns.uri_to_ns.key?("http://sample.com"), "Not added to uri_to_ns")
+    
+    name_ns = ns.name_to_ns["new"]
+    uri_ns = ns.uri_to_ns["http://sample.com"]
+    
+    assert(name_ns == uri_ns, "Uri and Name NS' aren't the same")
+    
+    assert(ns.namespaces.index(name_ns) != nil, "NS not found in namespaces")
+  end
+end

data/test/serializable_test.rb

@@ -0,0 +1,19 @@
+require "test/test_base"
+
+class SerializableTest < TestBase
+  
+#  def test_serialize_overridden
+#    #we're removing "Test"
+#    klass_name = self.class.to_s.chop.chop.chop.chop
+#    obj = Kernel.const_get(klass_name).new
+#    begin
+#      self.serialize(nil)
+#    rescue NotImplementedError
+#      flunk "serialize not overridden"
+#    end
+#  end
+
+  def test_none
+   
+  end
+end

data/test/style_test.rb

@@ -0,0 +1,64 @@
+
+require "test/serializable_test"
+
+class StyleTest < SerializableTest
+ include RXaal
+  def test_initialize
+    #flunk "Not yet implemented"
+  end
+ 
+  def test_boolean_equals_true
+    [:forward_arrow, :backwards_arrow].each {|s|
+      style = Style.new(@doc)
+      style.send("#{s.to_s}=", true)
+      assert_equal true, style.send(s), s.to_s + "is not true."
+    }
+  end
+  
+  def test_boolean_equals_false
+    [:forward_arrow, :backwards_arrow].each {|s|
+      style = Style.new(@doc)
+      style.send("#{s.to_s}=", false)
+      assert_equal false, style.send(s), s.to_s + "is not false."
+    }
+  end
+  
+  def test_boolean_inherit_true
+    [:forward_arrow, :backwards_arrow].each {|s|
+       style1 = Style.new(@doc)
+      style1.send("#{s.to_s}=", true)
+      style2 = Style.new(@doc, nil, style1)
+      assert_equal true, style2.send(s), s.to_s + "did not inherit true."
+    }
+  end
+  
+  def test_boolean_inherit_false
+    [:forward_arrow, :backwards_arrow].each {|s|
+       style1 = Style.new(@doc)
+      style1.send("#{s.to_s}=", false)
+      style2 = Style.new(@doc, nil, style1)
+      assert_equal false, style2.send(s), s.to_s + "did not inherit false."
+    }
+  end
+  
+  def test_boolean_inherit_nil
+    [:forward_arrow, :backwards_arrow].each {|s|
+       style1 = Style.new(@doc)
+      style2 = Style.new(@doc, nil, style1)
+      assert_nil style2.send(s), s.to_s + "did not inherit nil."
+    }
+  end
+  
+  def test_boolean_override
+    [:forward_arrow, :backwards_arrow].each {|s|
+      style1 = Style.new(@doc)
+      style1.send("#{s.to_s}=", false)
+      style2 = Style.new(@doc, nil, style1)
+      assert_equal false, style1.send(s), "style1." + s.to_s + "was not false."
+      assert_equal false, style2.send(s), "style2." + s.to_s + "did not inherit false."
+      style2.send("#{s.to_s}=", true)
+      assert_equal true, style2.send(s), "style2." + s.to_s + "was not true."
+      assert_equal false, style1.send(s), "style1." + s.to_s + "was improperly overridden."
+    }
+  end
+end

data/test/test_base.rb

@@ -0,0 +1,19 @@
+require "test/unit"
+require "rxaal"
+class TestBase < Test::Unit::TestCase
+  
+  
+  
+  def setup
+    super
+    @doc = RXaal::XaalDoc.new
+  end
+  
+  def teardown
+    super
+  end
+  
+  def test_none
+   
+  end
+end

data/test/xaal_element_test.rb

@@ -0,0 +1,47 @@
+require "test/serializable_test"
+module RXaal
+  class XaalElementTest < SerializableTest
+    def test_initialize
+      
+    end
+    
+    def test_no_id_set
+      id = XaalElement.default_id_num
+      e = XaalElement.new(@doc)
+      assert_equal "XaalElement_"+ (id+1).to_s, e.id, "Id isn't class + 0"
+      e1 = XaalElement.new(@doc)
+      assert_equal "XaalElement_" + (id+2).to_s, e1.id, "Id isn't class + 1"
+    end
+    
+    def test_id_set
+      id = XaalElement.default_id_num
+      e = XaalElement.new(@doc, "neato")
+      assert_equal "neato", e.id, "Element id isn't correct"
+      assert_equal id, XaalElement.default_id_num, "default_id_num was incremented"
+    end
+    
+    def test_no_ns_set
+      e = XaalElement.new(@doc, "neato")
+      assert_equal e.ns, @doc.namespaces.name_to_ns[""], "NS isn't default" 
+    end
+    
+    def test_ns_set
+      ns = @doc.namespaces.add_ns("http://simple.com", "blank")
+      e = XaalElement.new(@doc, "neato", ns)
+      assert_equal ns, e.ns, "NS isn't custom"
+    end
+    
+    def test_superclass_serialize
+      e = XaalElement.new(@doc)
+      id = e.id
+      re = REXML::Element.new "none"
+      e.superclass_serialize(re)
+      assert_equal re.attributes["id"], id, "Attribute id isn't right"
+      assert_equal "none", re.name, "Name was not the default"
+      
+      e.ns = @doc.namespaces.add_ns("http://simple.com", "blank")
+      e.superclass_serialize(re)
+      assert_equal "blank:none", re.expanded_name, "NS wasn't serialized"
+    end
+  end
+end