xamplr 1.2.0

data/lib/xamplr/test-support/test-data/labels001.xml

@@ -0,0 +1,38 @@
+<labels>
+    <label id="tse"
+           added="2003-06-20">
+        <name>Thomas Eliot</name>
+        <address>
+            <street>3 Prufrock Lane</street>
+            <city>Stamford</city>
+            <state>CT</state>
+        </address>
+        <quote>
+            <emph>Midwinter Spring</emph>
+            is its own season
+        </quote>
+    </label>
+    <label id="ep"
+           added="2003-06-10">
+        <name>Ezra Pound</name>
+        <address>
+            <street>45 Usura Place</street>
+            <city>Hailey</city>
+            <state>ID</state>
+        </address>
+        <quote>
+            What thou lovest well<emph>remains</emph>, the rest is
+            <emph>dross</emph>
+        </quote>
+    </label>
+    <!-- Throw in 10,000 more records just like this -->
+    <label id="lh"
+           added="2004-11-01">
+        <name>Langston Hughes</name>
+        <address>
+            <street>10 Bridge Tunnel</street>
+            <city>Harlem</city>
+            <state>NY</state>
+        </address>
+    </label>
+</labels>

data/lib/xamplr/test-support/test-deep-change.rb

@@ -0,0 +1,135 @@
+#!/usr/bin/env ruby -w -I..
+
+require "test/unit"
+require "xamplr-generator"
+
+include XamplGenerator
+include Xampl
+
+class TestRollback < Test::Unit::TestCase
+
+  xml = %Q{
+<sack pid='white'>
+  <bag mark='one'>
+    <thing info='something'>hello</thing>
+    <stuff id='my stuff'>blah</stuff>
+    <bag/>
+  </bag>
+  <sack pid='black'/>
+</sack>
+    }
+
+  Generator.new.go(:strings => [ xml ],
+                   :directory => "step7")
+
+  require "step7/XamplAdHoc"
+  include XamplAdHoc
+
+  def test_change
+    pname = "test_change"
+    Xampl.transaction(pname, :in_memory){
+      sack1 = Sack.new
+      sack1.pid = "sack1"
+
+      sack2 = sack1.new_sack("sack2"){ | sack |
+        sack.new_bag{ | bag |
+          bag.new_thing{ | thing |
+            thing.info = "thing in sack2"
+          }
+        }
+      }
+    }
+
+    #assert_equal(0, Xampl.count_changed)
+
+    Xampl.transaction(pname){
+      sack2 = Sack["sack2"]
+      sack2.bag[0].thing[0].info = "changed value"
+    }
+
+    #assert_equal(0, Xampl.count_changed)
+    Xampl.transaction(pname){
+      Xampl.rollback
+    }
+
+    Xampl.transaction(pname){
+      sack1 = Sack["sack1"]
+      assert_equal("changed value", sack1.sack[0].bag[0].thing[0].info)
+    }
+
+  end
+
+  def test_change_in_fs
+    pname = "test_deep_change_in_fs" << Time.now.strftime("%Y%m%d-%H%M-%S") << rand.to_s
+    Xampl.transaction(pname, :filesystem){
+      sack1 = Sack.new
+      sack1.pid = "sack1"
+
+      sack2 = sack1.new_sack("sack2"){ | sack |
+        sack.new_bag{ | bag |
+          bag.new_thing{ | thing |
+            thing.info = "thing in sack2"
+          }
+        }
+      }
+    }
+
+    #assert_equal(0, Xampl.count_changed)
+
+    Xampl.transaction(pname){
+      sack2 = Sack["sack2"]
+      sack2.bag[0].thing[0].info = "changed value"
+
+      assert_equal(1, Xampl.count_changed)
+      Xampl.persister.put_changed
+    }
+
+    #assert_equal(0, Xampl.count_changed)
+
+    Xampl.transaction(pname){
+      Xampl.rollback
+    }
+
+    Xampl.transaction(pname){
+      sack1 = Sack["sack1"]
+      assert_equal("changed value", sack1.sack[0].bag[0].thing[0].info)
+    }
+
+  end
+
+  def test_change_out_of_persister
+    pname = "test_change_out_of_persister"
+
+    sack2 = nil
+
+    Xampl.transaction(pname, :in_memory){
+      sack1 = Sack.new
+      sack1.pid = "sack1"
+
+      sack2 = sack1.new_sack("sack2"){ | sack |
+        sack.new_bag{ | bag |
+          bag.new_thing{ | thing |
+            thing.info = "thing in sack2"
+          }
+        }
+      }
+    }
+
+    assert_raise(UnmanagedChange){
+      sack2.bag[0].thing[0].info = "this is a very bad idea"
+    }
+    puts sack2.pp_xml
+
+    Xampl.transaction(pname){
+      Xampl.rollback
+    }
+
+    sack2a = nil
+    Xampl.transaction(pname){
+      sack2a = Sack["sack2"]
+      sack2a.bag[0].new_thing.info = "change the sack"
+    }
+    puts sack2a.pp_xml
+  end
+
+end

data/lib/xamplr/test-support/test-elements.rb

@@ -0,0 +1,109 @@
+#!/usr/bin/env ruby
+
+#
+# NOTE: There will be many warnings with this test because we actually do
+#       redefined a ton of stuff
+#
+
+require "test/unit"
+require "xamplr-generator"
+
+include XamplGenerator
+include Xampl
+
+class TestXampl < Test::Unit::TestCase
+
+  def setup
+    Xampl.disable_all_persisters
+    FromXML.reset_registry
+  end
+
+  def test_predefined_element_info_1
+    options = Xampl.make(Options) { | options |
+      options.new_index_attribute("name")
+      options.new_index_attribute("id")
+      options.new_index_attribute("pid").persisted = true
+
+      options.new_resolve{ | resolver |
+        resolver.pkg = "XamplExample2"
+        resolver.namespace="http://xampl.com/example"
+      }
+      options.new_resolve{ | resolver |
+        resolver.pkg = "XamplExamplePlay2"
+        resolver.namespace="http://xampl.com/example/play"
+      }
+    }
+
+    elements = Xampl.make(Elements) { | elements |
+      elements.pid = "http://xampl.com/example"
+      elements.new_element("thing"){ | element |
+        element.kind = 'mixed'
+        element.indexed_by_attr = 'info'
+        element.persisted = true
+        element.class_name = "MyKindOfThing"
+      }
+    }
+
+    generator = Generator.new(options, elements)
+
+    generator.comprehend_from_files(["./xml/example.xml"])
+    generator.generate_to_directory("./tmp/")
+
+    require "tmp/XamplExample2"
+
+    thing = XamplExample2::MyKindOfThing.new
+    assert(thing.persist_required)
+    assert(thing.has_mixed_content)
+    assert_equal(:info, thing.indexed_by)
+
+    thing2 = thing.new_thing("two")
+    assert(thing2)
+  end
+
+  def test_predefined_element_info_2
+    options = Xampl.make(Options) { | options |
+      options.new_index_attribute("name")
+      options.new_index_attribute("id")
+      options.new_index_attribute("pid").persisted = true
+
+      options.new_resolve{ | resolver |
+        resolver.pkg = "XamplExample2"
+        resolver.namespace="http://xampl.com/example"
+      }
+      options.new_resolve{ | resolver |
+        resolver.pkg = "XamplExamplePlay2"
+        resolver.namespace="http://xampl.com/example/play"
+      }
+    }
+
+    elements = Xampl.make(Elements) { | elements |
+      elements.pid = "http://xampl.com/example"
+      elements.new_element("thing"){ | element |
+        element.kind = 'mixed'
+        element.indexed_by_attr = 'info'
+        element.persisted = true
+        element.class_name = "MyKindOfThing"
+        element.attribute_name = "my_thing"
+      }
+    }
+
+    generator = Generator.new(options, elements)
+
+    generator.comprehend_from_files(["./xml/example.xml"])
+    generator.generate_to_directory("./tmp2/")
+
+    require "tmp2/XamplExample2"
+    #include XamplExample2
+
+    thing = XamplExample2::MyKindOfThing.new
+    assert(thing.persist_required)
+    assert(thing.has_mixed_content)
+    assert_equal(:info, thing.indexed_by)
+
+    thing2 = thing.new_my_thing("two")
+    assert(thing2)
+  end
+
+end
+
+

data/lib/xamplr/test-support/test-indexed-array.rb

@@ -0,0 +1,169 @@
+#!/usr/bin/env ruby
+
+require "test/unit"
+#require "rubygems"
+#require_gem "arrayfields"
+#require "arrayfields-local"
+require "indexed-array"
+
+class TestXampl < Test::Unit::TestCase
+
+  def xtest_dummy_fieldarray
+    ia = []
+    ia.fields = []
+
+    ia << 0 << 1 << 2
+
+    ia["three"] = 3
+    ia["four"] = 4
+    ia["five"] = 5
+
+    assert_equal(0, ia[0])
+    assert_equal(1, ia[1])
+    assert_equal(2, ia[2])
+    assert_equal(3, ia[3])
+    assert_equal(4, ia[4])
+    assert_equal(5, ia[5])
+
+    assert_equal(3, ia["three"])
+    assert_equal(4, ia["four"])
+    assert_equal(5, ia["five"])
+
+    ia["four"] = 44
+
+    assert_equal(44, ia["four"])
+    assert_equal(44, ia[4])
+
+  end
+
+  def test_remove
+    ia = IndexedArray.new
+
+    ia["one"] = 1
+    ia["two"] = 2
+    ia["three"] = 3
+
+    assert_equal(1, ia["one"])
+    assert_equal(2, ia["two"])
+    assert_equal(3, ia["three"])
+
+    ia.delete_at("one")
+
+    assert_equal(2, ia["two"])
+    assert_equal(3, ia["three"])
+
+    assert_equal(2, ia.size)
+    assert_equal(2, ia[0])
+    assert_equal(3, ia[1])
+  end
+
+  def xtest_remove_fieldarray
+    ia = []
+    ia.fields = []
+
+    ia["one"] = 1
+    ia["two"] = 2
+    ia["three"] = 3
+
+    assert_equal(1, ia["one"])
+    assert_equal(2, ia["two"])
+    assert_equal(3, ia["three"])
+
+    ia.delete_at("one")
+
+    assert_equal(2, ia["two"])
+    assert_equal(3, ia["three"])
+
+    assert_equal(2, ia.size)
+    assert_equal(2, ia[0])
+    assert_equal(3, ia[1])
+  end
+
+  def test_two
+    a = IndexedArray.new
+    b = IndexedArray.new
+
+    a["one"] = 1
+    a["two"] = 2
+    a["three"] = 3
+
+    #		a.each_pair { | k, v |
+    #		  puts "a:: k: #{k}, v: #{v}"
+    #		}
+    #		a.dump("a")
+    #		b.each_pair { | k, v |
+    #		  puts "b:: k: #{k}, v: #{v}"
+    #		}
+    #		b.dump("b")
+
+
+    b["three"] = 300
+    b["two"] = 200
+    b["one"] = 100
+
+    assert_equal(1, a["one"])
+    assert_equal(2, a["two"])
+    assert_equal(3, a["three"])
+
+    assert_equal(1, a[0])
+    assert_equal(2, a[1])
+    assert_equal(3, a[2])
+
+    assert_equal(300, b["three"])
+    assert_equal(200, b["two"])
+    assert_equal(100, b["one"])
+    assert_equal(300, b[0]) ### returns 100 here
+    assert_equal(200, b[1])
+    assert_equal(100, b[2])
+
+    #		a.dump("a")
+    #		b.dump("b")
+
+  end
+
+  def xtest_two_fieldarray
+    a = []
+    a.fields = []
+
+    b = []
+    b.fields = []
+
+    a["one"] = 1
+    a["two"] = 2
+    a["three"] = 3
+
+    #		a.each_pair { | k, v |
+    #		  puts "a:: k: #{k}, v: #{v}"
+    #		}
+    #		a.dump("a")
+    #		b.each_pair { | k, v |
+    #		  puts "b:: k: #{k}, v: #{v}"
+    #		}
+    #		b.dump("b")
+
+
+    b["three"] = 300
+    b["two"] = 200
+    b["one"] = 100
+
+    assert_equal(1, a["one"])
+    assert_equal(2, a["two"])
+    assert_equal(3, a["three"])
+
+    assert_equal(1, a[0])
+    assert_equal(2, a[1])
+    assert_equal(3, a[2])
+
+    assert_equal(300, b["three"])
+    assert_equal(200, b["two"])
+    assert_equal(100, b["one"])
+    assert_equal(300, b[0]) ### returns 100 here
+    assert_equal(200, b[1])
+    assert_equal(100, b[2])
+
+    #		a.dump("a")
+    #		b.dump("b")
+
+  end
+
+end