ox 1.0.0

data/test/cache16_test.rb

@@ -0,0 +1,17 @@
+#!/usr/bin/env ruby -wW1
+
+$: << '.'
+$: << '../lib'
+$: << '../ext'
+
+if __FILE__ == $0
+  if (i = ARGV.index('-I'))
+    x,path = ARGV.slice!(i, 2)
+    $: << path
+  end
+end
+
+require 'ox'
+
+Ox.cache16_test
+

data/test/cache8_test.rb

@@ -0,0 +1,17 @@
+#!/usr/bin/env ruby -wW1
+
+$: << '.'
+$: << '../lib'
+$: << '../ext'
+
+if __FILE__ == $0
+  if (i = ARGV.index('-I'))
+    x,path = ARGV.slice!(i, 2)
+    $: << path
+  end
+end
+
+require 'ox'
+
+Ox.cache8_test
+

data/test/cache_test.rb

@@ -0,0 +1,17 @@
+#!/usr/bin/env ruby -wW1
+
+$: << '.'
+$: << '../lib'
+$: << '../ext'
+
+if __FILE__ == $0
+  if (i = ARGV.index('-I'))
+    x,path = ARGV.slice!(i, 2)
+    $: << path
+  end
+end
+
+require 'ox'
+
+Ox.cache_test
+

data/test/files.rb

@@ -0,0 +1,34 @@
+#!/usr/bin/env ruby -wW2
+
+if $0 == __FILE__
+  $: << '.'
+  $: << '..'
+  $: << '../lib'
+  $: << '../ext'
+end
+
+require 'pp'
+require 'ox'
+require 'test/ox/file'
+require 'test/ox/dir'
+
+def files(dir)
+  d = ::Test::Ox::Dir.new(dir)
+  Dir.new(dir).each do |fn|
+    next if fn.start_with?('.')
+    filename = File.join(dir, fn)
+    #filename = '.' == dir ? fn : File.join(dir, fn)
+    if File.directory?(filename)
+      d << files(filename)
+    else
+      d << Test::Ox::File.new(filename)
+    end
+  end
+  #pp d
+  d
+end
+
+if $0 == __FILE__
+  File.open('files.xml', "w") { |f| f.write(Ox.dump(files('.'), :indent => 2, :opt_format => true)) }
+  #Ox.to_file(files('.'), 'files2.xml', :indent => 2, :opt_format => true)
+end

data/test/func.rb

@@ -0,0 +1,228 @@
+#!/usr/bin/env ruby -wW1
+
+$: << '../lib'
+$: << '../ext'
+
+if __FILE__ == $0
+  if (i = ARGV.index('-I'))
+    x,path = ARGV.slice!(i, 2)
+    $: << path
+  end
+end
+
+require 'test/unit'
+require 'optparse'
+require 'ox'
+
+$indent = 2
+
+opts = OptionParser.new
+# TBD add indent
+opts.on("-h", "--help", "Show this display")                { puts opts; Process.exit!(0) }
+files = opts.parse(ARGV)
+
+class Func < ::Test::Unit::TestCase
+  
+  def test_nil
+    dump_and_load(nil, false)
+  end
+
+  def test_true
+    dump_and_load(true, false)
+  end
+
+  def test_false
+    dump_and_load(false, false)
+  end
+
+  def test_fixnum
+    dump_and_load(7, false)
+    dump_and_load(-19, false)
+    dump_and_load(0, false)
+  end
+
+  def test_float
+    dump_and_load(7.7, false)
+    dump_and_load(-1.9, false)
+    dump_and_load(0.0, false)
+    dump_and_load(-10.000005, false)
+    dump_and_load(1.000000000005, false)
+  end
+
+  def test_string
+    dump_and_load('a string', false)
+    dump_and_load('', false)
+  end
+
+  def test_symbol
+    dump_and_load(:a_symbol, false)
+  end
+
+  def test_base64
+    dump_and_load('a & x', false)
+  end
+
+  def test_time
+    dump_and_load(Time.now, false)
+  end
+
+  def test_array
+    dump_and_load([], false)
+    dump_and_load([1, 'a'], false)
+  end
+
+  def test_hash
+    dump_and_load({ }, false)
+    dump_and_load({ 'a' => 1, 2 => 'b' }, false)
+  end
+
+  def test_range
+    dump_and_load((0..3), false)
+    dump_and_load((-2..3.7), false)
+    dump_and_load(('a'...'f'), false)
+    t = Time.now
+    t2 = t + 20
+    dump_and_load((t..t2), false)
+  end
+
+  def test_regex
+    dump_and_load(/^[0-9]/ix, false)
+    dump_and_load(/^[&0-9]/ix, false) # with xml-unfriendly character
+  end
+
+  def test_bignum
+    dump_and_load(7 ** 55, false)
+    dump_and_load(-7 ** 55, false)
+  end
+
+  def test_complex_number
+    dump_and_load(Complex(1), false)
+    dump_and_load(Complex(3, 2), false)
+  end
+
+  def test_rational
+    dump_and_load(Rational(1, 3), false)
+    dump_and_load(Rational(0, 3), false)
+  end
+
+  def test_object
+    dump_and_load(Bag.new({ }), false)
+    dump_and_load(Bag.new(:@x => 3), false)
+  end
+  
+  def test_bad_object
+    xml = %{<?xml version="1.0"?>
+<o c="Bad">
+  <i a="@x">3</i>
+</o>
+}
+    assert_raise(NameError) {
+      Ox.load(xml, :mode => :object, :trace => 0)
+    }
+    loaded = Ox.load(xml, :mode => :object, :trace => 0, :best_effort => true)
+    assert_equal(loaded, nil)
+  end
+  
+  def test_class
+    dump_and_load(Bag, false)
+  end
+
+  def test_exception
+    e = Exception.new("Some Error")
+    e.set_backtrace(["./func.rb:119: in test_exception",
+                     "./fake.rb:57: in fake_func"])
+    dump_and_load(e, false)
+  end
+
+  def test_struct
+    s = Struct.new('Box', :x, :y, :w, :h)
+    dump_and_load(s.new(2, 4, 10, 20), false)
+  end
+
+  def test_array_multi
+    dump_and_load([nil, true, false, 3, 'z', 7.9, 'a&b', :xyz, Time.now, (-1..7)], false)
+  end
+
+  def test_hash_multi
+    dump_and_load({ nil => nil, true => true, false => false, 3 => 3, 'z' => 'z', 7.9 => 7.9, 'a&b' => 'a&b', :xyz => :xyz, Time.now => Time.now, (-1..7) => (-1..7) }, false)
+  end
+
+  def test_object_multi
+    dump_and_load(Bag.new(:@a => nil, :@b => true, :@c => false, :@d => 3, :@e => 'z', :@f => 7.9, :@g => 'a&b', :@h => :xyz, :@i => Time.now, :@j => (-1..7)), false)
+  end
+
+  def test_complex
+    dump_and_load(Bag.new(:@o => Bag.new(:@a => [2]), :@a => [1, {b: 3, a: [5]}, c: Bag.new(:@x => 7)]), false)
+  end
+
+  # Create an Object and an Array with the same Objects in them. Dump and load
+  # and then change the ones in the loaded Object to verify that the ones in
+  # the array change in the same way. They are the same objects so they should
+  # change. Perform the operation on both the object before and the loaded so
+  # the equal() method can be used.
+  def test_circular
+    a = [1]
+    s = "a,b,c"
+    h = { 1 => 2 }
+    e = Ox::Element.new('Zoo')
+    e[:cage] = 'bear'
+    b = Bag.new(:@a => a, :@s => s, :@h => h, :@e => e)
+    a << s
+    a << h
+    a << e
+    a << b
+    loaded = dump_and_load(b, false, true)
+    # modify the string
+    loaded.instance_variable_get(:@s).gsub!(',', '_')
+    b.instance_variable_get(:@s).gsub!(',', '_')
+    # modify hash
+    loaded.instance_variable_get(:@h)[1] = 3
+    b.instance_variable_get(:@h)[1] = 3
+    # modify Element
+    loaded.instance_variable_get(:@e)['pen'] = 'zebra'
+    b.instance_variable_get(:@e)['pen'] = 'zebra'
+    # pp loaded
+    assert_equal(b, loaded)
+  end
+
+  def test_raw
+    raw = Ox::Element.new('raw')
+    su = Ox::Element.new('sushi')
+    su[:kind] = 'fish'
+    raw << su
+    ba = Ox::Element.new('basashi')
+    ba[:kind] = 'animal'
+    raw << ba
+    dump_and_load(Bag.new(:@raw => raw), false)
+  end
+
+  def dump_and_load(obj, trace=false, circular=false)
+    xml = Ox.dump(obj, :indent => $indent, :circular => circular)
+    puts xml if trace
+    loaded = Ox.load(xml, :mode => :object, :trace => (trace ? 2 : 0))
+    assert_equal(obj, loaded)
+    loaded
+  end
+
+end
+
+class Bag
+
+  def initialize(args)
+    args.each do |k,v|
+      self.instance_variable_set(k, v)
+    end
+  end
+
+  def eql?(other)
+    return false if (other.nil? or self.class != other.class)
+    ova = other.instance_variables
+    return false if ova.size != instance_variables.size
+    instance_variables.each do |vid|
+      return false if instance_variable_get(vid) != other.instance_variable_get(vid)
+    end
+    true
+  end
+  alias == eql?
+
+end

data/test/gen_sample.rb

@@ -0,0 +1,22 @@
+
+require 'ox'
+
+doc = Ox::Document.new(:version => '1.0')
+
+top = Ox::Element.new('top')
+top[:name] = 'sample'
+doc << top
+
+mid = Ox::Element.new('middle')
+mid[:name] = 'second'
+top << mid
+
+bot = Ox::Element.new('bottom')
+bot[:name] = 'third'
+mid << bot
+
+xml = Ox.dump(doc)
+puts xml
+
+doc2 = Ox.parse(xml)
+puts "Same? #{doc == doc2}"

data/test/obj_sample.rb

@@ -0,0 +1,19 @@
+
+require 'ox'
+
+class Sample
+  attr_accessor :a, :b, :c
+  
+  def initialize(a, b, c)
+    @a = a
+    @b = b
+    @c = c
+  end
+end # File
+
+# Create Object
+obj = Sample.new(1, "bee", ['x', :y, 7.0])
+# Now dump the Object to an XML String.
+xml = Ox.dump(obj)
+# Convert the object back into a Sample Object.
+obj2 = Ox.parse_obj(xml)

data/test/ox/change.rb

@@ -0,0 +1,16 @@
+
+module Test
+  module Ox
+    class Change
+      attr_accessor :time
+      attr_accessor :user
+      attr_accessor :comment
+      
+      def initialize(comment=nil, time=nil, user=nil)
+        @user = user || ENV['USER'] 
+        @time = time || Time.now
+        @comment = comment
+      end
+    end # Change
+  end # Ox
+end # Test

data/test/ox/dir.rb

@@ -0,0 +1,21 @@
+
+require 'etc'
+
+module Test
+  module Ox
+
+    class Dir < File
+      attr_accessor :files
+
+      def initialize(filename)
+        super
+        @files = []
+      end
+      
+      def <<(f)
+        @files << f
+      end
+
+    end # Dir
+  end # Ox
+end # Test

data/test/ox/doc.rb

@@ -0,0 +1,39 @@
+
+require 'test/ox/hasprops'
+require 'test/ox/group'
+require 'test/ox/layer'
+require 'test/ox/line'
+require 'test/ox/shape'
+require 'test/ox/oval'
+require 'test/ox/rect'
+require 'test/ox/text'
+require 'test/ox/change'
+
+module Test
+  module Ox
+    class Doc
+      include HasProps
+      
+      attr_accessor :title
+      attr_accessor :create_time
+      attr_accessor :user
+      # Hash of layers in the document indexed by layer name.
+      attr_reader :layers
+      attr_reader :change_history
+
+      def initialize(title)
+        @title = title
+        @user = ENV['USER']
+        @create_time = Time.now
+        @layers = { }
+        @change_history = []
+      end
+      
+      def add_change(comment, time=nil, user=nil)
+        @change_history << Change.new(comment, time, user)
+      end
+
+    end # Doc
+  end # Ox
+end # Test
+