ddao-kwalify 0.7.1

data/test/test-databinding.rb

@@ -0,0 +1,83 @@
+###
+### $Rev: 99 $
+### $Release: 0.7.1 $
+### copyright(c) 2005-2008 kuwata-lab all rights reserved.
+###
+
+require File.dirname(__FILE__) + '/test.rb'
+
+
+class DataBindingTest < Test::Unit::TestCase
+
+
+  ## define test methods
+  filename = __FILE__.sub(/\.rb$/, '.yaml')
+  input = Kwalify::Util.untabify(File.read(filename))
+  TESTDATA1 = {}
+  YAML.load_documents(input) do |ydoc|
+    hash_list = ydoc
+    hash_list.each do |hash|
+      for key in hash.keys()
+        hash[key[0..-2]] = hash.delete(key)['ruby'] if key[-1] == ?*
+      end
+      name = hash['name'] or raise "name is not found."
+      TESTDATA1.key?(name) and raise "name '#{name}' is dupilcated."
+      TESTDATA1[name] = hash
+      #
+      s = ''
+      s <<   "def test_#{name}\n"
+      s <<   "  @name = '#{name}'\n"
+      for key, val in hash
+        s << "  @#{key} = TESTDATA1['#{name}']['#{key}']\n"
+      end
+      s <<   "  _test\n"
+      s <<   "end\n"
+      eval s
+    end
+  end
+  load_yaml_testdata(filename, :lang=>'ruby')
+
+
+  def _test
+    ## schema
+    if @schema.is_a?(String)
+      @schema = Kwalify::Yaml::Parser.new.parse(@schema, :untabify=>true)
+      #@schema = YAML.load(Kwalify::Util.untabify(@schema))
+    end
+    ## data binding
+    #Object.class_eval {@classdef} if @classdef
+    if @classdef
+      Object.class_eval @classdef
+    end
+    validator = Kwalify::Validator.new(@schema)
+    parser = Kwalify::Yaml::Parser.new(validator, :data_binding=>true)
+    @testopts ||= {}
+    parser.preceding_alias = true if @testopts['preceding_alias']
+    ydoc = parser.parse(@data)
+    assert_equal(parser.errors, [])
+    ## pp
+    result = ''
+    def result.write(arg); self << arg.to_s; end
+    PP.pp(ydoc, result)
+    ## convert object-id to portable number
+    table = {}
+    counter = 0
+    result.gsub!(/:0x\w+/) {|m| ":0x%03d" % (table[m] ||= (counter+=1)) }
+    ## assert
+    #puts result
+    assert_text_equal(@expected, result)
+    ## path, linenum, column
+    if @locations
+      #t = parser.instance_variable_get("@location_table")
+      #require 'pp'
+      #pp t
+      @locations.each do |path, expected_linenum, expected_column|
+        linenum, column = parser.location(path)
+        assert_equal(expected_linenum, linenum)
+        assert_equal(expected_column, column)
+      end
+    end
+  end
+
+
+end

data/test/test-databinding.yaml

@@ -0,0 +1,339 @@
+##
+## $Rev: 63 $
+## $Release: 0.7.1 $
+## copyright(c) 2005-2008 kuwata-lab all rights reserved.
+##
+---
+
+- name:  databind1
+  desc:  sequence of mapping
+  schema: |
+	type:  seq
+	sequence:
+	  - type:  map
+	    class: My1::Address
+	    mapping:
+	     "name":  { type: str, required: yes }
+	     "tel":   { type: str }
+	     "email": { type: str }
+	     "age":   { type: int }
+	     "birth": { type: date }
+	     "blood": { type: str, enum: [A, B, O, AB] }
+  classdef*:
+    ruby: |
+        require 'kwalify/util/hashlike'
+	module ::My1
+	  class Address
+	    include Kwalify::Util::HashLike
+	    attr_accessor :name, :tel, :email, :age, :birth, :blood
+	  end
+	end
+
+  data: |
+	- name:	 Foo
+	  tel:   012-345-7777
+	  email: foo@mail.com
+	  age:   15
+	  birth: 1990-01-01
+	  blood: A
+	- name:	 Bar
+	  tel:   012-345-8889
+	  email: bar@mail.org
+	  age:   14
+	  birth: 1991-01-02
+	- name:	 Foo
+	  tel:   012-345-9999
+	  email: baz@mail.net
+	  age:   13
+	  birth: 1992-01-03
+	  blood: AB
+  expected*:
+    ruby: |
+	[#<My1::Address:0x001
+	  @age=15,
+	  @birth=#<Date: 4895785/2,0,2299161>,
+	  @blood="A",
+	  @email="foo@mail.com",
+	  @name="Foo",
+	  @tel="012-345-7777">,
+	 #<My1::Address:0x002
+	  @age=14,
+	  @birth=#<Date: 4896517/2,0,2299161>,
+	  @email="bar@mail.org",
+	  @name="Bar",
+	  @tel="012-345-8889">,
+	 #<My1::Address:0x003
+	  @age=13,
+	  @birth=#<Date: 4897249/2,0,2299161>,
+	  @blood="AB",
+	  @email="baz@mail.net",
+	  @name="Foo",
+	  @tel="012-345-9999">]
+  locations:
+	- [ "/0",        1,  3 ]
+	- [ "/0/name",   1, 10 ]
+	- [ "/0/tel",    2, 10 ]
+	- [ "/0/email",  3, 10 ]
+	- [ "/0/age",    4, 10 ]
+	- [ "/0/birth",  5, 10 ]
+	- [ "/0/blood",  6, 10 ]
+	- [ "/1",        7,  3 ]
+	- [ "/1/name",   7, 10 ]
+	- [ "/1/tel",    8, 10 ]
+	- [ "/1/email",  9, 10 ]
+	- [ "/1/age",   10, 10 ]
+	- [ "/1/birth", 11, 10 ]
+	- [ "/2",       12,  3 ]
+	- [ "/2/name",  12, 10 ]
+	- [ "/2/tel",   13, 10 ]
+	- [ "/2/email", 14, 10 ]
+	- [ "/2/age",   15, 10 ]
+	- [ "/2/birth", 16, 10 ]
+
+
+- name:	 databind2
+  desc:  recursive binding
+  schema: &context_schema |
+	type:  map
+	class: My2::Context
+	mapping:
+	 "groups":
+	    type:  seq
+	    sequence:
+	      - type:  map
+	        class: My2::Group
+	        mapping:
+		 "name":
+		    type:  str
+		    required:  yes
+		 "desc":
+		    type:  str
+		 "owner": &userschema
+		    type:  map
+		    class: My2::User
+		    mapping:
+		     "name":
+		        type:  str
+			required: yes
+	             "desc":
+		        type:  str
+	             "gender":
+		        type:  bool
+		     "mail":
+		        type:   str
+		     "manager": *userschema
+	 "users":
+	    type: seq
+	    sequence:
+	      - *userschema
+	
+  classdef*: &context_classdef
+    ruby: |
+        require 'kwalify/util/hashlike'
+	module ::My2
+	
+	  class Context
+	    include Kwalify::Util::HashLike
+	    attr_accessor :groups     # seq
+	    attr_accessor :users      # seq
+	  end
+	
+	  class Group
+	    include Kwalify::Util::HashLike
+	    attr_accessor :name       # str
+	    attr_accessor :desc       # str
+	    attr_accessor :owner      # map
+	  end
+	
+	  class User
+	    include Kwalify::Util::HashLike
+	    attr_accessor :name       # str
+	    attr_accessor :gender     # bool
+	    attr_accessor :mail       # str
+	    attr_accessor :desc       # str
+	    attr_accessor :manager    # map
+	  end
+	
+	end
+
+  data: |
+	groups:
+	  - name:	admin
+	    desc:	administrator group
+	    owner: &root
+	      name:	root
+	      desc:	root user
+	  - name:       users
+	    desc:	user group
+	    owner: &guest
+	      name:	guest
+	      desc:	guest user
+	users:
+	  - *root
+	  - *guest
+	  - &user1
+	    name: user1
+	  - name: user2
+	    manager: *user1
+
+  expected*:
+    ruby: |
+	#<My2::Context:0x001
+	 @groups=
+	  [#<My2::Group:0x002
+	    @desc="administrator group",
+	    @name="admin",
+	    @owner=#<My2::User:0x003 @desc="root user", @name="root">>,
+	   #<My2::Group:0x004
+	    @desc="user group",
+	    @name="users",
+	    @owner=#<My2::User:0x005 @desc="guest user", @name="guest">>],
+	 @users=
+	  [#<My2::User:0x003 @desc="root user", @name="root">,
+	   #<My2::User:0x005 @desc="guest user", @name="guest">,
+	   #<My2::User:0x006 @name="user1">,
+	   #<My2::User:0x007
+	    @manager=#<My2::User:0x006 @name="user1">,
+	    @name="user2">]>
+
+  locations:
+	- [ "/",                      1,  1 ]
+	- [ "/groups",                2,  3 ]
+	- [ "/groups/0",              2,  5 ]
+	- [ "/groups/0/name",         2, 17 ]
+	- [ "/groups/0/desc",         3, 17 ]
+	- [ "/groups/0/owner",        4, 12 ]
+	- [ "/groups/0/owner/name",   5, 17 ]
+	- [ "/groups/0/owner/desc",   6, 17 ]
+	- [ "/groups/1",              7,  5 ]
+	- [ "/groups/1/name",         7, 17 ]
+	- [ "/groups/1/desc",         8, 17 ]
+	- [ "/groups/1/owner",        9, 12 ]
+	- [ "/groups/1/owner/name",  10, 17 ]
+	- [ "/groups/1/owner/desc",  11, 17 ]
+	- [ "/users",                13,  3 ]
+	- [ "/users/0",              13,  5 ]
+	- [ "/users/0/name",          5, 17 ]
+	- [ "/users/0/desc",          6, 17 ]
+	- [ "/users/1",              14,  5 ]
+	- [ "/users/1/name",         10, 17 ]
+	- [ "/users/1/desc",         11, 17 ]
+	- [ "/users/2",              15,  5 ]
+	- [ "/users/2/name",         16, 11 ]
+	- [ "/users/3",              17,  5 ]
+	- [ "/users/3/name",         17, 11 ]
+	- [ "/users/3/manager",      18, 14 ]
+	- [ "/users/3/manager/name", 16, 11 ]
+
+
+- name:	 databind3
+  desc:  preceding alias
+  testopts:  { preceding_alias: yes }
+  schema:    *context_schema
+  classdef*: *context_classdef
+  data: |
+	groups:
+	  - name:	admin
+	    desc:	administrator group
+	    owner:      *root
+	  - name:       users
+	    desc:	user group
+	    owner:      *guest
+	users:
+	  - &root
+	    name:	root
+	    desc:	root user
+	  - &guest
+	    name:	guest
+	    desc:	guest user
+	  - name:       user2
+	    manager:    *user1
+	  - &user1
+	    name:       user1
+
+  expected*:
+    ruby: |
+	#<My2::Context:0x001
+	 @groups=
+	  [#<My2::Group:0x002
+	    @desc="administrator group",
+	    @name="admin",
+	    @owner=#<My2::User:0x003 @desc="root user", @name="root">>,
+	   #<My2::Group:0x004
+	    @desc="user group",
+	    @name="users",
+	    @owner=#<My2::User:0x005 @desc="guest user", @name="guest">>],
+	 @users=
+	  [#<My2::User:0x003 @desc="root user", @name="root">,
+	   #<My2::User:0x005 @desc="guest user", @name="guest">,
+	   #<My2::User:0x006
+	    @manager=#<My2::User:0x007 @name="user1">,
+	    @name="user2">,
+	   #<My2::User:0x007 @name="user1">]>
+
+  locations:
+	- [ "/",                      1,  1 ]
+	- [ "/groups",                2,  3 ]
+	- [ "/groups/0",              2,  5 ]
+	- [ "/groups/0/name",         2, 17 ]
+	- [ "/groups/0/desc",         3, 17 ]
+	- [ "/groups/0/owner",        4, 17 ]
+	- [ "/groups/0/owner/name",  10, 17 ]
+	- [ "/groups/0/owner/desc",  11, 17 ]
+	- [ "/groups/1",              5,  5 ]
+	- [ "/groups/1/name",         5, 17 ]
+	- [ "/groups/1/desc",         6, 17 ]
+	- [ "/groups/1/owner",        7, 17 ]
+	- [ "/groups/1/owner/name",  13, 17 ]
+	- [ "/groups/1/owner/desc",  14, 17 ]
+	- [ "/users",                 9,  3 ]
+	- [ "/users/0",               9,  5 ]
+	- [ "/users/0/name",         10, 17 ]
+	- [ "/users/0/desc",         11, 17 ]
+	- [ "/users/1",              12,  5 ]
+	- [ "/users/1/name",         13, 17 ]
+	- [ "/users/1/desc",         14, 17 ]
+	- [ "/users/2",              15,  5 ]
+	- [ "/users/2/name",         15, 17 ]
+	- [ "/users/2/manager",      16, 17 ]
+	- [ "/users/2/manager/name", 18, 17 ]
+	- [ "/users/3",              17,  5 ]
+	- [ "/users/3/name",         18, 17 ]
+
+
+- name:	 databind4
+  desc:  default value
+  schema: |
+	type: map
+	class: Config
+	mapping:
+	 "host":  {type: str, default: localhost}
+	 "port":  {type: int, default: 80}
+	 "user":  {type: str, required: true}
+	 "pass":  {type: str, required: true}
+
+  classdef*:
+   "ruby": |
+	require 'kwalify/util/hashlike'
+	class Config
+	  include Kwalify::Util::HashLike
+	  def initialize
+	    @host = 'localhost'
+	    @port = 8080
+	  end
+	  attr_accessor :host, :port, :user, :pass
+	end
+   "java": |
+  data: |
+	#host:  localhost
+	port:  8080
+	user:  user1
+	pass:  password1
+  expected*:
+   "ruby": |
+	#<Config:0x001
+	 @host="localhost",
+	 @pass="password1",
+	 @port=8080,
+	 @user="user1">
+  locations:

data/test/test-main.rb

@@ -0,0 +1,157 @@
+###
+### $Rev: 90 $
+### $Release: 0.7.1 $
+### copyright(c) 2005-2008 kuwata-lab all rights reserved.
+###
+
+require File.dirname(__FILE__) + '/test.rb'
+
+require 'kwalify/main'
+
+
+module Kwalify
+  class Main
+    public :_parse_argv
+  end
+end
+
+
+class File
+  def self.move(filename, dirname)
+    File.rename(filename, "#{dirname}/#{filename}")
+  end
+end
+
+
+class MainTest < Test::Unit::TestCase
+
+  ## define test methods
+  filename = __FILE__.sub(/\.rb$/, ".yaml")
+  load_yaml_testdata(filename, :lang=>'ruby')
+
+
+  ## temporary directory
+  @@tmpdir = "tmp.dir"
+  Dir.mkdir(@@tmpdir) unless test(?d, @@tmpdir)
+
+
+  def _test
+    if @exception
+      classname = @exception =~ /Kwalify::(.*)/ ? $1 : @exception
+      @exception_class = Kwalify.const_get(classname)
+    end
+    case @method
+    when 'parseOptions'
+      _test_parse_options()
+    when 'execute'
+      _test_execute()
+    when 'validation'
+      raise "*** #{@name}: schema is not defined."  unless @schema
+      raise "*** #{@name}: valid is not defined."   unless @valid
+      raise "*** #{@name}: invalid is not defined." unless @invalid
+      _test_validation()
+    #when 'action'
+    #  _test_action()
+    else
+      raise "*** #{@method}: invalid method name."
+    end
+  end
+
+
+  ## validation test
+  def _test_validation()
+    return if $target && $target != @name
+    raise "*** schema is not defined." unless @schema
+    raise "*** valid is not defined." unless @valid
+    raise "*** invalid is not defined." unless @invalid
+    #
+    schema_filename  = @name + ".schema"
+    valid_filename   = @name + ".valid"
+    invalid_filename = @name + ".invalid"
+    #
+    begin
+      #
+      File.open(schema_filename,  'w') { |f| f.write(@schema) }
+      File.open(valid_filename,   'w') { |f| f.write(@valid) }
+      File.open(invalid_filename, 'w') { |f| f.write(@invalid) }
+      #
+      $stdout = StringWriter.new
+      main = Kwalify::Main.new('kwalify')
+      args = [ "-lf", schema_filename, valid_filename ]
+      main.execute(args)
+      output = $stdout;  $stdout = STDOUT
+      assert_text_equal(@valid_out, output)
+      #
+      $stdout = StringWriter.new
+      main = Kwalify::Main.new('kwalify')
+      args = [ "-lf", schema_filename, invalid_filename ]
+      main.execute(args)
+      output = $stdout;  $stdout = STDOUT
+      assert_text_equal(@invalid_out, output)
+      #
+    ensure
+      File.move(schema_filename,  @@tmpdir)
+      File.move(valid_filename,   @@tmpdir)
+      File.move(invalid_filename, @@tmpdir)
+    end
+  end
+
+
+  ## execute test
+  def _test_execute()
+    return if $target && $target != @name
+    raise "*** #{@name}: args is required."    unless @args
+    raise "*** #{@name}: expected is require." unless @expected
+    #
+    File.open("#{@name}.schema", 'w')   { |f| f.write(@schema)   } if @schema
+    File.open("#{@name}.document", 'w') { |f| f.write(@document) } if @document
+    #
+    begin
+      main = Kwalify::Main.new("kwalify")
+      if @exception_class
+        $stdout = StringWriter.new
+        ex = assert_raise(@exception_class) do
+          main.execute(@args)
+        end
+        assert_text_equal(@errormsg, ex.message) if @errormsg
+        $stdout = STDOUT
+      else
+        $stdout = StringWriter.new
+        main.execute(@args)
+        actual = $stdout;  $stdout = STDOUT
+        assert_text_equal(@expected, actual)
+      end
+    ensure
+      File.move("#{@name}.schema",   @@tmpdir) if @schema
+      File.move("#{@name}.document", @@tmpdir) if @document
+    end
+  end
+
+
+  ## command option test
+  def _test_parse_options()
+    return if $target && $target != @name
+    main = Kwalify::Main.new("kwalify")
+    begin
+      filenames = main._parse_argv(@args)
+      s = main._inspect()
+      s << "filenames:\n"
+      filenames.each do |filename|
+        s << "  - #{filename}\n"
+      end
+      actual = s
+      assert_text_equal(@expected, actual)
+    rescue => ex
+      #klass = @exception
+      if @exception_class && ex.class == @exception_class
+        # OK
+        assert_equal(@error_symbol, ex.error_symbol) if ex.respond_to?(:error_symbol)
+      else
+        # NG
+        raise ex
+      end
+    end
+  end
+
+
+end