clasp-ruby 0.10.2

data/lib/clasp/old_module.rb

@@ -0,0 +1,54 @@
+
+# ######################################################################## #
+# File:         clasp/old_module.rb
+#
+# Purpose:      Introduces old module Clasp (which clashes with an existing
+#               gem)
+#
+# Created:      10th June 2016
+# Updated:      10th June 2016
+#
+# Home:         http://github.com/synesissoftware/CLASP.Ruby
+#
+# Author:       Matthew Wilson
+#
+# Copyright (c) 2016, Matthew Wilson and Synesis Software
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are
+# met:
+#
+# * Redistributions of source code must retain the above copyright
+#   notice, this list of conditions and the following disclaimer.
+#
+# * Redistributions in binary form must reproduce the above copyright
+#   notice, this list of conditions and the following disclaimer in the
+#   documentation and/or other materials provided with the distribution.
+#
+# * Neither the names of the copyright holder nor the names of its
+#   contributors may be used to endorse or promote products derived from
+#   this software without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
+# IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
+# THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+# PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR
+# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+# EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+# PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+# PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+# LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+#
+# ######################################################################## #
+
+
+require 'clasp'
+
+# Backwards-compatible alias for the CLASP library's CLASP module
+Clasp = CLASP
+
+# ############################## end of file ############################# #
+

data/lib/clasp/version.rb

@@ -0,0 +1,69 @@
+
+# ######################################################################## #
+# File:         clasp/version.rb
+#
+# Purpose:      Version for CLASP.Ruby library
+#
+# Created:      16th November 2014
+# Updated:      11th June 2016
+#
+# Home:         http://github.com/synesissoftware/CLASP.Ruby
+#
+# Author:       Matthew Wilson
+#
+# Copyright (c) 2014-2016, Matthew Wilson and Synesis Software
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are
+# met:
+#
+# * Redistributions of source code must retain the above copyright
+#   notice, this list of conditions and the following disclaimer.
+#
+# * Redistributions in binary form must reproduce the above copyright
+#   notice, this list of conditions and the following disclaimer in the
+#   documentation and/or other materials provided with the distribution.
+#
+# * Neither the names of the copyright holder nor the names of its
+#   contributors may be used to endorse or promote products derived from
+#   this software without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
+# IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
+# THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+# PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR
+# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+# EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+# PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+# PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+# LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+#
+# ######################################################################## #
+
+
+
+=begin
+=end
+
+module CLASP
+
+	# Current version of the CLASP.Ruby library
+	VERSION				=	'0.10.2'
+
+	private
+	VERSION_PARTS_		=	VERSION.split(/[.]/).collect { |n| n.to_i } # :nodoc:
+	public
+	# Major version of the CLASP.Ruby library
+	VERSION_MAJOR		=	VERSION_PARTS_[0] # :nodoc:
+	# Minor version of the CLASP.Ruby library
+	VERSION_MINOR		=	VERSION_PARTS_[1] # :nodoc:
+	# Revision version of the CLASP.Ruby library
+	VERSION_REVISION	=	VERSION_PARTS_[2] # :nodoc:
+
+end # module CLASP
+
+# ############################## end of file ############################# #
+

data/test/scratch/test_aliases.rb

@@ -0,0 +1,38 @@
+#! /usr/bin/ruby
+
+$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'lib')
+
+require 'clasp'
+require 'recls'
+
+Aliases = [
+
+	CLASP.Flag('--help', help: 'shows this help and quits'),
+	CLASP.Flag('--version', alias: '-v', help: 'shows this version and quits'),
+
+	CLASP.Option('--directory', alias: '-d', help: 'a directory within which to process'),
+	CLASP.Option('--patterns', alias: '-p', help: "one or more patterns, separated by '|' or '#{Recls::PATH_SEPARATOR}', against which the entries will be matched"),
+
+	CLASP.Option('--case-sensitive', alias: '-c', help: 'determines whether case sensitive', values_range: %W{ yes no true false }, default_value: false),
+]
+
+Arguments	=	CLASP::Arguments.new(ARGV, Aliases)
+Flags		=	Arguments.flags
+Options		=	Arguments.options
+Values		=	Arguments.values
+
+#Arguments.aliases.each do |a|
+#
+#	puts a.inspect
+#end
+
+Flags.each do |f|
+
+	puts f.inspect
+end
+
+Options.each do |o|
+
+	puts o.inspect
+end
+

data/test/scratch/test_list_command_line.rb

@@ -0,0 +1,37 @@
+#! /usr/bin/ruby
+
+$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'lib')
+
+require 'clasp'
+
+Aliases = [
+
+	CLASP.Flag('--help', help: 'shows this help and quits'),
+	CLASP.Flag('--version', alias: '-v', help: 'shows this version and quits'),
+
+	CLASP.Option('--verbosity', aliases: %w{ -V --verbose }),
+]
+
+Args = CLASP::Arguments.new(ARGV, Aliases)
+
+puts
+puts "flags #{Args.flags.size}:"
+Args.flags.each do |flag|
+
+	puts "\t#{flag}\t[#{flag.given_index}, #{flag.given_name}, #{flag.argument_alias}, #{flag.given_hyphens}, #{flag.given_label}, #{flag.name}]"
+end
+
+puts
+puts "options #{Args.options.size}:"
+Args.options.each do |option|
+
+	puts "\t#{option}\t[#{option.given_index}, #{option.given_name}, #{option.argument_alias}, #{option.given_hyphens}, #{option.given_label}, #{option.name}, #{option.value}]"
+end
+
+puts
+puts "values #{Args.values.size}:"
+Args.values.each do |value|
+
+	puts "\t#{value}"
+end
+

data/test/scratch/test_usage.rb

@@ -0,0 +1,32 @@
+#! /usr/bin/ruby
+
+$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'lib')
+
+require 'clasp'
+
+Aliases = [
+
+	CLASP.Flag('--version', alias: '-v', help: 'shows the program version and quits'),
+
+	CLASP.Option('--verbosity', help: 'the verbosity', values: [ 'silent', 'quiet', 'succinct', 'chatty', 'verbose' ]),
+	CLASP.Option('--length', alias: '-l', help: 'specifies the length'),
+	CLASP.Flag('--verbosity=succinct', aliases: [ '--succinct', '-s' ]),
+	CLASP.Flag('--verbosity=verbose', alias: '--verbose'),
+]
+
+Arguments	=	CLASP::Arguments.new(ARGV, Aliases)
+
+puts
+puts '*' * 40
+puts 'usage:'
+puts
+CLASP.show_usage(Aliases)
+puts '*' * 40
+
+puts 'version:'
+puts
+#CLASP.show_version Aliases, version: '1.2.3.4'
+#CLASP.show_version Aliases, version_major: 1, version_minor: 2
+CLASP.show_version Aliases, version: [ 1, 2, 3 ]
+puts '*' * 40
+

data/test/scratch/test_usage_with_duplicate_aliases.rb

@@ -0,0 +1,30 @@
+#! /usr/bin/ruby
+
+$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'lib')
+
+require 'clasp'
+
+Aliases = [
+
+	CLASP.Flag('--version', alias: '-v', help: 'shows the program version and quits'),
+
+	CLASP.Option('--verbosity', help: 'the verbosity', values: [ 'silent', 'quiet', 'succinct', 'chatty', 'verbose' ]),
+	CLASP.Option('--length', alias: '-l', help: 'specifies the length'),
+	CLASP.Flag('--verbosity=succinct', aliases: [ '--succinct', '-s' ]),
+	CLASP.Flag('--verbosity=verbose', aliases: [ '--verbose', '-v' ]),
+]
+
+Arguments	=	CLASP::Arguments.new(ARGV, Aliases)
+
+puts
+puts '*' * 40
+puts 'usage:'
+puts
+CLASP.show_usage(Aliases)
+puts '*' * 40
+
+puts 'version:'
+puts
+CLASP.show_version Aliases, version: [ 1, 2, 3 ]
+puts '*' * 40
+

data/test/unit/tc_ARGV_rewrite.rb

@@ -0,0 +1,61 @@
+#! /usr/bin/ruby
+
+$:.unshift File.join(File.dirname(__FILE__), '../..', 'lib')
+
+require 'clasp'
+
+require 'test/unit'
+
+class Test_Arguments_4 < Test::Unit::TestCase
+
+	def test_ARGV_rewrite_1
+
+		aliases	=	nil
+		argv	=	[ 'val1', '-f1', 'val2', '--' ]
+		argv_c	=	argv.dup
+		args	=	CLASP::Arguments.new argv, aliases
+
+		assert_equal 1, args.flags.size
+		assert_equal Hash.new, args.flags[0].extras
+
+		assert_equal 0, args.options.size
+
+		assert_equal 2, args.values.size
+
+		assert_same argv, args.argv
+		assert_equal 2, argv.size
+		assert_equal 'val1', argv[0]
+		assert_equal 'val2', argv[1]
+
+		assert_equal args.argv_original_copy, argv_c
+		assert_equal argv_c, args.argv_original_copy
+	end
+
+	def test_ARGV_rewrite_2
+
+		aliases	=	nil
+		argv	=	[ 'val1', '-f1', 'val2', '--' ]
+		argv_c	=	argv.dup
+		args	=	CLASP::Arguments.new argv, aliases, mutate_argv: false
+
+		assert_equal 1, args.flags.size
+		assert_equal Hash.new, args.flags[0].extras
+
+		assert_equal 0, args.options.size
+
+		assert_equal 2, args.values.size
+
+		assert_same argv, args.argv
+		assert_equal 4, argv.size
+		assert_equal 'val1', argv[0]
+		assert_equal '-f1', argv[1]
+		assert_equal 'val2', argv[2]
+		assert_equal '--', argv[3]
+
+		assert_equal args.argv_original_copy, argv_c
+		assert_equal argv_c, args.argv_original_copy
+	end
+end
+
+
+

data/test/unit/tc_aliases.rb

@@ -0,0 +1,75 @@
+#! /usr/bin/ruby
+
+$:.unshift File.join(File.dirname(__FILE__), '../..', 'lib')
+
+require 'clasp'
+
+require 'test/unit'
+
+class Test_Aliases_1 < Test::Unit::TestCase
+
+	def test_option_with_two_flag_aliases
+
+		aliases	=	[
+
+			CLASP.Flag('--action=list', alias: '-l'),
+            CLASP.Flag('--action=change', alias: '-c'),
+			CLASP.Option('--action', alias: '-a'),
+		]
+
+		# With no arguments
+		begin
+
+			argv = []
+			args = CLASP::Arguments.new argv, aliases
+
+			assert_equal 0, args.flags.size
+			assert_equal 0, args.options.size
+			assert_equal 0, args.values.size
+		end
+
+		# With option
+		begin
+
+			argv = %w{ --action=action1 }
+			args = CLASP::Arguments.new argv, aliases
+
+			assert_equal 0, args.flags.size
+			assert_equal 1, args.options.size
+			assert_equal 0, args.values.size
+
+			assert_equal '--action', args.options[0].name
+			assert_equal 'action1', args.options[0].value
+		end
+
+		# With option alias
+		begin
+
+			argv = %w{ -a action2 }
+			args = CLASP::Arguments.new argv, aliases
+
+			assert_equal 0, args.flags.size
+			assert_equal 1, args.options.size
+			assert_equal 0, args.values.size
+
+			assert_equal '--action', args.options[0].name
+			assert_equal 'action2', args.options[0].value
+		end
+
+		# With flag alias
+		begin
+
+			argv = %w{ -c }
+			args = CLASP::Arguments.new argv, aliases
+
+			assert_equal 0, args.flags.size
+			assert_equal 1, args.options.size
+			assert_equal 0, args.values.size
+
+			assert_equal '--action', args.options[0].name
+			assert_equal 'change', args.options[0].value
+		end
+
+	end
+end
+

data/test/unit/tc_arguments_1.rb

@@ -0,0 +1,684 @@
+#! /usr/bin/ruby
+
+$:.unshift File.join(File.dirname(__FILE__), '../..', 'lib')
+
+require 'clasp'
+
+require 'test/unit'
+
+class Test_Arguments < Test::Unit::TestCase
+
+	def test_empty_args
+
+		args	=	CLASP::Arguments.new([])
+
+		assert_equal 0, args.flags.size
+
+		assert_equal 0, args.options.size
+
+		assert_equal 0, args.values.size
+	end
+
+	def test_one_value
+
+		args	=	CLASP::Arguments.new([ 'value1' ])
+
+		assert_equal 0, args.flags.size
+
+		assert_equal 0, args.options.size
+
+		assert_equal 1, args.values.size
+		assert_equal 'value1', args.values[0]
+	end
+
+	def test_two_values
+
+		args	=	CLASP::Arguments.new([ 'value1', 'val2' ])
+
+		assert_equal 0, args.flags.size
+
+		assert_equal 0, args.options.size
+
+		assert_equal 2, args.values.size
+		assert_equal 'value1', args.values[0]
+		assert_equal 'val2', args.values[1]
+	end
+
+	def test_ten_values
+
+		argv	=	(0 .. 10).map { |n| "value#{n}" }
+
+		args	=	CLASP::Arguments.new(argv)
+
+		assert_equal 0, args.flags.size
+
+		assert_equal 0, args.options.size
+
+		assert_equal argv.size, args.values.size
+		(0 ... argv.size).each do |n|
+			assert_equal argv[n], args.values[n]
+		end
+	end
+
+	def test_one_flag
+
+		args	=	CLASP::Arguments.new([ '-f1' ])
+
+		assert_equal 1, args.flags.size
+		assert_equal 0, args.flags[0].given_index
+		assert_equal '-f1', args.flags[0].to_s
+		assert_equal '-f1', args.flags[0].name
+		assert_equal 'f1', args.flags[0].given_label
+		assert_equal '-f1', args.flags[0].given_name
+		assert_equal 1, args.flags[0].given_hyphens
+		assert_nil args.flags[0].argument_alias
+		assert_equal Hash.new, args.flags[0].extras
+
+		assert_equal 0, args.options.size
+
+		assert_equal 0, args.values.size
+	end
+
+	def test_two_flags
+
+		args	=	CLASP::Arguments.new([ '-f1', '--flag2' ])
+
+		assert_equal 2, args.flags.size
+		assert_equal 0, args.flags[0].given_index
+		assert_equal '-f1', args.flags[0].to_s
+		assert_equal '-f1', args.flags[0].name
+		assert_equal 'f1', args.flags[0].given_label
+		assert_equal '-f1', args.flags[0].given_name
+		assert_equal 1, args.flags[0].given_hyphens
+		assert_nil args.flags[0].argument_alias
+		assert_equal Hash.new, args.flags[0].extras
+		assert_equal 1, args.flags[1].given_index
+		assert_equal '--flag2', args.flags[1].to_s
+		assert_equal '--flag2', args.flags[1].name
+		assert_equal 'flag2', args.flags[1].given_label
+		assert_equal '--flag2', args.flags[1].given_name
+		assert_equal 2, args.flags[1].given_hyphens
+		assert_nil args.flags[1].argument_alias
+		assert_equal Hash.new, args.flags[1].extras
+
+		assert_equal 0, args.options.size
+
+		assert_equal 0, args.values.size
+	end
+
+	def test_three_flags
+
+		args	=	CLASP::Arguments.new([ '-f1', '--flag2', '---x' ])
+
+		assert_equal 3, args.flags.size
+		assert_equal 0, args.flags[0].given_index
+		assert_equal '-f1', args.flags[0].to_s
+		assert_equal '-f1', args.flags[0].name
+		assert_equal 'f1', args.flags[0].given_label
+		assert_equal '-f1', args.flags[0].given_name
+		assert_equal 1, args.flags[0].given_hyphens
+		assert_nil args.flags[0].argument_alias
+		assert_equal Hash.new, args.flags[0].extras
+		assert_equal 1, args.flags[1].given_index
+		assert_equal '--flag2', args.flags[1].to_s
+		assert_equal '--flag2', args.flags[1].name
+		assert_equal 'flag2', args.flags[1].given_label
+		assert_equal '--flag2', args.flags[1].given_name
+		assert_equal 2, args.flags[1].given_hyphens
+		assert_nil args.flags[1].argument_alias
+		assert_equal Hash.new, args.flags[1].extras
+		assert_equal 2, args.flags[2].given_index
+		assert_equal '---x', args.flags[2].to_s
+		assert_equal '---x', args.flags[2].name
+		assert_equal 'x', args.flags[2].given_label
+		assert_equal '---x', args.flags[2].given_name
+		assert_equal 3, args.flags[2].given_hyphens
+		assert_nil args.flags[2].argument_alias
+		assert_equal Hash.new, args.flags[2].extras
+
+		assert_equal 0, args.options.size
+
+		assert_equal 0, args.values.size
+	end
+
+	def test_one_option
+
+		args	=	CLASP::Arguments.new([ '-o1=v1' ])
+
+		assert_equal 0, args.flags.size
+
+		assert_equal 1, args.options.size
+		assert_equal 0, args.options[0].given_index
+		assert_equal '-o1=v1', args.options[0].to_s
+		assert_equal '-o1', args.options[0].name
+		assert_equal 'o1', args.options[0].given_label
+		assert_equal 'v1', args.options[0].value
+		assert_equal '-o1', args.options[0].given_name
+		assert_equal 1, args.options[0].given_hyphens
+		assert_nil args.options[0].argument_alias
+		assert_equal Hash.new, args.options[0].extras
+
+		assert_equal 0, args.values.size
+	end
+
+	def test_two_options
+
+		args	=	CLASP::Arguments.new([ '-o1=v1', '--option2=value2' ])
+
+		assert_equal 0, args.flags.size
+
+		assert_equal 2, args.options.size
+		assert_equal '-o1=v1', args.options[0].to_s
+		assert_equal '-o1', args.options[0].name
+		assert_equal 'o1', args.options[0].given_label
+		assert_equal 'v1', args.options[0].value
+		assert_equal '-o1', args.options[0].given_name
+		assert_equal 1, args.options[0].given_hyphens
+		assert_nil args.options[0].argument_alias
+		assert_equal Hash.new, args.options[0].extras
+		assert_equal '--option2=value2', args.options[1].to_s
+		assert_equal '--option2', args.options[1].name
+		assert_equal 'option2', args.options[1].given_label
+		assert_equal 'value2', args.options[1].value
+		assert_equal '--option2', args.options[1].given_name
+		assert_equal 2, args.options[1].given_hyphens
+		assert_nil args.options[1].argument_alias
+		assert_equal Hash.new, args.options[1].extras
+
+		assert_equal 0, args.values.size
+	end
+
+	def test_three_options
+
+		args	=	CLASP::Arguments.new([ '-o1=v1', '--option2=value2', '---the-third-option=the third value' ])
+
+		assert_equal 0, args.flags.size
+
+		assert_equal 3, args.options.size
+		assert_equal '-o1=v1', args.options[0].to_s
+		assert_equal '-o1', args.options[0].name
+		assert_equal 'o1', args.options[0].given_label
+		assert_equal 'v1', args.options[0].value
+		assert_equal '-o1', args.options[0].given_name
+		assert_equal 1, args.options[0].given_hyphens
+		assert_nil args.options[0].argument_alias
+		assert_equal Hash.new, args.options[0].extras
+		assert_equal '--option2=value2', args.options[1].to_s
+		assert_equal '--option2', args.options[1].name
+		assert_equal 'option2', args.options[1].given_label
+		assert_equal 'value2', args.options[1].value
+		assert_equal '--option2', args.options[1].given_name
+		assert_equal 2, args.options[1].given_hyphens
+		assert_nil args.options[1].argument_alias
+		assert_equal Hash.new, args.options[1].extras
+		assert_equal '---the-third-option=the third value', args.options[2].to_s
+		assert_equal '---the-third-option', args.options[2].name
+		assert_equal 'the-third-option', args.options[2].given_label
+		assert_equal 'the third value', args.options[2].value
+		assert_equal '---the-third-option', args.options[2].given_name
+		assert_equal 3, args.options[2].given_hyphens
+		assert_nil args.options[2].argument_alias
+		assert_equal Hash.new, args.options[2].extras
+
+		assert_equal 0, args.values.size
+	end
+
+	def test_one_flag_and_one_option_and_one_value
+
+		args	=	CLASP::Arguments.new [ '-f1', 'value1', '--first-option=val1' ]
+
+		assert_equal 1, args.flags.size
+		assert_equal '-f1', args.flags[0].to_s
+		assert_equal '-f1', args.flags[0].name
+		assert_equal 'f1', args.flags[0].given_label
+		assert_equal '-f1', args.flags[0].given_name
+		assert_equal 1, args.flags[0].given_hyphens
+		assert_nil args.flags[0].argument_alias
+		assert_equal Hash.new, args.flags[0].extras
+
+		assert_equal 1, args.options.size
+		assert_equal '--first-option=val1', args.options[0].to_s
+		assert_equal '--first-option', args.options[0].name
+		assert_equal 'first-option', args.options[0].given_label
+		assert_equal 'val1', args.options[0].value
+		assert_equal '--first-option', args.options[0].given_name
+		assert_equal 2, args.options[0].given_hyphens
+		assert_equal Hash.new, args.options[0].extras
+
+		assert_equal 1, args.values.size
+		assert_equal 'value1', args.values[0]
+	end
+
+	def test_double_hyphen_1
+
+		args	=	CLASP::Arguments.new [ '-f1', 'value1', '--', '-f2' ]
+
+		assert_equal 1, args.flags.size
+		assert_equal '-f1', args.flags[0].to_s
+		assert_equal '-f1', args.flags[0].name
+		assert_equal 'f1', args.flags[0].given_label
+		assert_equal '-f1', args.flags[0].given_name
+		assert_equal 1, args.flags[0].given_hyphens
+		assert_nil args.flags[0].argument_alias
+		assert_equal Hash.new, args.flags[0].extras
+
+		assert_equal 0, args.options.size
+
+		assert_equal 2, args.values.size
+		assert_equal 'value1', args.values[0]
+		assert_equal '-f2', args.values[1]
+	end
+
+	def test_double_hyphen_2
+
+		args	=	CLASP::Arguments.new [ '-f1', 'value1', '--', '-f2', '--', '--option1=v1' ]
+
+		assert_equal 1, args.flags.size
+		assert_equal '-f1', args.flags[0].to_s
+		assert_equal '-f1', args.flags[0].name
+		assert_equal 'f1', args.flags[0].given_label
+		assert_equal '-f1', args.flags[0].given_name
+		assert_equal 1, args.flags[0].given_hyphens
+		assert_nil args.flags[0].argument_alias
+		assert_equal Hash.new, args.flags[0].extras
+
+		assert_equal 0, args.options.size
+
+		assert_equal 4, args.values.size
+		assert_equal 'value1', args.values[0]
+		assert_equal '-f2', args.values[1]
+		assert_equal '--', args.values[2]
+		assert_equal '--option1=v1', args.values[3]
+	end
+
+	def test_double_hyphen_3
+
+		aliases	=	[
+			CLASP.Option('--password', alias: '-p', extras: 'extra'),
+		]
+		args	=	CLASP::Arguments.new [ '-f1', 'value1', '-p', '--', 'value2' ], aliases
+
+		assert_equal 1, args.flags.size
+		assert_equal '-f1', args.flags[0].to_s
+		assert_equal '-f1', args.flags[0].name
+		assert_equal 'f1', args.flags[0].given_label
+		assert_equal '-f1', args.flags[0].given_name
+		assert_equal 1, args.flags[0].given_hyphens
+		assert_nil args.flags[0].argument_alias
+		assert_equal Hash.new, args.flags[0].extras
+
+		assert_equal 1, args.options.size
+		assert_equal '--password=', args.options[0].to_s
+		assert_equal '--password', args.options[0].name
+		assert_equal 'p', args.options[0].given_label
+		assert_nil args.options[0].value
+		assert_equal '-p', args.options[0].given_name
+		assert_equal 1, args.options[0].given_hyphens
+		assert_equal 'extra', args.options[0].extras
+
+		assert_equal 2, args.values.size
+		assert_equal 'value1', args.values[0]
+		assert_equal 'value2', args.values[1]
+	end
+
+	def test_flag_aliases_1
+
+		aliases	=	[
+		]
+		args	=	CLASP::Arguments.new [ '-f1', 'value1', '-x', '--delete' ], aliases
+
+		assert_equal 3, args.flags.size
+		assert_equal '-f1', args.flags[0].to_s
+		assert_equal '-f1', args.flags[0].name
+		assert_equal 'f1', args.flags[0].given_label
+		assert_equal '-f1', args.flags[0].given_name
+		assert_equal 1, args.flags[0].given_hyphens
+		assert_nil args.flags[0].argument_alias
+		assert_equal Hash.new, args.flags[0].extras
+		assert_equal '-x', args.flags[1].to_s
+		assert_equal '-x', args.flags[1].name
+		assert_equal 'x', args.flags[1].given_label
+		assert_equal '-x', args.flags[1].given_name
+		assert_equal 1, args.flags[1].given_hyphens
+		assert_nil args.flags[1].argument_alias
+		assert_equal Hash.new, args.flags[1].extras
+		assert_equal '--delete', args.flags[2].to_s
+		assert_equal '--delete', args.flags[2].name
+		assert_equal 'delete', args.flags[2].given_label
+		assert_equal '--delete', args.flags[2].given_name
+		assert_equal 2, args.flags[2].given_hyphens
+		assert_nil args.flags[2].argument_alias
+		assert_equal Hash.new, args.flags[2].extras
+
+		assert_equal 0, args.options.size
+
+		assert_equal 1, args.values.size
+		assert_equal 'value1', args.values[0]
+	end
+
+	def test_flag_aliases_2
+
+		aliases	=	[
+			CLASP.Flag('--expand', alias: '-x')
+		]
+		args	=	CLASP::Arguments.new [ '-f1', 'value1', '-x', '--delete' ], aliases
+
+		assert_equal 3, args.flags.size
+		assert_equal '-f1', args.flags[0].to_s
+		assert_equal '-f1', args.flags[0].name
+		assert_equal 'f1', args.flags[0].given_label
+		assert_equal '-f1', args.flags[0].given_name
+		assert_equal 1, args.flags[0].given_hyphens
+		assert_nil args.flags[0].argument_alias
+		assert_equal Hash.new, args.flags[0].extras
+		assert_equal '--expand', args.flags[1].to_s
+		assert_equal '--expand', args.flags[1].name
+		assert_equal 'x', args.flags[1].given_label
+		assert_equal '-x', args.flags[1].given_name
+		assert_equal 1, args.flags[1].given_hyphens
+		assert_equal aliases[0], args.flags[1].argument_alias
+		assert_equal Hash.new, args.flags[1].extras
+		assert_equal '--delete', args.flags[2].to_s
+		assert_equal '--delete', args.flags[2].name
+		assert_equal 'delete', args.flags[2].given_label
+		assert_equal '--delete', args.flags[2].given_name
+		assert_equal 2, args.flags[2].given_hyphens
+		assert_nil args.flags[2].argument_alias
+		assert_equal Hash.new, args.flags[2].extras
+
+		assert_equal 0, args.options.size
+
+		assert_equal 1, args.values.size
+		assert_equal 'value1', args.values[0]
+	end
+
+	def test_flag_aliases_3
+
+		aliases	=	[
+			CLASP.Flag('--expand', aliases: [ '-x', '--x' ], extras: %w{ e x t r a })
+		]
+		args	=	CLASP::Arguments.new [ '-f1', 'value1', '-x', '--delete', '--x' ], aliases
+
+		assert_equal 4, args.flags.size
+		assert_equal '-f1', args.flags[0].to_s
+		assert_equal '-f1', args.flags[0].name
+		assert_equal 'f1', args.flags[0].given_label
+		assert_equal '-f1', args.flags[0].given_name
+		assert_equal 1, args.flags[0].given_hyphens
+		assert_nil args.flags[0].argument_alias
+		assert_equal Hash.new, args.flags[0].extras
+		assert_equal '--expand', args.flags[1].to_s
+		assert_equal '--expand', args.flags[1].name
+		assert_equal 'x', args.flags[1].given_label
+		assert_equal '-x', args.flags[1].given_name
+		assert_equal 1, args.flags[1].given_hyphens
+		assert_equal aliases[0], args.flags[1].argument_alias
+		assert_equal [ 'e', 'x', 't', 'r', 'a' ], args.flags[1].extras
+		assert_equal '--delete', args.flags[2].to_s
+		assert_equal '--delete', args.flags[2].name
+		assert_equal 'delete', args.flags[2].given_label
+		assert_equal '--delete', args.flags[2].given_name
+		assert_equal 2, args.flags[2].given_hyphens
+		assert_nil args.flags[2].argument_alias
+		assert_equal Hash.new, args.flags[2].extras
+		assert_equal '--expand', args.flags[3].to_s
+		assert_equal '--expand', args.flags[3].name
+		assert_equal 'x', args.flags[3].given_label
+		assert_equal '--x', args.flags[3].given_name
+		assert_equal 2, args.flags[3].given_hyphens
+		assert_equal aliases[0], args.flags[3].argument_alias
+		assert_equal [ 'e', 'x', 't', 'r', 'a' ], args.flags[3].extras
+
+		assert_equal 0, args.options.size
+
+		assert_equal 1, args.values.size
+		assert_equal 'value1', args.values[0]
+	end
+
+	def test_option_aliases_1
+
+		aliases	=	[
+		]
+		args	=	CLASP::Arguments.new [ '-f1', 'value1', '-o=value' ], aliases
+
+		assert_equal 1, args.flags.size
+		assert_equal '-f1', args.flags[0].to_s
+		assert_equal '-f1', args.flags[0].name
+		assert_equal 'f1', args.flags[0].given_label
+		assert_equal '-f1', args.flags[0].given_name
+		assert_equal 1, args.flags[0].given_hyphens
+		assert_equal Hash.new, args.flags[0].extras
+
+		assert_equal 1, args.options.size
+		assert_equal '-o=value', args.options[0].to_s
+		assert_equal '-o', args.options[0].name
+		assert_equal 'o', args.options[0].given_label
+		assert_equal 'value', args.options[0].value
+		assert_equal '-o', args.options[0].given_name
+		assert_equal 1, args.options[0].given_hyphens
+		assert_equal Hash.new, args.options[0].extras
+
+		assert_equal 1, args.values.size
+		assert_equal 'value1', args.values[0]
+	end
+
+	def test_option_aliases_2
+
+		aliases	=	[
+			CLASP.Option('--option', aliases: [ '-o' ])
+		]
+		args	=	CLASP::Arguments.new [ '-f1', 'value1', '-o=value' ], aliases
+
+		assert_equal 1, args.flags.size
+		assert_equal '-f1', args.flags[0].to_s
+		assert_equal '-f1', args.flags[0].name
+		assert_equal 'f1', args.flags[0].given_label
+		assert_equal '-f1', args.flags[0].given_name
+		assert_equal 1, args.flags[0].given_hyphens
+		assert_equal Hash.new, args.flags[0].extras
+
+		assert_equal 1, args.options.size
+		assert_equal '--option=value', args.options[0].to_s
+		assert_equal '--option', args.options[0].name
+		assert_equal 'o', args.options[0].given_label
+		assert_equal 'value', args.options[0].value
+		assert_equal '-o', args.options[0].given_name
+		assert_equal 1, args.options[0].given_hyphens
+		assert_equal Hash.new, args.options[0].extras
+
+		assert_equal 1, args.values.size
+		assert_equal 'value1', args.values[0]
+	end
+
+	def test_option_aliases_3
+
+		aliases	=	[
+			CLASP.Option('--option', aliases: [ '-o' ])
+		]
+		args	=	CLASP::Arguments.new [ '-f1', 'value1', '-o', 'value' ], aliases
+
+		assert_equal 1, args.flags.size
+		assert_equal '-f1', args.flags[0].to_s
+		assert_equal '-f1', args.flags[0].name
+		assert_equal 'f1', args.flags[0].given_label
+		assert_equal '-f1', args.flags[0].given_name
+		assert_equal 1, args.flags[0].given_hyphens
+		assert_equal Hash.new, args.flags[0].extras
+
+		assert_equal 1, args.options.size
+		assert_equal '--option=value', args.options[0].to_s
+		assert_equal '--option', args.options[0].name
+		assert_equal 'o', args.options[0].given_label
+		assert_equal 'value', args.options[0].value
+		assert_equal '-o', args.options[0].given_name
+		assert_equal 1, args.options[0].given_hyphens
+		assert_equal Hash.new, args.options[0].extras
+
+		assert_equal 1, args.values.size
+		assert_equal 'value1', args.values[0]
+	end
+
+	def test_option_default_aliases_1
+
+		aliases	=	[
+			CLASP.Option('--option', aliases: [ '-o' ]),
+			CLASP.Option('--option=special-value', alias: '-s')
+		]
+		args	=	CLASP::Arguments.new [ '-f1', 'value1', '-o', 'value', '-s', '-s=explicit-value' ], aliases
+
+		assert_equal 1, args.flags.size
+		assert_equal '-f1', args.flags[0].to_s
+		assert_equal '-f1', args.flags[0].name
+		assert_equal 'f1', args.flags[0].given_label
+		assert_equal '-f1', args.flags[0].given_name
+		assert_equal 1, args.flags[0].given_hyphens
+		assert_equal Hash.new, args.flags[0].extras
+
+		assert_equal 3, args.options.size
+		assert_equal '--option=value', args.options[0].to_s
+		assert_equal '--option', args.options[0].name
+		assert_equal 'o', args.options[0].given_label
+		assert_equal 'value', args.options[0].value
+		assert_equal '-o', args.options[0].given_name
+		assert_equal 1, args.options[0].given_hyphens
+		assert_equal Hash.new, args.options[0].extras
+		assert_equal '--option=special-value', args.options[1].to_s
+		assert_equal '--option', args.options[1].name
+		assert_equal 's', args.options[1].given_label
+		assert_equal 'special-value', args.options[1].value
+		assert_equal '-s', args.options[1].given_name
+		assert_equal 1, args.options[1].given_hyphens
+		assert_equal Hash.new, args.options[1].extras
+		assert_equal '--option=explicit-value', args.options[2].to_s
+		assert_equal '--option', args.options[2].name
+		assert_equal 's', args.options[2].given_label
+		assert_equal 'explicit-value', args.options[2].value
+		assert_equal '-s', args.options[2].given_name
+		assert_equal 1, args.options[2].given_hyphens
+		assert_equal Hash.new, args.options[2].extras
+
+		assert_equal 1, args.values.size
+		assert_equal 'value1', args.values[0]
+	end
+
+	def test_option_default_aliases_2
+
+		aliases	=	[
+			CLASP.Option('--option', aliases: [ '-o' ]),
+			CLASP.Flag('--option=special-value', alias: '-s'),
+			CLASP.Flag('--verbose', alias: '-v'),
+		]
+		args	=	CLASP::Arguments.new [ '-f1', 'value1', '-o', 'value', '-sv', '-s=explicit-value' ], aliases
+
+		assert_equal 2, args.flags.size
+		flag = args.flags[0]
+		assert_equal '-f1', flag.to_s
+		assert_equal '-f1', flag.name
+		assert_equal 'f1', flag.given_label
+		assert_equal '-f1', flag.given_name
+		assert_equal 1, flag.given_hyphens
+		assert_equal Hash.new, flag.extras
+		assert_equal 0, flag.given_index
+		flag = args.flags[1]
+		assert_equal '--verbose', flag.to_s
+		assert_equal '--verbose', flag.name
+		assert_equal 'sv', flag.given_label
+		assert_equal '-sv', flag.given_name
+		assert_equal 1, flag.given_hyphens
+		assert_equal Hash.new, flag.extras
+		assert_equal 4, flag.given_index
+
+		assert_equal 3, args.options.size
+		option = args.options[0]
+		assert_equal '--option=value', option.to_s
+		assert_equal '--option', option.name
+		assert_equal 'o', option.given_label
+		assert_equal 'value', option.value
+		assert_equal '-o', option.given_name
+		assert_equal 1, option.given_hyphens
+		assert_equal Hash.new, option.extras
+		assert_equal 2, option.given_index
+		option = args.options[1]
+		assert_equal '--option=special-value', option.to_s
+		assert_equal '--option', option.name
+		assert_equal 'sv', option.given_label
+		assert_equal 'special-value', option.value
+		assert_equal '-sv', option.given_name
+		assert_equal 1, option.given_hyphens
+		assert_equal Hash.new, option.extras
+		assert_equal 4, option.given_index
+		option = args.options[2]
+		assert_equal '--option=explicit-value', option.to_s
+		assert_equal '--option', option.name
+		assert_equal 's', option.given_label
+		assert_equal 'explicit-value', option.value
+		assert_equal '-s', option.given_name
+		assert_equal 1, option.given_hyphens
+		assert_equal Hash.new, option.extras
+		assert_equal 5, option.given_index
+
+		assert_equal 1, args.values.size
+		assert_equal 'value1', args.values[0]
+	end
+
+	def test_option_default_aliases_3
+
+		aliases	=	[
+			CLASP.Option('--option', aliases: [ '-o' ]),
+			CLASP.Flag('--option=special-value', alias: '-s'),
+			CLASP.Flag('-v'),
+		]
+		args	=	CLASP::Arguments.new [ '-f1', 'value1', '-o', 'value', '-sv', '-s=explicit-value' ], aliases
+
+		assert_equal 2, args.flags.size
+		flag = args.flags[0]
+		assert_equal '-f1', flag.to_s
+		assert_equal '-f1', flag.name
+		assert_equal 'f1', flag.given_label
+		assert_equal '-f1', flag.given_name
+		assert_equal 1, flag.given_hyphens
+		assert_equal Hash.new, flag.extras
+		assert_equal 0, flag.given_index
+		flag = args.flags[1]
+		assert_equal '-v', flag.to_s
+		assert_equal '-v', flag.name
+		assert_equal 'sv', flag.given_label
+		assert_equal '-sv', flag.given_name
+		assert_equal 1, flag.given_hyphens
+		assert_equal Hash.new, flag.extras
+		assert_equal 4, flag.given_index
+
+		assert_equal 3, args.options.size
+		option = args.options[0]
+		assert_equal '--option=value', option.to_s
+		assert_equal '--option', option.name
+		assert_equal 'o', option.given_label
+		assert_equal 'value', option.value
+		assert_equal '-o', option.given_name
+		assert_equal 1, option.given_hyphens
+		assert_equal Hash.new, option.extras
+		assert_equal 2, option.given_index
+		option = args.options[1]
+		assert_equal '--option=special-value', option.to_s
+		assert_equal '--option', option.name
+		assert_equal 'sv', option.given_label
+		assert_equal 'special-value', option.value
+		assert_equal '-sv', option.given_name
+		assert_equal 1, option.given_hyphens
+		assert_equal Hash.new, option.extras
+		assert_equal 4, option.given_index
+		option = args.options[2]
+		assert_equal '--option=explicit-value', option.to_s
+		assert_equal '--option', option.name
+		assert_equal 's', option.given_label
+		assert_equal 'explicit-value', option.value
+		assert_equal '-s', option.given_name
+		assert_equal 1, option.given_hyphens
+		assert_equal Hash.new, option.extras
+		assert_equal 5, option.given_index
+
+		assert_equal 1, args.values.size
+		assert_equal 'value1', args.values[0]
+	end
+end
+