kwalify 0.1.0 → 0.2.0

data/test/test-validator.rb

@@ -0,0 +1,526 @@
+###
+### $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 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
+
+   ## execute test
+   def _test()
+      return if $target && $target != @name
+      schema = YAML.load(@schema)
+      validator = Kwalify::Validator.new(schema)
+      _test_body(validator, @valid,  '')
+      _test_body(validator, @invalid, @error)
+   end
+
+   def _test_body(validator, input, expected)
+      document = YAML.load(input)
+      error_list  = validator.validate(document)
+      actual = ""
+      error_list.each do |error|
+         actual << "%-20s: [%s] %s\n" % [error.error_symbol.inspect, error.path, error.message]
+      end
+      if $flag_print
+         print actual
+      else
+         assert_equal_with_diff(expected, actual)
+      end
+      #return error_list
+   end
+
+end
+
+
+#if $0 == __FILE__
+#   suite = Test::Unit::TestSuite.new()
+#   suite << ValidatorTest.suite()
+#   Test::Unit::UI::Console::TestRunner.run(suite)
+#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     : [/] key 'name:' is required.
+  :key_undefined      : [/] key 'nam:' is undefined.
+  :enum_notexist      : [/blood] 'ab': invalid blood value.
+  :type_unmatch       : [/birth] 'Jul 01, 1985': not a date.
+  :type_unmatch       : [/age] 'twenty': not a integer.
+  :pattern_unmatch    : [/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   : [/2] value required but none.
+  :type_unmatch       : [/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     : [/address-book/0] key 'email:' is required.
+  :key_undefined      : [/address-book/0] key 'mail:' is undefined.
+  :enum_notexist      : [/address-book/0/blood] 'ab': invalid blood value.
+  :type_unmatch       : [/address-book/0/birth] '1985/01/01': not a date.
+  :type_unmatch       : [/address-book/0/age] 'twenty': not a integer.
+  :pattern_unmatch    : [/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     : [/0] key 'family-name:' is required.
+  :key_undefined      : [/0] key 'last-name:' is undefined.
+  :type_unmatch       : [/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       : [/address-book/0/name] '100': not a string.
+  :required_nokey     : [/address-book/1] key 'name:' is required.
+  :key_undefined      : [/address-book/1] 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       : [/0/name] '100': not a string.
+  :enum_notexist      : [/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     : [/min-only/0] '9': too small (< min 10.0).
+  :range_toosmall     : [/min-only/1] '9.99': too small (< min 10.0).
+  :range_toolarge     : [/max-and-min/0] '101': too large (> max 100.0).
+  :range_toolarge     : [/max-and-min/1] '100.1': too large (> max 100.0).
+  :range_toosmall     : [/max-and-min/2] '9': too small (< min 10.0).
+  :range_toosmall     : [/max-and-min/3] '9.99': too small (< min 10.0).
+  :range_toolarge     : [/max-only/0] '101': too large (> max 100).
+  :range_toolarge     : [/max-only/1] '100.1': too large (> max 100).
+#
+---
+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    : [/min-only/0] 'foo': too short (length 3 < min 4).
+  :length_toolong     : [/max-and-min/0] 'foobarbaz': too long (length 9 > max 8).
+  :length_tooshort    : [/max-and-min/1] 'foo': too short (length 3 < min 4).
+  :length_toolong     : [/max-only/0] 'hogehoge!': too long (length 9 > max 8).
+#
+---
+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      : [/0/less-than] '8': assertion expression failed (val < 8).
+  :assert_failed      : [/1/more-than] '3': assertion expression failed (3 < val).
+  :assert_failed      : [/2/between] '2.9': assertion expression failed (3 < val && val < 8).
+  :assert_failed      : [/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       : [/0/name] '123': not a string.
+  :type_unmatch       : [/0/email] 'true': not a string.
+  :type_unmatch       : [/1/name] '3.14': not a string.
+  :type_unmatch       : [/2/email] '2004-01-01': not a string.
+#