kwalify 0.5.1 → 0.6.0

data/test/test-metavalidator.rb

@@ -1,71 +1,55 @@
 ###
-### $Rev: 42 $
-### $Release: 0.5.1 $
+### $Rev: 51 $
+### $Release: 0.6.0 $
 ### copyright(c) 2005 kuwata-lab all rights reserved.
 ###
 
-unless defined?(TESTDIR)
-   TESTDIR = File.dirname(__FILE__)
-   libdir  = File.dirname(TESTDIR) + "/lib"
-   $LOAD_PATH << libdir << TESTDIR
-end
-
-require 'test/unit'
-require 'test/unit/ui/console/testrunner'
-require 'kwalify'
-require 'kwalify/util/assert-diff'
-require 'yaml'
+require File.dirname(__FILE__) + '/test.rb'
 
 
 class MetaValidatorTest < Test::Unit::TestCase
 
    ## define test methods
    filename = __FILE__.sub(/\.rb$/, '.yaml')
-   str = File.read(filename)
-   @@docs = {}
-   YAML.load_documents(str) do |doc|
-      #doc.default = ''
-      name = doc['name']
-      !@@docs.key?(name) or raise "*** test name '#{name}' is duplicated."
-      doc.each do |key, val|
-         if key =~ /(.*)\*$/
-            doc[$1] = val['ruby']
-         end
+   load_yaml_documents(filename) do |ydoc|
+      name = ydoc['name']
+      ydoc.each do |key, val|
+         ydoc[$1] = val['ruby'] if key =~ /(.*)\*$/
       end
-      @@docs[name] = doc
       s = <<-END
          def test_meta_#{name}
-            doc = @@docs['#{name}']
-            @name    = doc['name']
-            @desc    = doc['desc']
-            @schema  = doc['schema']
-            @meta_msg = doc['meta-msg']
-            # @rule_msg = doc['rule-msg']
-            _test(:meta)
+            @name    = #{ydoc['name'].inspect}
+            @desc    = #{ydoc['desc'].inspect}
+            @schema  = #{ydoc['schema'].inspect}
+            @meta_msg = #{ydoc['meta-msg'].inspect}
+            # @rule_msg = #{ydoc['rule-msg'].inspect}
+            @test_type = :meta
+            _test
          end
       END
-      eval s if doc['meta-msg']
+      module_eval s if ydoc['meta-msg']
       s = <<-END
          def test_rule_#{name}
-            doc = @@docs['#{name}']
-            @name    = doc['name']
-            @desc    = doc['desc']
-            @schema  = doc['schema']
-            # @meta_msg = doc['meta-msg']
-            @rule_msg = doc['rule-msg']
-            _test(:rule)
+            @name    = #{ydoc['name'].inspect}
+            @desc    = #{ydoc['desc'].inspect}
+            @schema  = #{ydoc['schema'].inspect}
+            # @meta_msg = #{ydoc['meta-msg'].inspect}
+            @rule_msg = #{ydoc['rule-msg'].inspect}
+            @test_type = :rule
+            _test
          end
       END
-      eval s if doc['rule-msg']
+      module_eval s if ydoc['rule-msg']
    end
 
+
    ## execute test
-   def _test(test_type)
+   def _test()
       return if $target && $target != @name
       #schema = YAML.load(@schema)
       parser = Kwalify::YamlParser.new(@schema)
       schema = parser.parse()
-      case test_type
+      case @test_type
       when :meta
          meta_validator = Kwalify::MetaValidator.instance()
          errors = meta_validator.validate(schema)
@@ -89,12 +73,8 @@ class MetaValidatorTest < Test::Unit::TestCase
       if $print
          print actual
       else
-         assert_equal_with_diff(expected, actual)
+         assert_text_equal(expected, actual)
       end
    end
 
 end
-
-#if $0 == __FILE__
-#   Test::Unit::UI::Console::TestRunner.run(MetaValidatorTest)
-#end

data/test/test-metavalidator.yaml

@@ -1,6 +1,6 @@
 ##
-## $Rev: 2 $
-## $Release: 0.5.1 $
+## $Rev: 51 $
+## $Release: 0.6.0 $
 ## copyright(c) 2005 kuwata-lab all rights reserved.
 ##
 ---
@@ -1102,3 +1102,22 @@ meta-msg: |
 rule-msg: |
   :ident_notmap       : [/sequence/0/mapping/values/sequence/0] 'ident:': is available only with an element of mapping.
 #
+---
+  name:   classname_notmap
+  desc:   classname_notmap
+  schema: |
+    type:   map
+    classname:  User
+    mapping:
+     "name":  { type: str, required: yes }
+     "email": { type: str }
+     "phones":
+        type:  seq
+        classname:  Phone
+        sequence:
+          - type: str
+       
+  meta-msg: |
+    :classname_notmap   : [/mapping/phones/classname] 'classname:': available only with map type.
+  rule-msg: |
+    :classname_notmap   : [/mapping/phones/classname] 'classname:': available only with map type.

data/test/test-rule.rb

@@ -1,51 +1,18 @@
 ###
-### $Rev: 42 $
-### $Release: 0.5.1 $
+### $Rev: 51 $
+### $Release: 0.6.0 $
 ### copyright(c) 2005 kuwata-lab all rights reserved.
 ###
 
-unless defined?(TESTDIR)
-   TESTDIR = File.dirname(__FILE__)
-   libdir  = File.dirname(TESTDIR) + "/lib"
-   $LOAD_PATH << libdir << TESTDIR
-end
-
-require 'test/unit'
-require 'test/unit/ui/console/testrunner'
-require 'kwalify'
-require 'kwalify/util/assert-diff'
-require 'yaml'
+require File.dirname(__FILE__) + '/test.rb'
 
 
 class RuleTest < Test::Unit::TestCase
 
    ## define test methods
-   testdata_filename = __FILE__.sub(/\.rb$/, '.yaml')
-   str = File.read(testdata_filename)
-   @@docs = {}
-   YAML.load_documents(str) do |doc|
-      name = doc['name']
-      !@@docs.key?(name) or raise "*** test name '#name}' is duplicated."
-      @@docs[name] = doc
-      doc.each do |key, val|
-         if key =~ /\A(.*)\*\z/
-            doc[$1] ||= val['ruby']
-         end
-      end
-      doc['schema'] = YAML.load(doc['input'])
-      s = <<-END
-         def test_#{name}
-            doc = @@docs['#{name}']
-            @name    = doc['name']
-            @desc    = doc['desc']
-            @input   = doc['input']
-            @schema  = doc['schema']
-            @exception   = #{doc['exception'] == nil ? 'nil' : doc['error']}
-            _test()
-         end
-      END
-      eval s
-   end
+   filename = __FILE__.sub(/\.rb$/, '.yaml')
+   load_yaml_testdata(filename, :lang=>'ruby')
+
 
    ## execute test
    def _test()

data/test/test-rule.yaml

@@ -1,6 +1,6 @@
 ##
-## $Rev: 2 $
-## $Release: 0.5.1 $
+## $Rev: 48 $
+## $Release: 0.6.0 $
 ## copyright(c) 2005 kuwata-lab all rights reserved.
 ##
 ---

data/test/test-validator.rb

@@ -1,44 +1,18 @@
 ###
-### $Rev: 42 $
-### $Release: 0.5.1 $
+### $Rev: 51 $
+### $Release: 0.6.0 $
 ### copyright(c) 2005 kuwata-lab all rights reserved.
 ###
 
-unless defined?(TESTDIR)
-   TESTDIR = File.dirname(__FILE__)
-   libdir  = File.dirname(TESTDIR) + "/lib"
-   $LOAD_PATH << libdir << TESTDIR
-end
-
-require 'test/unit'
-require 'test/unit/ui/console/testrunner'
-require 'kwalify'
-require 'kwalify/util/assert-diff'
-require 'yaml'
+require File.dirname(__FILE__) + '/test.rb'
 
 
 class ValidatorTest < Test::Unit::TestCase
 
+
    ## define test methods
-   #str = DATA.read()        # doesn't work when required by other script
-   str = File.read(__FILE__)
-   str.gsub!(/.*^__END__$/m, '')
-   name_table = {}
-   YAML.load_documents(str) do |doc|
-      !name_table.key?(doc['name']) or raise "*** test name '#{doc['name']}' is duplicated."
-      name_table[doc['name']] = true
-      s = <<-END
-         def test_#{doc['name']}
-            @name    = #{doc['name'].dump}
-            @schema  = #{doc['schema'].dump}
-            @valid   = #{doc['valid'].dump}
-            @invalid = #{doc['invalid'].dump}
-            @error   = #{doc['error'].dump}
-            _test()
-         end
-      END
-      eval s
-   end
+   filename = __FILE__.sub(/\.rb$/, '.yaml')
+   load_yaml_testdata(filename, :lang=>'ruby')
 
 
    ## execute test
@@ -48,856 +22,49 @@ class ValidatorTest < Test::Unit::TestCase
       schema = YAML.load(@schema)
       validator = Kwalify::Validator.new(schema)
       error2 = @error.gsub(/\(line \d+\)/, '')
-      _test_body(validator, @valid,   ''    , false)
-      _test_body(validator, @invalid, error2, false)
+      _test_by_syck_parser(validator, @valid,   ''    )
+      _test_by_syck_parser(validator, @invalid, error2)
       # Kwalify::YamlParser
       schema = Kwalify::YamlParser.new(@schema).parse()
       validator = Kwalify::Validator.new(schema)
-      _test_body(validator, @valid,   ''    , true)
-      _test_body(validator, @invalid, @error, true)
+      _test_by_kwalify_parser(validator, @valid,   ''    )
+      _test_by_kwalify_parser(validator, @invalid, @error)
    end
 
-   def _test_body(validator, input, expected, flag_parser)
-      if flag_parser
-         parser = Kwalify::YamlParser.new(input)
-         document = parser.parse()
-      else
-         document = YAML.load(input)
-      end
+
+   def _test_by_kwalify_parser(validator, input, expected)
+      parser = Kwalify::YamlParser.new(input)
+      document = parser.parse()
       error_list  = validator.validate(document)
-      actual = ""
+      parser.set_errors_linenum(error_list)
+      error_list.sort!
+      actual = ''
       error_list.each do |error|
-         errsym = error.error_symbol.inspect
-         if flag_parser
-            linenum = parser.path_linenum(error.path)
-            actual << "%-20s: (line %d)[%s] %s\n" % [errsym, linenum, error.path, error.message]
-         else
-            actual << "%-20s: [%s] %s\n" % [errsym, error.path, error.message]
-         end
+         e = error
+         args = [e.error_symbol.inspect, e.linenum, e.path, e.message]
+         actual << "%-20s: (line %d)[%s] %s\n" % args
       end
       if $print
          print actual
       else
-         assert_equal_with_diff(expected, actual)
+         assert_text_equal(expected, actual)
       end
    end
 
-end
 
-#if $0 == __FILE__
-#   Test::Unit::UI::Console::TestRunner.run(ValidatorTest)
-#end
+   def _test_by_syck_parser(validator, input, expected)
+      document = YAML.load(input)
+      error_list  = validator.validate(document)
+      expected = expected.to_a.sort.join()
+      actual = error_list.collect { |e|
+         "%-20s: [%s] %s\n" % [e.error_symbol.inspect, e.path, e.message]
+      }.sort.join()
+      if $print
+         print actual
+      else
+         assert_text_equal(expected, actual)
+      end
+   end
 
-__END__
----
-name:  mapping1
-desc:  mapping test
-#
-schema: |
-  type:        map
-  required:    true
-  mapping:
-    name:
-      type:       str
-      required:   true
-    email:
-      type:       str
-      pattern:    /@/
-      required:   yes
-    age:
-      type:       int
-    blood:
-      type:       str
-      enum:
-        - A
-        - B
-        - O
-        - AB
-    birth:
-      type:       date
-#
-valid: |
-  name:   foo
-  email:  foo@mail.com
-  age:    20
-  blood:  AB
-  birth:   1985-01-01
-#
-invalid: |
-  nam:    foo
-  email:  foo(at)mail.com
-  age:    twenty
-  blood:  ab
-  birth:  Jul 01, 1985
-#
-error: |
-  :required_nokey     : (line 1)[/] key 'name:' is required.
-  :key_undefined      : (line 1)[/nam] key 'nam:' is undefined.
-  :enum_notexist      : (line 4)[/blood] 'ab': invalid blood value.
-  :type_unmatch       : (line 5)[/birth] 'Jul 01, 1985': not a date.
-  :type_unmatch       : (line 3)[/age] 'twenty': not a integer.
-  :pattern_unmatch    : (line 2)[/email] 'foo(at)mail.com': not matched to pattern /@/.
-#
----
-name:  sequence1
-desc:  sequence test
-#
-schema: |
-  type:        seq
-  required:    true
-  sequence:
-    - type:       str
-      required:   true
-#
-valid: |
-  - foo
-  - bar
-  - baz
-#
-invalid: |
-  - foo
-  - bar
-  -
-  - baz
-  - 100
-#
-error: |
-  :required_novalue   : (line 3)[/2] value required but none.
-  :type_unmatch       : (line 5)[/4] '100': not a string.
-#
----
-name:  nested1
-desc:  nest of seq and map
-#
-schema: |
-  type:        map
-  required:    true
-  mapping:
-    address-book:
-      type:       seq
-      required:   true
-      sequence:
-        - type:   map
-          mapping:
-            name:
-              type:       str
-              required:   yes
-            email:
-              type:       str
-              pattern:    /@/
-              required:   yes
-            age:
-              type:       int
-            blood:
-              type:       str
-              enum:
-                - A
-                - B
-                - O
-                - AB
-            birth:
-              type:       date
-#
-valid: |
-  address-book:
-    - name:       foo
-      email:      foo@mail.com
-      age:        20
-      blood:      AB
-      birth:      1985-01-01
-    - name:       bar
-      email:      foo@mail.com
-#
-invalid: |
-  address-book:
-    - name:       foo
-      mail:       foo@mail.com
-      age:        twenty
-      blood:      ab
-      birth:      1985/01/01
-    - name:       bar
-      email:      bar(at)mail.com
-#
-error: |
-  :required_nokey     : (line 2)[/address-book/0] key 'email:' is required.
-  :key_undefined      : (line 3)[/address-book/0/mail] key 'mail:' is undefined.
-  :enum_notexist      : (line 5)[/address-book/0/blood] 'ab': invalid blood value.
-  :type_unmatch       : (line 6)[/address-book/0/birth] '1985/01/01': not a date.
-  :type_unmatch       : (line 4)[/address-book/0/age] 'twenty': not a integer.
-  :pattern_unmatch    : (line 8)[/address-book/1/email] 'bar(at)mail.com': not matched to pattern /@/.
-#
----
-name:  anchor1
-desc:  schema with anchor
-#
-schema: |
-  type:        seq
-  required:    true
-  sequence:
-    - type:        map
-      required:    true
-      mapping:
-        first-name: &name
-          type:       str
-          required:   yes
-        family-name: *name
-#
-valid: |
-  - first-name:  foo
-    family-name: Foo
-  - first-name:  bar
-    family-name: Bar
-#
-invalid: |
-  - first-name:  foo
-    last-name:   Foo
-  - first-name:  bar
-    family-name: 100
-#
-error: |
-  :required_nokey     : (line 1)[/0] key 'family-name:' is required.
-  :key_undefined      : (line 2)[/0/last-name] key 'last-name:' is undefined.
-  :type_unmatch       : (line 4)[/1/family-name] '100': not a string.
-#
----
-name:  anchor2
-desc:  schema with anchor 2
-#
-schema: |
-  type:        map
-  required:    true
-  mapping:
-    title: &name
-      type:       str
-      required:   true
-    address-book:
-      type:       seq
-      required:   true
-      sequence:
-        - type:   map
-          mapping:
-            name: *name
-            email:
-              type:       str
-              required:   yes
-#
-valid: |
-  title:   my friends
-  address-book:
-    - name:   foo
-      email:  foo@mail.com
-    - name:   bar
-      email:  bar@mail.com
-#
-invalid: |
-  title:   my friends
-  address-book:
-    - name:  100
-      email: foo@mail.com
-    - first-name:  bar
-      email: bar@mail.com
-#
-error: |
-  :type_unmatch       : (line 3)[/address-book/0/name] '100': not a string.
-  :required_nokey     : (line 5)[/address-book/1] key 'name:' is required.
-  :key_undefined      : (line 5)[/address-book/1/first-name] key 'first-name:' is undefined.
-#
----
-name:  anchor3
-desc:  document with anchor
-#
-schema: |
-  type:        seq
-  sequence:
-    - &employee
-      type:    map
-      mapping:
-        name:
-          type:   str
-        post:
-          type:   str
-          enum:
-            - exective
-            - manager
-            - clerk
-        supervisor: *employee
-#
-valid: |
-  - &foo
-    name:  foo
-    post:  exective
-  - &bar
-    name:  bar
-    post:  manager
-    supervisor: *foo
-  - &baz
-    name:  baz
-    post:  clerk
-    supervisor: *bar
-  - &zak
-    name:  zak
-    post:  clerk
-    supervisor: *bar
-#
-invalid: |
-  - &foo
-    name:  100
-    post:  exective
-    supervisor: *foo
-  - &bar
-    name:  foo
-    post:  worker
-    supervisor: *foo
-#
-error: |
-  :type_unmatch       : (line 2)[/0/name] '100': not a string.
-  :enum_notexist      : (line 7)[/1/post] 'worker': invalid post value.
-#
----
-name:  range1
-desc:  range test && bug#?????
-#
-schema: |
-  type:  map
-  mapping:
-   "max-only":
-      type:     seq
-      sequence:
-        - type:     number
-          required: yes
-          range:    { max: 100 }
-   "min-only":
-      type:     seq
-      sequence:
-        - type:     number
-          required: yes
-          range:    { min: 10.0 }
-   "max-and-min":
-      type:     seq
-      sequence:
-        - type:     number
-          required: yes
-          range:    { max: 100.0, min: 10.0 }
-#
-valid: |
-  max-only:
-    - 100
-    - 100.0
-  min-only:
-    - 10
-    - 10.0
-  max-and-min:
-    - 100
-    - 10
-    - 100.0
-    - 10.0
-#
-invalid: |
-  max-only:
-    - 101
-    - 100.1
-  min-only:
-    - 9
-    - 9.99
-  max-and-min:
-    - 101
-    - 100.1
-    - 9
-    - 9.99
-#
-error: |
-  :range_toosmall     : (line 5)[/min-only/0] '9': too small (< min 10.0).
-  :range_toosmall     : (line 6)[/min-only/1] '9.99': too small (< min 10.0).
-  :range_toolarge     : (line 8)[/max-and-min/0] '101': too large (> max 100.0).
-  :range_toolarge     : (line 9)[/max-and-min/1] '100.1': too large (> max 100.0).
-  :range_toosmall     : (line 10)[/max-and-min/2] '9': too small (< min 10.0).
-  :range_toosmall     : (line 11)[/max-and-min/3] '9.99': too small (< min 10.0).
-  :range_toolarge     : (line 2)[/max-only/0] '101': too large (> max 100).
-  :range_toolarge     : (line 3)[/max-only/1] '100.1': too large (> max 100).
-#
----
-name:  range2
-desc:  range test (with max-ex and min-ex)
-#
-schema: |
-  type:  map
-  mapping:
-   "max-ex-only":
-      type:     seq
-      sequence:
-        - type:     number
-          required: yes
-          range:    { max-ex: 100 }
-   "min-ex-only":
-      type:     seq
-      sequence:
-        - type:     number
-          required: yes
-          range:    { min-ex: 10.0 }
-   "max-ex-and-min-ex":
-      type:     seq
-      sequence:
-        - type:     number
-          required: yes
-          range:    { max-ex: 100.0, min-ex: 10.0 }
-#
-valid: |
-  max-ex-only:
-    - 99
-    - 99.99999
-  min-ex-only:
-    - 11
-    - 10.00001
-  max-ex-and-min-ex:
-    - 99
-    - 11
-    - 99.99999
-    - 10.00001
-#
-invalid: |
-  max-ex-only:
-    - 100
-    - 100.0
-  min-ex-only:
-    - 10
-    - 10.0
-  max-ex-and-min-ex:
-    - 100
-    - 100.0
-    - 10
-    - 10.0
-#
-error: |
-  :range_toosmallex   : (line 5)[/min-ex-only/0] '10': too small (<= min 10.0).
-  :range_toosmallex   : (line 6)[/min-ex-only/1] '10.0': too small (<= min 10.0).
-  :range_toolargeex   : (line 2)[/max-ex-only/0] '100': too large (>= max 100).
-  :range_toolargeex   : (line 3)[/max-ex-only/1] '100.0': too large (>= max 100).
-  :range_toolargeex   : (line 8)[/max-ex-and-min-ex/0] '100': too large (>= max 100.0).
-  :range_toolargeex   : (line 9)[/max-ex-and-min-ex/1] '100.0': too large (>= max 100.0).
-  :range_toosmallex   : (line 10)[/max-ex-and-min-ex/2] '10': too small (<= min 10.0).
-  :range_toosmallex   : (line 11)[/max-ex-and-min-ex/3] '10.0': too small (<= min 10.0).
-#
----
-name:  range3
-desc:  range test (with max, min, max-ex and min-ex)
-#
-schema: |
-  type:  map
-  mapping:
-   "A":
-      type:     seq
-      sequence:
-        - type:     number
-          required: yes
-          range:    { max: 100, min-ex: 10.0 }
-   "B":
-      type:     seq
-      sequence:
-        - type:     number
-          required: yes
-          range:    { min: 10, max-ex: 100.0 }
-#
-valid: |
-  A:
-    - 100
-    - 10.00001
-  B:
-    - 10
-    - 99.99999
-#
-invalid: |
-  A:
-    - 100.00001
-    - 10.0
-  B:
-    - 9.99999
-    - 100.0
-#
-error: |
-  :range_toolarge     : (line 2)[/A/0] '100.00001': too large (> max 100).
-  :range_toosmallex   : (line 3)[/A/1] '10.0': too small (<= min 10.0).
-  :range_toosmall     : (line 5)[/B/0] '9.99999': too small (< min 10).
-  :range_toolargeex   : (line 6)[/B/1] '100.0': too large (>= max 100.0).
-#
----
-name:  length1
-desc:  length test
-#
-schema: |
-  type:  map
-  mapping:
-   "max-only":
-      type:   seq
-      sequence:
-        - type:  text
-          length:  { max: 8 }
-   "min-only":
-      type:   seq
-      sequence:
-        - type:  text
-          length:  { min: 4 }
-   "max-and-min":
-      type:   seq
-      sequence:
-        - type:  text
-          length:  { max: 8, min: 4 }
-#
-valid: |
-  max-only:
-    - hogehoge
-    - 12345678
-    - a
-    -
-  min-only:
-    - hoge
-    - 1234
-    - hogehogehogehogehoge
-  max-and-min:
-    - hogehoge
-    - 12345678
-    - hoge
-    - 1234
-#
-invalid: |
-  max-only:
-    - hogehoge!
-  min-only:
-    - foo
-    -
-  max-and-min:
-    - foobarbaz
-    - foo
-#
-error: |
-  :length_tooshort    : (line 4)[/min-only/0] 'foo': too short (length 3 < min 4).
-  :length_toolong     : (line 7)[/max-and-min/0] 'foobarbaz': too long (length 9 > max 8).
-  :length_tooshort    : (line 8)[/max-and-min/1] 'foo': too short (length 3 < min 4).
-  :length_toolong     : (line 2)[/max-only/0] 'hogehoge!': too long (length 9 > max 8).
-#
----
-name:  length2
-desc:  length test (with max-ex and min-ex)
-#
-schema: |
-  type:  map
-  mapping:
-   "max-ex-only":
-      type:   seq
-      sequence:
-        - type:  text
-          length:  { max-ex: 8 }
-   "min-ex-only":
-      type:   seq
-      sequence:
-        - type:  text
-          length:  { min-ex: 4 }
-   "max-ex-and-min-ex":
-      type:   seq
-      sequence:
-        - type:  text
-          length:  { max-ex: 8, min-ex: 4 }
-#
-valid: |
-  max-ex-only:
-    - hogehog
-    - 1234567
-    - a
-    -
-  min-ex-only:
-    - hoge!
-    - 1234!
-    - hogehogehogehogehoge
-  max-ex-and-min-ex:
-    - hogehog
-    - 1234567
-    - hoge!
-    - 1234!
-#
-invalid: |
-  max-ex-only:
-    - hogehoge
-  min-ex-only:
-    - foo!
-    -
-  max-ex-and-min-ex:
-    - foobarba
-    - foo!
-#
-error: |
-  :length_tooshortex  : (line 4)[/min-ex-only/0] 'foo!': too short (length 4 <= min 4).
-  :length_toolongex   : (line 2)[/max-ex-only/0] 'hogehoge': too long (length 8 >= max 8).
-  :length_toolongex   : (line 7)[/max-ex-and-min-ex/0] 'foobarba': too long (length 8 >= max 8).
-  :length_tooshortex  : (line 8)[/max-ex-and-min-ex/1] 'foo!': too short (length 4 <= min 4).
-#
----
-name:  length3
-desc:  length test (with min, max, max-ex and min-ex)
-#
-schema: |
-  type:  map
-  mapping:
-   "A":
-      type:   seq
-      sequence:
-        - type:  text
-          length:  { max: 8, min-ex: 4 }
-   "B":
-      type:   seq
-      sequence:
-        - type:  text
-          length:  { max-ex: 8, min: 4 }
-#
-valid: |
-  A:
-    - hogehoge
-    - 12345
-  B:
-    - hogehog
-    - 1234
-#
-invalid: |
-  A:
-    - hogehoge!
-    - 1234
-  B:
-    - hogehoge
-    - 123
-#
-error: |
-  :length_toolong     : (line 2)[/A/0] 'hogehoge!': too long (length 9 > max 8).
-  :length_tooshortex  : (line 3)[/A/1] '1234': too short (length 4 <= min 4).
-  :length_toolongex   : (line 5)[/B/0] 'hogehoge': too long (length 8 >= max 8).
-  :length_tooshort    : (line 6)[/B/1] '123': too short (length 3 < min 4).
-#
----
-name:  assert1
-desc:  assert test
-#
-schema: |
-  type: seq
-  sequence:
-    - type: map
-      mapping:
-       "less-than":
-          type: number
-          assert: val < 8
-       "more-than":
-          type: number
-          assert: 3 < val
-       "between":
-          type: number
-          assert: 3 < val && val < 8
-       "except":
-          type: number
-          assert: val < 3 || 8 < val
-#
-valid: |
-  - less-than: 5
-  - more-than: 5
-  - between: 5
-  - except: 0
-#
-invalid: |
-  - less-than: 8
-  - more-than: 3
-  - between: 2.9
-  - except: 3.1
-#
-error: |
-  :assert_failed      : (line 1)[/0/less-than] '8': assertion expression failed (val < 8).
-  :assert_failed      : (line 2)[/1/more-than] '3': assertion expression failed (3 < val).
-  :assert_failed      : (line 3)[/2/between] '2.9': assertion expression failed (3 < val && val < 8).
-  :assert_failed      : (line 4)[/3/except] '3.1': assertion expression failed (val < 3 || 8 < val).
-#
----
-name:  deftype1
-desc:  default type test
-#
-schema: |
-  type: seq
-  sequence:
-    - type: map
-      mapping:
-       "name":
-       "email":
-#
-valid: |
-  - name: foo
-    email: foo@mail.com
-  - name: bar
-  - email: baz@mail.com
-#
-invalid: |
-  - name: 123
-    email: true
-  - name: 3.14
-  - email: 2004-01-01
-#
-error: |
-  :type_unmatch       : (line 1)[/0/name] '123': not a string.
-  :type_unmatch       : (line 2)[/0/email] 'true': not a string.
-  :type_unmatch       : (line 3)[/1/name] '3.14': not a string.
-  :type_unmatch       : (line 4)[/2/email] '2004-01-01': not a string.
-#
----
-name:  ident1
-desc:  ident constraint test
-#
-schema: |
-  type: seq
-  sequence:
-    - type: map
-      mapping:
-       "name":
-          ident:  yes
-       "age":
-          type: int
-#
-valid: |
-  - name: foo
-    age:  10
-  - name: bar
-    age:  10
-  - name: baz
-    age:  10
-#
-invalid: |
-  - name: foo
-    age:  10
-  - name: bar
-    age:  10
-  - name: bar
-    age:  10
-#
-error: |
-  :value_notunique    : (line 5)[/2/name] 'bar': is already used at '/1/name'.
-#
----
-name:  unique1
-desc:  unique constraint test with map
-#
-schema: |
-  type: seq
-  sequence:
-    - type: map
-      mapping:
-       "name":
-          unique:  yes
-       "age":
-          type: int
-#
-valid: |
-  - name: foo
-    age:  10
-  - name: bar
-    age:  10
-  - name: baz
-    age:  10
-#
-invalid: |
-  - name: foo
-    age:  10
-  - name: bar
-    age:  10
-  - name: bar
-    age:  10
-#
-error: |
-  :value_notunique    : (line 5)[/2/name] 'bar': is already used at '/1/name'.
-#
----
-name:  unique2
-desc:  unique constraint test with seq
-#
-schema: |
-  type: seq
-  sequence:
-    - type: str
-      unique: yes
-#
-valid: |
-  - foo
-  - ~
-  - bar
-  - ~
-  - baz
-#
-invalid: |
-  - foo
-  - ~
-  - bar
-  - ~
-  - bar
-#
-error: |
-  :value_notunique    : (line 5)[/4] 'bar': is already used at '/2'.
-#
----
-name:  default1
-desc:  default value of map
-#
-schema: |
-  type: map
-  mapping:
-    =:
-      type: number
-      range: { min: -10, max: 10 }
-#
-valid: |
-  value1: 0
-  value2: 10
-  value3: -10
-#
-invalid: |
-  value1: 0
-  value2: 20
-  value3: -20
-error: |
-  :range_toolarge     : (line 2)[/value2] '20': too large (> max 10).
-  :range_toosmall     : (line 3)[/value3] '-20': too small (< min -10).
----
-name:  merge1
-desc:  merge maps
-#
-schema: |
-  type: map
-  mapping:
-   "group":
-      type: map
-      mapping:
-       "name": &name
-          type: str
-          required: yes
-       "email": &email
-          type: str
-          pattern: /@/
-          required: no
-   "user":
-      type: map
-      mapping:
-       "name":
-          <<: *name             # merge
-          length: { max: 16 }   # add
-       "email":
-          <<: *email            # merge
-          required: yes         # override
-#
-valid: |
-  group:
-    name: foo
-    email: foo@mail.com
-  user:
-    name:  bar
-    email: bar@mail.com
-#
-invalid: |
-  group:
-    name: foo
-    email: foo@mail.com
-  user:
-    name: toooooo-looooong-naaaame
-#
-error: |
-  :required_nokey     : (line 4)[/user] key 'email:' is required.
-  :length_toolong     : (line 5)[/user/name] 'toooooo-looooong-naaaame': too long (length 24 > max 16).
-#
+
+end