kwalify 0.6.1 → 0.7.0

data/test/test-main.yaml

@@ -1,7 +1,7 @@
 ##
-## $Rev: 51 $
-## $Release: 0.6.1 $
-## copyright(c) 2005 kuwata-lab all rights reserved.
+## $Rev: 93 $
+## $Release: 0.7.0 $
+## copyright(c) 2005-2008 kuwata-lab all rights reserved.
 ##
 ---
 - name:  parseOptions1
@@ -17,8 +17,8 @@
 	  - help: true
 	  - linenum: true
 	  - meta: true
+	  - quiet: true
 	  - schema: schema.yaml
-	  - silent: true
 	  - tpath: path/to/dir
 	  - untabify: true
 	  - version: true
@@ -26,7 +26,6 @@
 	filenames:
 	  - document.yaml
 	  - document2.yaml
-
 ##
 - name:  parseOptions2
   desc:  -ffilename
@@ -42,7 +41,6 @@
 	  - tpath: /path/to/dir
 	properties:
 	filenames:
-
 ##
 - name:  parseOptions3
   desc:  "'--help' is equal to '-h'"
@@ -56,7 +54,6 @@
 	  - help: true
 	filenames:
 	  - document.yaml
- 
 ##
 - name:  parseOptions4
   desc:  "'-E' turns on '-l'"
@@ -70,7 +67,6 @@
 	properties:
 	filenames:
 	  - document.yaml
-
 ##
 ---
 - name:  optionError1
@@ -96,7 +92,7 @@
     java: CommandOptionException
   message: "-f: schema filename is required."
   error_symbol*:
-    ruby: !ruby/sym :command_option_noschema
+    ruby: !ruby/sym :command_option_schema_required
     java: command.option.noschema
 ####
 ##name:  optionError3
@@ -129,62 +125,66 @@
     java: command.option.noaction
 ##
 ---
-- name:  version
+- name:  version  	# -v
   desc:  option '-v'
   method: execute
   args:  [ -vt, document.yaml ]
   expected: |
     0.0.0
-
 ##
-- name:  help
+- name:  help		# -h
   desc:  option '-h'
   method: execute
   args:  [ -hD, document.yaml ]
   expected: |
-    kwalify - tiny schema validator for YAML and JSON
-    Usage1: kwalify [..options..] -f schema.yaml doc.yaml [doc2.yaml ...]
-    Usage2: kwalify [..options..] -m schema.yaml [schema2.yaml ...]
-    Usage3: kwalify [..options..] -a action -f schema.yaml [schema2.yaml ...]
-      -h, --help      :  help
-      -v              :  version
-      -s              :  silent
-      -f schema.yaml  :  schema definition file
-      -m              :  meta-validation mode
-      -t              :  expand tab characters
-      -l              :  show linenumber when errored (experimental)
-      -E              :  show errors in emacs-style (implies '-l')
-      -a action       :  action ('genclass-ruby' or 'genclass-java')
-                         (use '-ha action' option to show action properites)
+    kwalify - schema validator and data binding tool for YAML and JSON
+    ## Usage1: validate yaml document
+    kwalify [..options..] -f schema.yaml doc.yaml [doc2.yaml ...]
+    ## Usage2: validate schema definition
+    kwalify [..options..] -m schema.yaml [schema2.yaml ...]
+    ## Usage3: do action
+    kwalify [..options..] -a action -f schema.yaml [schema2.yaml ...]
+      -h, --help     : help
+      -v             : version
+      -q             : quiet
+      -s             : silent (obsolete, use '-q' instead)
+      -f schema.yaml : schema definition file
+      -m             : meta-validation mode
+      -t             : expand tab characters
+      -l             : show linenumber when errored (experimental)
+      -E             : show errors in emacs-style (experimental, implies '-l')
+      -a action      : action ('genclass-ruby', 'genclass-php', 'genclass-java')
+                       (try '-ha genclass-ruby' for details)
+      -I path        : template path (for '-a')
+      -P             : allow preceding alias
 ##
-- name:  silent1
-  desc:  option '-s' (valid)
+- name:  quiet1	# -q
+  desc:  option '-q' (valid)
   method: execute
-  args:  [ -sf, silent1.schema, silent1.document ]
+  args:  [ -qf, quiet1.schema, quiet1.document ]
   expected: |
-  schema: |
+  schema: &quiet1_schema |
     type:   seq
     sequence:
       - type:   str
-  document: |
+  document: &quiet1_document |
     - foo
     - bar
     - baz
-
 ##
-- name:  silent2
+- name:  quiet2	# -s
   desc:  option '-s' (invalid)
   method: execute
-  args:  [ -sf, silent2.schema, silent2.document ]
+  args:  [ -sf, quiet2.schema, quiet2.document ]
   expected: |
-    silent2.document#1: INVALID
+    quiet2.document#1: INVALID
       - [/1] '123': not a string.
       - [/2] 'true': not a string.
-  schema: |
+  schema: &quiet2_schema |
     type:   seq
     sequence:
       - type:   str
-  document: |
+  document: &quiet2_document |
     - foo
     - bar
     - baz
@@ -192,9 +192,27 @@
     - foo
     - 123
     - true
-
 ##
-- name:  untabify
+- name:  silent1	# -s
+  desc:  option '-s' (valid)
+  method: execute
+  args:  [ -sf, silent1.schema, silent1.document ]
+  expected: |
+  schema: *quiet1_schema
+  document: *quiet1_document
+##
+- name:  silent2	# -s
+  desc:  option '-s' (invalid)
+  method: execute
+  args:  [ -sf, silent2.schema, silent2.document ]
+  expected: |
+    silent2.document#1: INVALID
+      - [/1] '123': not a string.
+      - [/2] 'true': not a string.
+  schema: *quiet2_schema
+  document: *quiet2_document
+##
+- name:  untabify	# -t
   desc:  option '-t'
   method: execute
   args:  [ -tf, untabify.schema, untabify.document ]
@@ -217,7 +235,6 @@
         	  value: 123
                 - key: bar
           	  value: [a, b, c]
-
 ##
 - name:  stream
   desc:  stream document
@@ -252,22 +269,20 @@
       - (line 3) [/1] '123': not a string.
     stream.invalid#1: INVALID
       - (line 8) [/2] 'true': not a string.
-
 ##
-- name:  meta1
+- name:  meta1		# -m
   desc:  meta validation (valid)
   method: execute
   args:  [ -m, meta1.schema ]
-  schema: |
+  schema: &meta1_schema |
     type:   seq
     sequence:
       - type:   str
   document: |
-  expected: |
+  expected: &meta1_expected |
     meta1.schema#0: valid.
-
 ##
-- name:  meta2
+- name:  meta2		# -m
   desc:  meta validation (invalid)
   method: execute
   args:  [ -m, meta2.schema ]
@@ -281,7 +296,7 @@
       - [/] type 'map' requires 'mapping:'.
       - [/] 'sequence:': not available with mapping.
 ##
-- name:  emacs
+- name:  emacs		# -E
   desc:  show errors in emacs style
   method: execute
   args:  [ -Ef, emacs.schema, emacs.document ]
@@ -301,279 +316,69 @@
       value:
   expected: |
     emacs.document#0: INVALID
-    emacs.document:3: [/1/key] '2': not a string.
-    emacs.document:4: [/1/val] key 'val:' is undefined.
-    emacs.document:5: [/2] key 'key:' is required.
-    emacs.document:5: [/2/kye] key 'kye:' is undefined.
-
+    emacs.document:3:3 [/1/key] '2': not a string.
+    emacs.document:4:3 [/1/val] key 'val:' is undefined.
+    emacs.document:5:3 [/2] key 'key:' is required.
+    emacs.document:5:3 [/2/kye] key 'kye:' is undefined.
 ##
----
-- name:  action1
-  desc:  action 'genclass-ruby'
-  action: genclass-ruby
-  method: action
-  args:  [ -a, genclass-ruby, -tf, action1.schema ]
-  schema: &action1_schema |
-	type:  map
-	classname: Context
-	mapping:
-	 "groups":
-	    type:  seq
-	    sequence:
-	      - type:  map
-	        classname: Group
-	        mapping:
-		 "name":
-		    type:  str
-		    required:  yes
-		 "desc":
-		    type:  str
-		 "owner": &userschema
-		    type:  map
-		    classname: User
-		    mapping:
-		     "name":
-		        type:  str
-			required: yes
-	             "desc":
-		        type:  str
-	             "gender":
-		        type:  bool
-		     "mail":
-		        type:   str
-		     "manager": *userschema
-	 "users":
-	    type: seq
-	    sequence:
-	      - *userschema
-  document: &action1_document |
-	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: |+
-	## 
-	class Context
-	  def initialize(hash)
-	    @groups     = (v=hash['groups']) ? v.map!{|e| e.is_a?(Group) ? e : Group.new(e)} : v
-	    @users      = (v=hash['users']) ? v.map!{|e| e.is_a?(User) ? e : User.new(e)} : v
-	  end
-	  attr_accessor :groups     # seq
-	  attr_accessor :users      # seq
-	end
-	
-	## 
-	class Group
-	  def initialize(hash)
-	    @name       = hash['name']
-	    @desc       = hash['desc']
-	    @owner      = (v=hash['owner']) && v.is_a?(Hash) ? User.new(v) : v
-	  end
-	  attr_accessor :name       # str
-	  attr_accessor :desc       # str
-	  attr_accessor :owner      # map
-	end
-	
-	## 
-	class User
-	  def initialize(hash)
-	    @name       = hash['name']
-	    @gender     = hash['gender']
-	    @mail       = hash['mail']
-	    @desc       = hash['desc']
-	    @manager    = (v=hash['manager']) && v.is_a?(Hash) ? User.new(v) : v
-	  end
-	  attr_accessor :name       # str
-	  attr_accessor :gender     # bool
-	  attr_accessor :mail       # str
-	  attr_accessor :desc       # str
-	  attr_accessor :manager    # map
-	end
-
-##	
-- name:  action2
-  desc:  action 'genclass-java'
-  action: genclass-java
-  method: action
-  args:  [ -a, genclass-java, -tf, action2.schema ]
-  schema: *action1_schema
-  document: *action1_document
-  output_files: [ Context.java, Group.java, User.java ]
-  expected:
-    'Context.java': |
-	// generated by kwalify from action2.schema
-	
-	import java.util.*;
-	
-	/**
-	 *  
-	 */
-	public class Context {
-	
-	    private List _groups;
-	    private List _users;
-	
-	    public Context() {}
-	
-	    public Context(Map map) {
-	        List seq;
-	        Object obj;
-	        if ((seq = (List)map.get("groups")) != null) {
-	            for (int i = 0; i < seq.size(); i++) {
-	                if ((obj = seq.get(i)) instanceof Map) {
-	                    seq.set(i, new Group((Map)obj));
-	                }
-	            }
-	        }
-	        _groups       = seq;
-	        if ((seq = (List)map.get("users")) != null) {
-	            for (int i = 0; i < seq.size(); i++) {
-	                if ((obj = seq.get(i)) instanceof Map) {
-	                    seq.set(i, new User((Map)obj));
-	                }
-	            }
-	        }
-	        _users        = seq;
-	    }
-	
-	    public List getGroups() { return _groups; }
-	    public void setGroups(List groups_) { _groups = groups_; }
-	    public List getUsers() { return _users; }
-	    public void setUsers(List users_) { _users = users_; }
-	}
-	
-    'Group.java': |
-	// generated by kwalify from action2.schema
-	
-	import java.util.*;
-	
-	/**
-	 *  
-	 */
-	public class Group {
-	
-	    private String _name;
-	    private String _desc;
-	    private User _owner;
-	
-	    public Group() {}
-	
-	    public Group(Map map) {
-	        _name         = (String)map.get("name");
-	        _desc         = (String)map.get("desc");
-	        Object obj;
-	        if ((obj = map.get("owner")) != null && obj instanceof Map) {
-	            _owner    = new User((Map)obj);
-	        } else {
-	            _owner    = (User)obj;
-	        }
-	    }
-	
-	    public String getName() { return _name; }
-	    public void setName(String name_) { _name = name_; }
-	    public String getDesc() { return _desc; }
-	    public void setDesc(String desc_) { _desc = desc_; }
-	    public User getOwner() { return _owner; }
-	    public void setOwner(User owner_) { _owner = owner_; }
-	}
-
-    'User.java': |
-	// generated by kwalify from action2.schema
-	
-	import java.util.*;
-	
-	/**
-	 *  
-	 */
-	public class User {
-	
-	    private String _name;
-	    private boolean _gender;
-	    private String _mail;
-	    private String _desc;
-	    private User _manager;
-	
-	    public User() {}
-	
-	    public User(Map map) {
-	        _name         = (String)map.get("name");
-	        if (map.get("gender") != null) {
-	            _gender   = ((Boolean)map.get("gender")).booleanValue();
-	        }
-	        _mail         = (String)map.get("mail");
-	        _desc         = (String)map.get("desc");
-	        Object obj;
-	        if ((obj = map.get("manager")) != null && obj instanceof Map) {
-	            _manager  = new User((Map)obj);
-	        } else {
-	            _manager  = (User)obj;
-	        }
-	    }
-	
-	    public String getName() { return _name; }
-	    public void setName(String name_) { _name = name_; }
-	    public boolean getGender() { return _gender; }
-	    public void setGender(boolean gender_) { _gender = gender_; }
-	    public String getMail() { return _mail; }
-	    public void setMail(String mail_) { _mail = mail_; }
-	    public String getDesc() { return _desc; }
-	    public void setDesc(String desc_) { _desc = desc_; }
-	    public User getManager() { return _manager; }
-	    public void setManager(User manager_) { _manager = manager_; }
-	}
-
-## not used
-  main_file:
-    name:  Example.java
-    content: |
-	import kwalify.*;
-	import java.util.*;
-	
-	public class Example {
-	  public static void main(String[] args) throws Exception {
-	    String input = kwalify.Util.readFile("action2.document");
-	    input = kwalify.Util.untabify(input);
-	    YamlParser parser = new YamlParser(input);
-	    Object ydoc = parser.parse();
-	    //
-	    Context context = new Context((Map)ydoc);
-	    //
-	    List groups = context.getGroups();
-	    if (groups != null) {
-	      for (Iterator it = groups.iterator(); it.hasNext(); ) {
-	        Group g = (Group)it.next();
-	        System.out.println("group.name = " + g.getName());
-	        System.out.println("group.desc = " + g.getDesc());
-	        System.out.println("group.owner.name = " + g.getOwner().getName());
-	        System.out.println();
-	      }
-	    }
-	    //
-	    List users = context.getUsers();
-	    if (users != null) {
-	      for (Iterator it = users.iterator(); it.hasNext(); ) {
-	        User u = (User)it.next();
-	        System.out.println("user.name = " + u.getName());
-	        System.out.println("user.desc = " + u.getDesc());
-	        System.out.println("user.manager.name = " + (u.getManager() != null ? u.getManager().getName() : null));
-	        System.out.println();
-	      }
-	    }
-	  }
-	}
-
+- name:  preceding1		# -P
+  desc:  preceding anchor
+  method: execute
+  args:  [ -Pf, preceding1.schema, preceding1.document ]
+  schema: &preceding1_schema |
+    type:   map
+    mapping:
+     "groups": 
+        type:   seq
+        sequence:
+	  - &GROUP
+	    type:  map
+	    mapping:
+	     "name":  { type: str, required: yes }
+	     "owner":  *USER
+     "users": 
+        type:  seq
+	sequence:
+	  - &USER
+	    type:  map
+	    mapping:
+	     "name":  { type: str, required: yes }
+	     "mail":  { type: str }
+	     "group": *GROUP
+  document: &preceding1_document |
+    groups:
+      - &WHEEL
+        name: wheel
+	owner: *root
+      - &GUEST
+        name: guest
+	owner: *root
+      - &USERS
+        name: users
+	owner: *user1
+    users:
+      - &root
+        name: root
+	mail: root@localhost
+	group: *WHEEL
+      - &user1
+        name: user1
+	mail: user1@localhost
+	group: *USERS
+  expected: |
+    preceding1.document#0: valid.
+##
+- name:  preceding2		# -P
+  desc:  preceding anchor
+  method: execute
+  args:  [ -lf, preceding2.schema, preceding2.document ]
+  schema: *preceding1_schema
+  document: *preceding1_document
+  exception*:
+    ruby:   Kwalify::SyntaxError
+    #java:  kwalify.YamlSyntaxException
+  errormsg*:
+    ruby:   "file: preceding2.schema, line 10: *USER: anchor not found."
+    #java:  "*USER: anchor not found."
+  expected: |
 ##