xamplr 1.2.0

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

@@ -0,0 +1,116 @@
+#!/usr/bin/env ruby
+
+require "xamplr"
+include Xampl
+
+require "tmp/XamplExample"
+include XamplExample
+
+require "benchmark"
+include Benchmark
+
+#
+# results from 16 October 2005
+#
+
+#Rebuilding From String (XML) count: 1000 (est. ~ 11s)
+#                user     system      total        real
+#xml         5.970000   0.080000   6.050000 (  6.573804)
+#ruby        1.660000   0.030000   1.690000 (  2.017015)
+
+#Serialize to String (XML) count: 1000 (est. ~ 25s)
+#                user     system      total        real
+#xml         1.460000   0.020000   1.480000 (  1.576753)
+#ruby        0.890000   0.010000   0.900000 (  1.102071)
+
+#Round Tripping (XML) count: 1000 (est. ~ 40s)
+#                user     system      total        real
+#xml         7.890000   0.110000   8.000000 (  8.860720)
+#ruby        2.780000   0.040000   2.820000 (  3.131707)
+
+module Bench
+
+  def Bench.go
+    count = 1000
+
+    emph_content_1 = "there"
+    emph1 = Emph.new
+    emph1 << emph_content_1
+
+    emph_content_2 = "are"
+    emph2 = Emph.new
+    emph2.content = emph_content_2
+
+    desc1 = Description.new
+    desc1.kind = "desc1"
+
+    desc1.is_changed = nil
+    desc1 << "hello " << emph1 << "! How " << emph2 << " you?"
+
+    thing = Thing.new
+    thing.pid = "thing"
+    thing.new_stuff.kind = "stuff1"
+    thing << desc1
+
+    big_thing = Thing.new
+    big_thing << thing
+
+    #require "to-ruby"
+    #ruby_printer = RubyPrinter.new
+    #ruby_s = ruby_printer.to_ruby(thing)
+    ruby_s = thing.to_ruby
+    xml_s = thing.persist
+
+    puts xml_s
+    puts ruby_s
+    puts "++++++++++++++++++++++++++++++++++++"
+    puts "big_thing #{big_thing.object_id}, thing #{thing.object_id}"
+    puts big_thing.to_ruby
+    puts "++++++++++++++++++++++++++++++++++++"
+
+    puts "Rebuilding From String (XML) count: #{count} (est. ~ 11s)"
+    bm(10) do | x |
+      x.report("xml") {
+        count.times {
+          another_big_thing = XamplObject.from_xml_string(xml_s)
+        }
+      }
+      x.report("ruby") {
+        count.times {
+          XamplObject.from_ruby(ruby_s)
+        }
+      }
+    end
+
+    puts "Serialize to String (XML) count: #{count} (est. ~ 25s)"
+    bm(10) do | x |
+      x.report("xml") {
+        count.times {
+          xml_s = thing.persist
+        }
+      }
+      x.report("ruby") {
+        count.times {
+          ruby_s = thing.to_ruby
+        }
+      }
+    end
+
+    puts "Round Tripping (XML) count: #{count} (est. ~ 40s)"
+    bm(10) do | x |
+      x.report("xml") {
+        count.times {
+          another_thing = XamplObject.from_xml_string(thing.persist)
+        }
+      }
+      x.report("ruby") {
+        count.times {
+          XamplObject.from_ruby(thing.to_ruby)
+        }
+      }
+    end
+  end
+end
+
+Bench.go
+

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

@@ -0,0 +1,132 @@
+#!/usr/bin/env ruby
+
+require "xamplr"
+include Xampl
+
+require "tmp/XamplExample"
+include XamplExample
+
+require "benchmark"
+include Benchmark
+
+#require 'persister/fsdb'
+
+module Bench
+
+  def Bench.go
+    count_things = 1000
+    count = 10
+
+    puts "NO ROLLBACKS..."
+    writes = 0
+    bm(10) do | x |
+      x.report("simple") {
+        Xampl.enable_persister("bench2_no_rollback_simple", :simple)
+        Bench.no_rollbacks(count_things, count)
+      }
+      x.report("in_memory") {
+        Xampl.enable_persister("bench2_no_rollback_in_memory", :in_memory)
+        Bench.no_rollbacks(count_things, count)
+      }
+      x.report("filesystem") {
+        Xampl.enable_persister("bench2_no_rollback_filesystem", :filesystem)
+        writes += Bench.no_rollbacks(count_things, count)
+      }
+#      x.report("fsdb") {
+#        Xampl.enable_persister("bench2_no_rollback_fsdb", :fsdb)
+#        Bench.no_rollbacks(count_things, count)
+#      }
+    end
+    puts "   writes: #{writes}"
+
+    writes = 0
+    puts "WITH ROLLBACKS..."
+    bm(10) do | x |
+      x.report("simple") {
+        Xampl.enable_persister("bench2_rollback_simple", :simple)
+        Bench.rollbacks(count_things, count)
+      }
+      x.report("in_memory") {
+        Xampl.enable_persister("bench2_rollback_in_memory", :in_memory)
+        Bench.rollbacks(count_things, count)
+      }
+      x.report("filesystem") {
+        Xampl.enable_persister("bench2_rollback_filesystem", :filesystem)
+        writes += Bench.rollbacks(count_things, count)
+      }
+#      x.report("fsdb") {
+#        Xampl.enable_persister("bench2_rollback_fsdb", :fsdb)
+#        Bench.rollbacks(count_things, count)
+#      }
+    end
+    puts "   writes: #{writes}"
+  end
+
+  def Bench.no_rollbacks(count_things, count)
+    writes = 0
+    things = []
+    count_things.times { | i |
+      thing = Bench.make_a_thing("thing-#{i}")
+      Xampl.introduce_to_persister(thing)
+      things << thing
+    }
+
+    things.each{ | thing | Xampl.introduce_to_persister(thing) }
+    count.times { | time |
+      things.each{ | thing |
+        thing.info = [thing.pid, time].join
+      }
+      writes += Xampl.sync
+    }
+    return writes
+  end
+
+  def Bench.rollbacks(count_things, count)
+    writes = 0
+    things = []
+    count_things.times { | i |
+      thing = Bench.make_a_thing("thing-#{i}")
+      Xampl.introduce_to_persister(thing)
+      things << thing
+    }
+
+    things.each{ | thing | Xampl.introduce_to_persister(thing) }
+    count.times { | time |
+      writes += Xampl.sync
+      Xampl.rollback
+
+      things.each{ | thing |
+        thing.info = [thing.pid, time].join
+      }
+    }
+    return writes
+  end
+
+  def Bench.make_a_thing(pid)
+    emph_content_1 = "there"
+    emph1 = Emph.new
+    emph1 << emph_content_1
+
+    emph_content_2 = "are"
+    emph2 = Emph.new
+    emph2.content = emph_content_2
+
+    desc1 = Description.new
+    desc1.kind = "desc1"
+
+    desc1.is_changed = nil
+    desc1 << "hello " << emph1 << "! How " << emph2 << " you?"
+
+    thing = Thing.new
+    thing.pid = pid
+    thing.info = pid
+    thing.new_stuff.kind = "stuff1"
+    thing << desc1
+
+    return thing
+  end
+
+end
+
+Bench.go
+

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

@@ -0,0 +1,147 @@
+#!/usr/bin/env ruby -w
+
+require "test/unit"
+require "xamplr"
+
+class TestXampl < Test::Unit::TestCase
+
+  def setup
+    Xampl.disable_all_persisters
+  end
+
+  def test_lose_the_first
+    cache = Xampl::XamplCache.new(10)
+    assert(cache)
+
+    cache['first'] = 'first'
+    assert(cache['first'])
+
+    10.times { | i |
+      id = "id.#{i}"
+      cache[id] = id
+    }
+    assert_nil(cache['first'])
+  end
+
+  def test_lose_the_second
+    cache = Xampl::XamplCache.new(10)
+    assert(cache)
+
+    cache['first'] = 'first'
+    cache['second'] = 'second'
+    assert(cache['first'])
+    assert(cache['second'])
+
+    10.times { | i |
+      id = "id.#{i}"
+      cache[id] = id
+      use_first = cache['first']
+    }
+    assert(cache['first'])
+    assert_nil(cache['second'])
+  end
+
+  def test_lose_the_first_XamplCache
+    cache = Xampl::XamplCache.new(10)
+    assert(cache)
+
+    assert_nil(cache['dummy'])
+
+    cache['dummy'] = 'dummy'
+    assert_equal(1, cache.size)
+    cache.delete('dummy')
+    assert_equal(0, cache.size)
+    assert_nil(cache['dummy'])
+
+    cache['first'] = 'first-value'
+    assert(cache['first'])
+
+    10.times { | i |
+      key = "thing.#{i}"
+      value = "value.#{i}"
+      cache[key] = value
+    }
+    assert_nil(cache['first'])
+  end
+
+  def test_lose_the_second_XamplCache
+    cache = Xampl::XamplCache.new(10)
+    assert(cache)
+
+    # fill the cache
+    10.times { | i |
+      id = "id.#{i}"
+      cache[id] = id
+      use_first = cache['first']
+    }
+
+    cache['first'] = 'first'
+    cache['second'] = 'second'
+    assert(cache['first'])
+    assert(cache['second'])
+
+    10.times { | i |
+      use_first = cache['first']
+
+      id = "id.#{10 + i}"
+      cache[id] = id
+    }
+
+    assert(cache['first'])
+    assert_nil(cache['second'])
+  end
+
+  def test_lose_the_first_XamplCacheLFU
+    cache = Xampl::XamplCacheLFU.new(10)
+    assert(cache)
+
+    assert_nil(cache['dummy'])
+
+    cache['dummy'] = 'dummy'
+    assert_equal(1, cache.size)
+    cache.delete('dummy')
+    assert_equal(0, cache.size)
+    assert_nil(cache['dummy'])
+
+    cache['first'] = 'first-value'
+    assert(cache['first'])
+    cache.delete('first')
+    assert_nil(cache['first'])
+    cache['first'] = 'first-value'
+
+    10.times { | i |
+      key = "thing.#{i}"
+      value = "value.#{i}"
+      cache[key] = value
+      thing = cache[key]
+    }
+    assert_nil(cache['first'])
+  end
+
+  def test_lose_the_second_XamplCacheLFU
+    cache = Xampl::XamplCacheLFU.new(10)
+    assert(cache)
+
+    # fill the cache
+    10.times { | i |
+      id = "id.#{i}"
+      cache[id] = id
+      use_first = cache['first']
+    }
+
+    cache['first'] = 'first'
+    cache['second'] = 'second'
+    assert(cache['first'])
+    assert(cache['second'])
+
+    10.times { | i |
+      use_first = cache['first']
+
+      id = "id.#{10 + i}"
+      cache[id] = id
+    }
+
+    assert(cache['first'])
+    assert_nil(cache['second'])
+  end
+end

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

@@ -0,0 +1,7 @@
+<document>
+    <p>This
+        <emph>is</emph>
+        <strong>very</strong>
+        important
+    </p>
+</document>

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

@@ -0,0 +1,14 @@
+<things xmlns:xampl='http://xampl.com/example/play'>
+    <thing pid=''>
+        <description kind=''>blah
+            <emph>blah</emph>
+            blah
+        </description>
+        <keyValue id=''
+                  value=''/>
+        <stuff kind=''
+               xampl:special=''/>
+        <thing pid=''/>
+        <things/>
+    </thing>
+</things>

data/lib/xamplr/test-support/test-data/internationalization-utf8.txt

@@ -0,0 +1 @@
+Iñtërnâtiônàlizætiøn

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

@@ -0,0 +1,37 @@
+<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&#8230;
+        </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 remains, the rest is dross&#8230;
+        </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>