kwalify 0.1.0 → 0.2.0

data/test/test-metavalidator.rb

@@ -0,0 +1,608 @@
+###
+### $Rev: 18 $
+### $Release: 0.2.0 $
+### copyright(c) 2005 kuwata-lab all rights reserved.
+###
+
+if $0 == __FILE__
+   testdir = File.dirname(__FILE__)
+   libdir  = File.dirname(testdir) + "/lib"
+   $LOAD_PATH << libdir << testdir
+   require 'test/unit'
+   require 'test/unit/ui/console/testrunner'
+   require 'kwalify'
+   require 'kwalify/util/assert-diff'
+   require 'yaml'
+end
+
+
+class MetaValidatorTest < 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|
+      doc.default = ''
+      !name_table.key?(doc['name']) or raise "*** test name '#{doc['name']}' is duplicated."
+      name_table[doc['name']] = true
+      s = <<-END
+         def test_meta_#{doc['name']}
+            @name    = #{doc['name'].dump}
+            @desc    = #{doc['desc'].dump}
+            @schema  = #{doc['schema'].dump}
+            @meta_msg = #{doc['meta-msg'].dump}
+            # @rule_msg = #{doc['rule-msg'].dump}
+            _test(:meta)
+         end
+         def test_rule_#{doc['name']}
+            @name    = #{doc['name'].dump}
+            @desc    = #{doc['desc'].dump}
+            @schema  = #{doc['schema'].dump}
+            # @meta_msg = #{doc['meta-msg'].dump}
+            @rule_msg = #{doc['rule-msg'].dump}
+            _test(:rule)
+         end
+      END
+      eval s
+   end
+
+   ## execute test
+   def _test(test_type)
+      return if $target && $target != @name
+      schema = YAML.load(@schema)
+      case test_type
+      when :meta
+         meta_validator = Kwalify.meta_validator()
+         errors = meta_validator.validate(schema)
+         expected = @meta_msg
+      when :rule
+         errors = []
+         begin
+            rule = Kwalify::Validator.new(schema)
+         rescue Kwalify::KwalifyError => error
+            errors << error
+         end
+         expected = @rule_msg
+      end
+      actual = ''
+      errors.each do |error|
+         raise error if error.is_a?(Kwalify::AssertionError)
+         actual << "%-20s: [%s] %s\n" % [error.error_symbol.inspect, error.path, error.message]
+      end
+      if $print
+         print actual
+      else
+         assert_equal_with_diff(expected, actual)
+      end
+   end
+
+end
+
+__END__
+---
+name:  schema_notmap
+desc:  schema_notmap
+#
+schema: |
+  - type: str
+  - type: int
+#
+meta-msg: |
+  :type_unmatch       : [/] not a mapping.
+#
+rule-msg: |
+  :schema_notmap      : [/] schema definition is not a mapping.
+# :invalid_schema     : [/] schema definition is invalid.
+#
+---
+name:  type_unknown
+desc:  type_unknown
+#
+schema: |
+  type: map
+  mapping:
+   "name1":
+      type: str
+   "name2":
+      type: string
+   "age1":
+      type: int
+   "age2":
+      type: integer
+   "desc1":
+      type: text
+   "amount1":
+      type: float
+   "amount2":
+      type: number
+   "birth1":
+      type: date
+   "birth2":
+      type: time
+   "birth3":
+      type: timestamp
+   "data1":
+      type: scalar
+   "data2":
+      type: schalar
+#
+meta-msg: |
+  :enum_notexist      : [/mapping/age2/type] 'integer': invalid type value.
+  :enum_notexist      : [/mapping/name2/type] 'string': invalid type value.
+  :enum_notexist      : [/mapping/data2/type] 'schalar': invalid type value.
+#
+rule-msg: |
+  :type_unknown       : [/mapping/age2/type] 'integer': unknown type.
+#  :type_unknown       : [/mapping/data2/type] 'schalar': unknown type.
+# :type_unknown       : [/mapping/data2] type 'schalar' is not found.
+#
+---
+name:  required_notbool
+desc:  required_notbool
+#
+schema: |
+  type: map
+  mapping:
+   "name":
+      type: str
+      required: 1
+#
+meta-msg: |
+  :type_unmatch       : [/mapping/name/required] '1': not a boolean.
+#
+rule-msg: |
+  :required_notbool   : [/mapping/name/required] '1': not a boolean.
+# :required_notbool   : [/mapping/name] 'required:' is not boolean.
+#
+---
+name:  pattern_syntaxerr
+desc:  pattern_syntaxerr
+#
+schema: |
+  type: str
+  pattern: /[A-/
+#
+meta-msg: |
+  :pattern_syntaxerr  : [/pattern] '/[A-/': has regexp error.
+#
+rule-msg: |
+  :pattern_syntaxerr  : [/pattern] '/[A-/': has regexp error.
+# :pattern_syntaxerr  : [/] 'pattern:' has regexp error (= /[A-/).
+#
+---
+name:   enum_notseq
+desc:   enum_notseq
+#
+schema: |
+  type: str
+  enum: A, B, C
+#
+meta-msg: |
+  :type_unmatch       : [/enum] 'A, B, C': not a sequence.
+#
+rule-msg: |
+  :enum_notseq        : [/enum] 'A, B, C': not a sequence.
+#  :enum_notseq       : [/] 'enum:' is not a sequence.
+#
+---
+name:  enum_notscalar
+desc:  enum_notscalar
+#
+schema: |
+  type: seq
+  enum:
+    - A
+    - B
+  sequence:
+    - type: str
+#
+meta-msg: |
+  :enum_notscalar     : [/] 'enum:': not available with seq or map.
+#
+rule-msg: |
+  :enum_notscalar     : [/] 'enum:': not available with seq or map.
+#
+---
+name:  enum_duplicate
+desc:  enum_duplicate
+#
+schema: |
+  enum:
+   - A
+   - B
+   - A
+#
+meta-msg: |
+  :enum_duplicate     : [/enum] 'A': duplicated enum value.
+#
+rule-msg: |
+  :enum_duplicate     : [/enum] 'A': duplicated enum value.
+#
+---
+name:  enum_type_unmatch
+desc:  enum_type_unmatch
+#
+schema: |
+  enum:
+   - 100
+   - 200
+#
+meta-msg: |
+  :enum_type_unmatch  : [/enum] '100': string type expected.
+  :enum_type_unmatch  : [/enum] '200': string type expected.
+#
+rule-msg: |
+  :enum_type_unmatch  : [/enum] '100': string type expected.
+#
+---
+name:  assert_notstr
+desc:  assert_notstr
+#
+schema: |
+  type: number
+  assert:  100
+#
+meta-msg: |
+  :type_unmatch       : [/assert] '100': not a string.
+#
+rule-msg: |
+  :assert_notstr      : [/assert] '100': not a string.
+# :assert_notstr      : [/] 'assert:' is not a string.
+#
+---
+name: assert_noval
+desc: assert_noval
+#
+schema: |
+  type:  int
+  assert: value > 100
+#
+meta-msg: |
+  :pattern_unmatch    : [/assert] 'value > 100': not matched to pattern /\bval\b/.
+#
+rule-msg: |
+  :assert_noval       : [/assert] 'value > 100': 'val' is not used.
+---
+name:  assert_syntaxerr
+desc:  assert_syntaxerr
+#
+schema: |
+  type: int
+  assert: 0 < val &&
+#
+meta-msg: |
+  :assert_syntaxerr   : [/assert] '0 < val &&': expression syntax error.
+#
+rule-msg: |
+  :assert_syntaxerr   : [/assert] '0 < val &&': expression syntax error.
+#
+---
+name:   range_notmap
+desc:   range_notmap
+#
+schema: |
+  type: int
+  range: 0 < val && val < 100
+#
+meta-msg: |
+  :type_unmatch       : [/range] '0 < val && val < 100': not a mapping.
+#
+rule-msg: |
+  :range_notmap       : [/range] '0 < val && val < 100': not a mapping.
+#
+---
+name:  range_notscalar
+desc:  range_notscalar
+#
+schema: |
+  type: seq
+  sequence:
+    - type: str
+  range: { max: 10, min: 10 }
+#
+meta-msg: |
+  :range_notscalar    : [/] 'range:': is available only with scalar type.
+#
+rule-msg: |
+  :range_notscalar    : [/] 'range:': is available only with scalar type.
+#
+---
+name:   range_type_unmatch
+desc:   range_type_unmatch
+#
+schema: |
+  type:  int
+  range: { max: 10, min: 1.0 }
+#
+meta-msg: |
+  :range_type_unmatch : [/range/min] '1.0': not a integer.
+#
+rule-msg: |
+  :range_type_unmatch : [/range/min] '1.0': not a integer.
+---
+name:   range_undefined
+desc:   range_undefined
+#
+schema: |
+  type:  int
+  range: { max: 10, mim: 1 }
+#
+meta-msg: |
+  :key_undefined      : [/range] key 'mim:' is undefined.
+#  :key_undefined      : [/range] 'mim:': undefined key.
+#
+rule-msg: |
+  :range_undefined    : [/range] 'mim:': undefined key.
+#  :range_undefined    : [/range] key 'mim:' undefined key.
+#
+---
+name:  length_notmap
+desc:  length_notmap
+#
+schema: |
+  type:  text
+  length: [ max:10, min:4 ]
+#
+meta-msg: |
+  :type_unmatch       : [/length] not a mapping.
+#
+rule-msg: |
+  :length_notmap      : [/length] not a mapping.
+#
+---
+name:  length_nottext
+desc:  length_nottext
+#
+schema: |
+  type: number
+  length: { max: 10, min: 0 }
+#
+meta-msg: |
+  :length_nottext     : [/] 'length:': is available only with string or text.
+#
+rule-msg: |
+  :length_nottext     : [/] 'length:': is available only with string or text.
+#
+---
+name:  length_notint
+desc:  length_notint
+#
+schema: |
+  type:  text
+  length: { max: 10.1 }
+#
+meta-msg: |
+  :type_unmatch       : [/length/max] '10.1': not a integer.
+#
+rule-msg: |
+  :length_notint      : [/length/max] '10.1': not an integer.
+#
+---
+name:  length_undefined
+desc:  length_undefined
+#
+schema: |
+  type: text
+  length: { maximum: 10 }
+#
+meta-msg: |
+  :key_undefined      : [/length] key 'maximum:' is undefined.
+#  :key_undefined      : [/length] 'maximum:': undefined key.
+#
+rule-msg: |
+  :length_undefined   : [/length] 'maximum:': undefined key.
+#  :length_undefined   : [/length] key 'maximum:' is undefined.
+#
+---
+name:  sequence_notseq
+desc:  sequence_notseq
+#
+schema: |
+  type: seq
+  sequence: |
+    - type: str
+#
+meta-msg: |
+  :type_unmatch       : [/sequence] '- type: str\n': not a sequence.
+#
+rule-msg: |
+  :sequence_notseq    : [/sequence] '- type: str\n': not a sequence.
+#
+---
+name:  sequence_noelem
+desc:  sequence_noelem
+#
+schema: |
+  type: seq
+  sequence:
+#
+meta-msg: |
+  :sequence_noelem    : [/sequence] required one element.
+# :type_unmatch       : [/sequence] not a sequence.
+#
+rule-msg: |
+  :sequence_noelem    : [/sequence] required one element.
+#
+---
+name:  sequence_toomany
+desc:  sequence_toomany
+#
+schema: |
+  type: seq
+  sequence:
+    - type: text
+    - type: text
+#
+meta-msg: |
+  :sequence_toomany   : [/sequence] required just one element.
+#
+rule-msg: |
+  :sequence_toomany   : [/sequence] required just one element.
+#
+---
+name:  mapping_notmap
+desc:  mapping_notmap
+#
+schema: |
+  type: map
+  mapping: |
+   "name":
+      type: str
+#
+meta-msg: |
+  :type_unmatch       : [/mapping] '"name":\n   type: str\n': not a mapping.
+#
+rule-msg: |
+  :mapping_notmap     : [/mapping] '"name":\n   type: str\n': not a mapping.
+#
+---
+name:  mapping_noelem
+desc:  mapping_noelem
+#
+schema: |
+  type: map
+  mapping:
+#
+meta-msg: |
+  :mapping_noelem     : [/mapping] required at least one element.
+#
+rule-msg: |
+  :mapping_noelem     : [/mapping] required at least one element.
+#
+---
+name:  key_unknown
+desc:  key_unknown
+#
+schema: |
+  type: str
+  values:
+    - one
+    - two
+#
+meta-msg: |
+  :key_undefined      : [/] key 'values:' is undefined.
+#  :key_undefined      : [/] 'values:': undefined key.
+#
+rule-msg: |
+  :key_unknown        : [/] 'values:': unknown key.
+#  :key_unknown        : [/] key 'values:' is unknown.
+#
+---
+name:  seq_nosequence
+desc:  seq_nosequence
+#
+schema: |
+  type: seq
+#
+meta-msg: |
+  :seq_nosequence     : [/] type 'seq' requires 'sequence:'.
+#
+rule-msg: |
+  :seq_nosequence     : [/] type 'seq' requires 'sequence:'.
+#
+---
+name:  seq_conflict
+desc:  seq_conflict
+#
+schema: |
+  type: seq
+  mapping: { name: {type: str} }
+  sequence:
+    - type: str
+#  pattern: /abc/
+#  range:  { max: 10 }
+#  length: { max: 10 }
+#  enum: [ A, B, C ]
+#
+meta-msg: |
+  :seq_conflict       : [/] 'mapping:': not available with sequence.
+#  :seq_conflict       : [/] 'enum:': not available with sequence.
+#  :seq_conflict       : [/] 'pattern:': not available with sequence.
+#  :seq_conflict       : [/] 'range:': not available with sequence.
+#  :seq_conflict       : [/] 'length:': not available with sequence.
+#
+rule-msg: |
+  :seq_conflict       : [/] 'mapping:': not available with sequence.
+#  :enum_notscalar     : [/] 'enum:': not available with seq or map.
+#  :seq_conflict       : [/] 'enum:': not available with sequence.
+#  :seq_conflict       : [/] 'pattern:': not available with sequence.
+#  :seq_conflict       : [/] 'range:': not available with sequence.
+#  :seq_conflict       : [/] 'length:': not available with sequence.
+#
+---
+name:  map_nomapping
+desc:  map_nomapping
+#
+schema: |
+  type: map
+#
+meta-msg: |
+  :map_nomapping      : [/] type 'map' requires 'mapping:'.
+#
+rule-msg: |
+  :map_nomapping      : [/] type 'map' requires 'mapping:'.
+#
+---
+name:  map_conflict
+desc:  map_conflict
+#
+schema: |
+  type: map
+  mapping:
+   "name":
+      type: str
+  sequence:
+    - type: str
+#
+meta-msg: |
+  :map_conflict       : [/] 'sequence:': not available with mapping.
+#
+rule-msg: |
+  :map_conflict       : [/] 'sequence:': not available with mapping.
+#
+---
+name:  scalar_confict
+desc:  scalar_confict
+#
+schema: |
+  type:  int
+  sequence:
+    - type: str
+  mapping:
+   "name":
+      type: str
+#
+meta-msg: |
+  :scalar_conflict    : [/] 'sequence:': not available with scalar type.
+  :scalar_conflict    : [/] 'mapping:': not available with scalar type.
+#
+rule-msg: |
+  :scalar_conflict    : [/] 'sequence:': not available with scalar type.
+#  :scalar_conflict    : [/] 'mapping:': not available with scalar type.
+#
+---
+name:  enum_conflict
+desc:  enum_conflict
+#
+schema: |
+  type: str
+  required: yes
+  enum:
+    - aa
+    - bb
+  range: { max: aa, min: xx }
+  length: { max: 3 }
+  pattern: /0/
+#
+meta-msg: |
+  :enum_conflict      : [/] 'range:': not available with 'enum:'.
+  :enum_conflict      : [/] 'length:': not available with 'enum:'.
+  :enum_conflict      : [/] 'pattern:': not available with 'enum:'.
+#
+rule-msg: |
+  :enum_conflict      : [/] 'range:': not available with 'enum:'.
+# :enum_conflict      : [/] 'length:': not available with 'enum:'.
+# :enum_conflict      : [/] 'pattern:': not available with 'enum:'.
+#