libpath-ruby 0.2.1

data/test/unit/internal_/unix/ts_all.rb

@@ -0,0 +1,22 @@
+#! /usr/bin/env ruby
+#
+# executes all other tests
+
+this_dir = File.expand_path(File.dirname(__FILE__))
+
+# all tc_*rb in current directory
+Dir[File.join(this_dir, 'tc_*rb')].each do |file|
+
+	$stderr.puts "requiring file '#{file}'" if $DEBUG
+
+	require file
+end
+
+# all ts_*rb in immediate sub-directories
+Dir[File.join(this_dir, '*', 'ts_*rb')].each do |file|
+
+	$stderr.puts "requiring file '#{file}'" if $DEBUG
+
+	require file
+end
+

data/test/unit/internal_/windows/form/tc_get_windows_volume.rb

@@ -0,0 +1,220 @@
+#! /usr/bin/env ruby
+
+$:.unshift File.join(File.dirname(__FILE__), *(['..'] * 5), 'lib')
+
+require 'libpath/internal_/windows/form'
+
+require 'test/unit'
+
+class Test_Internal_Windows_Form_get_windows_volume < Test::Unit::TestCase
+
+	F = ::LibPath::Internal_::Windows::Form
+
+	def test_empty_string
+
+		r = F.get_windows_volume('')
+
+		assert_kind_of ::Array, r
+		assert_equal 3, r.size
+		assert_nil r[0]
+		assert_equal '', r[1]
+		assert_equal :form_0, r[2]
+	end
+
+	def test_no_seps
+
+		r = F.get_windows_volume('abc')
+
+		assert_kind_of ::Array, r
+		assert_equal 3, r.size
+		assert_nil r[0]
+		assert_equal 'abc', r[1]
+		assert_equal :form_0, r[2]
+	end
+
+	def test_homed
+
+		r = F.get_windows_volume('~')
+
+		assert_kind_of ::Array, r
+		assert_equal 3, r.size
+		assert_nil r[0]
+		assert_equal '~', r[1]
+		assert_equal :form_0, r[2]
+	end
+
+	def test_rooted
+
+		r = F.get_windows_volume('\\abc')
+
+		assert_kind_of ::Array, r
+		assert_equal 3, r.size
+		assert_nil r[0]
+		assert_equal '\\abc', r[1]
+		assert_equal :form_0, r[2]
+	end
+
+	def test_drive_standard
+
+		r = F.get_windows_volume('h:')
+
+		assert_kind_of ::Array, r
+		assert_equal 3, r.size
+		assert_equal 'h:', r[0]
+		assert_equal '', r[1]
+		assert_equal :form_1, r[2]
+
+		r = F.get_windows_volume('X:\\')
+
+		assert_kind_of ::Array, r
+		assert_equal 3, r.size
+		assert_equal 'X:', r[0]
+		assert_equal '\\', r[1]
+		assert_equal :form_1, r[2]
+
+		r = F.get_windows_volume('X:\\abc')
+
+		assert_kind_of ::Array, r
+		assert_equal 3, r.size
+		assert_equal 'X:', r[0]
+		assert_equal '\\abc', r[1]
+		assert_equal :form_1, r[2]
+
+		r = F.get_windows_volume('X:/abc')
+
+		assert_kind_of ::Array, r
+		assert_equal 3, r.size
+		assert_equal 'X:', r[0]
+		assert_equal '/abc', r[1]
+		assert_equal :form_1, r[2]
+	end
+
+	def test_device
+
+		r = F.get_windows_volume('\\\\.\\the-device-name\\file')
+
+		assert_kind_of ::Array, r
+		assert_equal 3, r.size
+		assert_equal '\\\\.\\the-device-name', r[0]
+		assert_equal '\\file', r[1]
+		assert_equal :form_6, r[2]
+
+		r = F.get_windows_volume('\\\\.\\the-device-name')
+
+		assert_kind_of ::Array, r
+		assert_equal 3, r.size
+		assert_equal '\\\\.\\the-device-name', r[0]
+		assert_equal '', r[1]
+		assert_equal :form_6, r[2]
+	end
+
+	def test_drive_long
+
+		r = F.get_windows_volume('\\\\?\\h:')
+
+		assert_kind_of ::Array, r
+		assert_equal 3, r.size
+		assert_equal '\\\\?\\h:', r[0]
+		assert_equal '', r[1]
+		assert_equal :form_3, r[2]
+
+		r = F.get_windows_volume('\\\\?\\X:\\')
+
+		assert_kind_of ::Array, r
+		assert_equal 3, r.size
+		assert_equal '\\\\?\\X:', r[0]
+		assert_equal '\\', r[1]
+		assert_equal :form_3, r[2]
+
+		r = F.get_windows_volume('\\\\?\\X:\\abc')
+
+		assert_kind_of ::Array, r
+		assert_equal 3, r.size
+		assert_equal '\\\\?\\X:', r[0]
+		assert_equal '\\abc', r[1]
+		assert_equal :form_3, r[2]
+
+		r = F.get_windows_volume('\\\\?\\X:/abc')
+
+		assert_kind_of ::Array, r
+		assert_equal 3, r.size
+		assert_equal '\\\\?\\X:', r[0]
+		assert_equal '/abc', r[1]
+		assert_equal :form_3, r[2]
+	end
+
+	def test_UNC_standard
+
+		r = F.get_windows_volume('\\\\the-server-name\\the-share-name')
+
+		assert_kind_of ::Array, r
+		assert_equal 3, r.size
+		assert_equal '\\\\the-server-name\\the-share-name', r[0]
+		assert_equal '', r[1]
+		assert_equal :form_2, r[2]
+
+		r = F.get_windows_volume('\\\\the-server-name\\the-share-name\\')
+
+		assert_kind_of ::Array, r
+		assert_equal 3, r.size
+		assert_equal '\\\\the-server-name\\the-share-name', r[0]
+		assert_equal '\\', r[1]
+		assert_equal :form_2, r[2]
+
+		r = F.get_windows_volume('\\\\the-server-name\\the-share-name\\file.ext')
+
+		assert_kind_of ::Array, r
+		assert_equal 3, r.size
+		assert_equal '\\\\the-server-name\\the-share-name', r[0]
+		assert_equal '\\file.ext', r[1]
+		assert_equal :form_2, r[2]
+	end
+
+	def test_UNC_long
+
+		r = F.get_windows_volume('\\\\?\\the-server-name\\the-share-name')
+
+		assert_kind_of ::Array, r
+		assert_equal 3, r.size
+		assert_equal '\\\\?\\the-server-name\\the-share-name', r[0]
+		assert_equal '', r[1]
+		assert_equal :form_4, r[2]
+
+		r = F.get_windows_volume('\\\\?\\the-server-name\\the-share-name\\')
+
+		assert_kind_of ::Array, r
+		assert_equal 3, r.size
+		assert_equal '\\\\?\\the-server-name\\the-share-name', r[0]
+		assert_equal '\\', r[1]
+		assert_equal :form_4, r[2]
+
+		r = F.get_windows_volume('\\\\?\\the-server-name\\the-share-name\\file.ext')
+
+		assert_kind_of ::Array, r
+		assert_equal 3, r.size
+		assert_equal '\\\\?\\the-server-name\\the-share-name', r[0]
+		assert_equal '\\file.ext', r[1]
+		assert_equal :form_4, r[2]
+	end
+
+	def test_UNC_full
+
+		r = F.get_windows_volume('\\\\?\\UNC\\the-server-name\\the-share-name')
+
+		assert_kind_of ::Array, r
+		assert_equal 3, r.size
+		assert_equal '\\\\?\\UNC\\the-server-name\\the-share-name', r[0]
+		assert_equal '', r[1]
+		assert_equal :form_5, r[2]
+
+		r = F.get_windows_volume('\\\\?\\UNC\\the-server-name\\the-share-name\\')
+
+		assert_kind_of ::Array, r
+		assert_equal 3, r.size
+		assert_equal '\\\\?\\UNC\\the-server-name\\the-share-name', r[0]
+		assert_equal '\\', r[1]
+		assert_equal :form_5, r[2]
+	end
+end
+
+

data/test/unit/internal_/windows/form/tc_slash_functions.rb

@@ -0,0 +1,61 @@
+#! /usr/bin/env ruby
+
+$:.unshift File.join(File.dirname(__FILE__), *(['..'] * 5), 'lib')
+
+require 'libpath/internal_/windows/form'
+
+require 'test/unit'
+
+require 'xqsr3/extensions/test/unit'
+
+class Test_Internal_Windows_Form_slash_functions < Test::Unit::TestCase
+
+	F = ::LibPath::Internal_::Windows::Form
+
+	def test_char_is_path_name_separator?
+
+		assert_false F.char_is_path_name_separator?('')
+		assert_false F.char_is_path_name_separator?('a')
+
+		assert F.char_is_path_name_separator?('/')
+		assert F.char_is_path_name_separator?('\\')
+	end
+
+	def test_append_trailing_slash
+
+		assert_equal '\\', F.append_trailing_slash('')
+		assert_equal '/', F.append_trailing_slash('/')
+		assert_equal 'a\\', F.append_trailing_slash('a')
+		assert_equal 'a/', F.append_trailing_slash('a/')
+	end
+
+	def test_get_trailing_slash
+
+		assert_nil F.get_trailing_slash('')
+		assert_equal '/', F.get_trailing_slash('/')
+		assert_nil F.get_trailing_slash('a')
+		assert_equal '\\', F.get_trailing_slash('\\')
+		assert_equal '/', F.get_trailing_slash('a/')
+	end
+
+	def test_has_trailing_slash
+
+		assert_false F.has_trailing_slash?('')
+		assert_true F.has_trailing_slash?('/')
+		assert_false F.has_trailing_slash?('a')
+		assert_true F.has_trailing_slash?('\\')
+		assert_true F.has_trailing_slash?('a/')
+	end
+
+	def test_trim_trailing_slash
+
+		assert_equal '', F.trim_trailing_slash('')
+		assert_equal '', F.trim_trailing_slash('/')
+		assert_equal 'a', F.trim_trailing_slash('a')
+		assert_equal '', F.trim_trailing_slash('\\')
+		assert_equal 'a', F.trim_trailing_slash('a/')
+		assert_equal 'a', F.trim_trailing_slash('a\\')
+	end
+end
+
+

data/test/unit/internal_/windows/form/ts_all.rb

@@ -0,0 +1,22 @@
+#! /usr/bin/env ruby
+#
+# executes all other tests
+
+this_dir = File.expand_path(File.dirname(__FILE__))
+
+# all tc_*rb in current directory
+Dir[File.join(this_dir, 'tc_*rb')].each do |file|
+
+	$stderr.puts "requiring file '#{file}'" if $DEBUG
+
+	require file
+end
+
+# all ts_*rb in immediate sub-directories
+Dir[File.join(this_dir, '*', 'ts_*rb')].each do |file|
+
+	$stderr.puts "requiring file '#{file}'" if $DEBUG
+
+	require file
+end
+

data/test/unit/internal_/windows/tc_split_path.rb

@@ -0,0 +1,881 @@
+#! /usr/bin/env ruby
+
+$:.unshift File.join(File.dirname(__FILE__), *(['..'] * 4), 'lib')
+
+require 'libpath/internal_/windows/form'
+
+require 'test/unit'
+
+class Test_LibPath_Internal_Windows_Form_split_path < Test::Unit::TestCase
+
+	F = ::LibPath::Internal_::Windows::Form
+
+	def test_empty
+
+		r	=	F.split_path ''
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_nil r[0]
+		assert_nil r[1]
+		assert_nil r[2]
+		assert_nil r[3]
+		assert_nil r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_empty r[6]
+		assert_kind_of ::Array, r[7]
+		assert_empty r[7]
+	end
+
+	def test_dot
+
+		r	=	F.split_path '.'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '.', r[0]
+		assert_nil r[1]
+		assert_nil r[2]
+		assert_equal '.', r[3]
+		assert_equal '.', r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_empty r[6]
+		assert_kind_of ::Array, r[7]
+		assert_empty r[7]
+	end
+
+	def test_dots
+
+		r	=	F.split_path '..'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '..', r[0]
+		assert_nil r[1]
+		assert_nil r[2]
+		assert_equal '..', r[3]
+		assert_equal '..', r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_empty r[6]
+		assert_kind_of ::Array, r[7]
+		assert_empty r[7]
+	end
+
+	def test_stems
+
+		r	=	F.split_path 'a'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal 'a', r[0]
+		assert_nil r[1]
+		assert_nil r[2]
+		assert_equal 'a', r[3]
+		assert_equal 'a', r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_empty r[6]
+		assert_kind_of ::Array, r[7]
+		assert_empty r[7]
+
+		r	=	F.split_path 'abc'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal 'abc', r[0]
+		assert_nil r[1]
+		assert_nil r[2]
+		assert_equal 'abc', r[3]
+		assert_equal 'abc', r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_empty r[6]
+		assert_kind_of ::Array, r[7]
+		assert_empty r[7]
+
+		r	=	F.split_path 'abcdefghi'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal 'abcdefghi', r[0]
+		assert_nil r[1]
+		assert_nil r[2]
+		assert_equal 'abcdefghi', r[3]
+		assert_equal 'abcdefghi', r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_empty r[6]
+		assert_kind_of ::Array, r[7]
+		assert_empty r[7]
+	end
+
+	def test_basenames
+
+		r	=	F.split_path 'a.x'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal 'a.x', r[0]
+		assert_nil r[1]
+		assert_nil r[2]
+		assert_equal 'a.x', r[3]
+		assert_equal 'a', r[4]
+		assert_equal '.x', r[5]
+		assert_kind_of ::Array, r[6]
+		assert_empty r[6]
+		assert_kind_of ::Array, r[7]
+		assert_empty r[7]
+
+		r	=	F.split_path 'abc.ext'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal 'abc.ext', r[0]
+		assert_nil r[1]
+		assert_nil r[2]
+		assert_equal 'abc.ext', r[3]
+		assert_equal 'abc', r[4]
+		assert_equal '.ext', r[5]
+		assert_kind_of ::Array, r[6]
+		assert_empty r[6]
+		assert_kind_of ::Array, r[7]
+		assert_empty r[7]
+
+		r	=	F.split_path 'abcd.efghi.ext'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_nil r[1]
+		assert_nil r[2]
+		assert_equal 'abcd.efghi.ext', r[3]
+		assert_equal 'abcd.efghi', r[4]
+		assert_equal '.ext', r[5]
+		assert_kind_of ::Array, r[6]
+		assert_empty r[6]
+		assert_kind_of ::Array, r[7]
+		assert_empty r[7]
+	end
+
+	def test_directories
+
+		r	=	F.split_path 'a/'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal 'a/', r[0]
+		assert_nil r[1]
+		assert_equal 'a/', r[2]
+		assert_nil r[3]
+		assert_nil r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ 'a/' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ 'a/' ], r[7]
+
+		r	=	F.split_path 'a\\'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal 'a\\', r[0]
+		assert_nil r[1]
+		assert_equal 'a\\', r[2]
+		assert_nil r[3]
+		assert_nil r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ 'a\\' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ 'a\\' ], r[7]
+
+		r	=	F.split_path 'abc/'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal 'abc/', r[0]
+		assert_nil r[1]
+		assert_equal 'abc/', r[2]
+		assert_nil r[3]
+		assert_nil r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ 'abc/' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ 'abc/' ], r[7]
+
+		r	=	F.split_path 'abc\\'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal 'abc\\', r[0]
+		assert_nil r[1]
+		assert_equal 'abc\\', r[2]
+		assert_nil r[3]
+		assert_nil r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ 'abc\\' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ 'abc\\' ], r[7]
+
+		r	=	F.split_path 'abc/def/'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal 'abc/def/', r[0]
+		assert_nil r[1]
+		assert_equal 'abc/def/', r[2]
+		assert_nil r[3]
+		assert_nil r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ 'abc/', 'def/' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ 'abc/', 'def/' ], r[7]
+
+		r	=	F.split_path 'abc\\def\\'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal 'abc\\def\\', r[0]
+		assert_nil r[1]
+		assert_equal 'abc\\def\\', r[2]
+		assert_nil r[3]
+		assert_nil r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ 'abc\\', 'def\\' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ 'abc\\', 'def\\' ], r[7]
+
+		r	=	F.split_path '/'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '/', r[0]
+		assert_nil r[1]
+		assert_equal '/', r[2]
+		assert_nil r[3]
+		assert_nil r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '/' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '/' ], r[7]
+
+		r	=	F.split_path '\\'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '\\', r[0]
+		assert_nil r[1]
+		assert_equal '\\', r[2]
+		assert_nil r[3]
+		assert_nil r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '\\' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '\\' ], r[7]
+
+		r	=	F.split_path '/abc/'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '/abc/', r[0]
+		assert_nil r[1]
+		assert_equal '/abc/', r[2]
+		assert_nil r[3]
+		assert_nil r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '/', 'abc/' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '/', 'abc/' ], r[7]
+
+		r	=	F.split_path '\\abc\\'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '\\abc\\', r[0]
+		assert_nil r[1]
+		assert_equal '\\abc\\', r[2]
+		assert_nil r[3]
+		assert_nil r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '\\', 'abc\\' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '\\', 'abc\\' ], r[7]
+
+		r	=	F.split_path '/abc/def/'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '/abc/def/', r[0]
+		assert_nil r[1]
+		assert_equal '/abc/def/', r[2]
+		assert_nil r[3]
+		assert_nil r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '/', 'abc/', 'def/' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '/', 'abc/', 'def/' ], r[7]
+
+		r	=	F.split_path '\\abc\\def\\'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '\\abc\\def\\', r[0]
+		assert_nil r[1]
+		assert_equal '\\abc\\def\\', r[2]
+		assert_nil r[3]
+		assert_nil r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '\\', 'abc\\', 'def\\' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '\\', 'abc\\', 'def\\' ], r[7]
+
+		r	=	F.split_path '~/abc/def/'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '~/abc/def/', r[0]
+		assert_nil r[1]
+		assert_equal '~/abc/def/', r[2]
+		assert_nil r[3]
+		assert_nil r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '~/', 'abc/', 'def/' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '~/', 'abc/', 'def/' ], r[7]
+
+		r	=	F.split_path '~\\abc\\def\\'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '~\\abc\\def\\', r[0]
+		assert_nil r[1]
+		assert_equal '~\\abc\\def\\', r[2]
+		assert_nil r[3]
+		assert_nil r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '~\\', 'abc\\', 'def\\' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '~\\', 'abc\\', 'def\\' ], r[7]
+
+		r	=	F.split_path '~/abc\\def/'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '~/abc\\def/', r[0]
+		assert_nil r[1]
+		assert_equal '~/abc\\def/', r[2]
+		assert_nil r[3]
+		assert_nil r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '~/', 'abc\\', 'def/' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '~/', 'abc\\', 'def/' ], r[7]
+	end
+
+	def test_paths
+
+		r	=	F.split_path 'a/b'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal 'a/b', r[0]
+		assert_nil r[1]
+		assert_equal 'a/', r[2]
+		assert_equal 'b', r[3]
+		assert_equal 'b', r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ 'a/' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ 'a/' ], r[7]
+
+		r	=	F.split_path 'a\\b'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal 'a\\b', r[0]
+		assert_nil r[1]
+		assert_equal 'a\\', r[2]
+		assert_equal 'b', r[3]
+		assert_equal 'b', r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ 'a\\' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ 'a\\' ], r[7]
+
+		r	=	F.split_path 'abc/file.ext'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal 'abc/file.ext', r[0]
+		assert_nil r[1]
+		assert_equal 'abc/', r[2]
+		assert_equal 'file.ext', r[3]
+		assert_equal 'file', r[4]
+		assert_equal '.ext', r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ 'abc/' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ 'abc/' ], r[7]
+
+		r	=	F.split_path 'abc\\file.ext'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal 'abc\\file.ext', r[0]
+		assert_nil r[1]
+		assert_equal 'abc\\', r[2]
+		assert_equal 'file.ext', r[3]
+		assert_equal 'file', r[4]
+		assert_equal '.ext', r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ 'abc\\' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ 'abc\\' ], r[7]
+
+		r	=	F.split_path '/abc/file.ext'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '/abc/file.ext', r[0]
+		assert_nil r[1]
+		assert_equal '/abc/', r[2]
+		assert_equal 'file.ext', r[3]
+		assert_equal 'file', r[4]
+		assert_equal '.ext', r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '/', 'abc/' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '/', 'abc/' ], r[7]
+
+		r	=	F.split_path '\\abc\\file.ext'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '\\abc\\file.ext', r[0]
+		assert_nil r[1]
+		assert_equal '\\abc\\', r[2]
+		assert_equal 'file.ext', r[3]
+		assert_equal 'file', r[4]
+		assert_equal '.ext', r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '\\', 'abc\\' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '\\', 'abc\\' ], r[7]
+
+		r	=	F.split_path '/abc/.ext'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '/abc/.ext', r[0]
+		assert_nil r[1]
+		assert_equal '/abc/', r[2]
+		assert_equal '.ext', r[3]
+		assert_nil r[4]
+		assert_equal '.ext', r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '/', 'abc/' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '/', 'abc/' ], r[7]
+
+		r	=	F.split_path '\\abc\\.ext'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '\\abc\\.ext', r[0]
+		assert_nil r[1]
+		assert_equal '\\abc\\', r[2]
+		assert_equal '.ext', r[3]
+		assert_nil r[4]
+		assert_equal '.ext', r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '\\', 'abc\\' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '\\', 'abc\\' ], r[7]
+
+		r	=	F.split_path '/abc/ext.'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '/abc/ext.', r[0]
+		assert_nil r[1]
+		assert_equal '/abc/', r[2]
+		assert_equal 'ext.', r[3]
+		assert_equal 'ext', r[4]
+		assert_equal '.', r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '/', 'abc/' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '/', 'abc/' ], r[7]
+
+		r	=	F.split_path '\\abc\\ext.'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '\\abc\\ext.', r[0]
+		assert_nil r[1]
+		assert_equal '\\abc\\', r[2]
+		assert_equal 'ext.', r[3]
+		assert_equal 'ext', r[4]
+		assert_equal '.', r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '\\', 'abc\\' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '\\', 'abc\\' ], r[7]
+	end
+
+	def test_paths_with_dots_basenames
+
+		r	=	F.split_path '/.'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '/.', r[0]
+		assert_nil r[1]
+		assert_equal '/', r[2]
+		assert_equal '.', r[3]
+		assert_equal '.', r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '/' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '/' ], r[7]
+
+		r	=	F.split_path '\\.'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '\\.', r[0]
+		assert_nil r[1]
+		assert_equal '\\', r[2]
+		assert_equal '.', r[3]
+		assert_equal '.', r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '\\' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '\\' ], r[7]
+
+		r	=	F.split_path '/..'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '/..', r[0]
+		assert_nil r[1]
+		assert_equal '/', r[2]
+		assert_equal '..', r[3]
+		assert_equal '..', r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '/' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '/' ], r[7]
+
+		r	=	F.split_path '\\..'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '\\..', r[0]
+		assert_nil r[1]
+		assert_equal '\\', r[2]
+		assert_equal '..', r[3]
+		assert_equal '..', r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '\\' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '\\' ], r[7]
+
+		r	=	F.split_path './..'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal './..', r[0]
+		assert_nil r[1]
+		assert_equal './', r[2]
+		assert_equal '..', r[3]
+		assert_equal '..', r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ './' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ './' ], r[7]
+
+		r	=	F.split_path '.\\..'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '.\\..', r[0]
+		assert_nil r[1]
+		assert_equal '.\\', r[2]
+		assert_equal '..', r[3]
+		assert_equal '..', r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '.\\' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '.\\' ], r[7]
+	end
+
+	def test_paths_with_drives_form1
+
+		r	=	F.split_path 'C:/abc/file.ext'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal 'C:/abc/file.ext', r[0]
+		assert_equal 'C:', r[1]
+		assert_equal :form_1, r[1].form
+		assert_equal '/abc/', r[2]
+		assert_equal 'file.ext', r[3]
+		assert_equal 'file', r[4]
+		assert_equal '.ext', r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '/', 'abc/' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ 'C:/', 'abc/' ], r[7]
+
+		r	=	F.split_path 'C:\\abc\\file.ext'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal 'C:\\abc\\file.ext', r[0]
+		assert_equal 'C:', r[1]
+		assert_equal :form_1, r[1].form
+		assert_equal '\\abc\\', r[2]
+		assert_equal 'file.ext', r[3]
+		assert_equal 'file', r[4]
+		assert_equal '.ext', r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '\\', 'abc\\' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ 'C:\\', 'abc\\' ], r[7]
+	end
+
+	def test_paths_with_drives_form3
+
+		r	=	F.split_path '\\\\?\\d:/abc/file.ext'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '\\\\?\\d:/abc/file.ext', r[0]
+		assert_equal '\\\\?\\d:', r[1]
+		assert_equal :form_3, r[1].form
+		assert_equal '/abc/', r[2]
+		assert_equal 'file.ext', r[3]
+		assert_equal 'file', r[4]
+		assert_equal '.ext', r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '/', 'abc/' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '\\\\?\\d:/', 'abc/' ], r[7]
+
+		r	=	F.split_path '\\\\?\\d:\\abc\\file.ext'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '\\\\?\\d:\\abc\\file.ext', r[0]
+		assert_equal '\\\\?\\d:', r[1]
+		assert_equal :form_3, r[1].form
+		assert_equal '\\abc\\', r[2]
+		assert_equal 'file.ext', r[3]
+		assert_equal 'file', r[4]
+		assert_equal '.ext', r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '\\', 'abc\\' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '\\\\?\\d:\\', 'abc\\' ], r[7]
+	end
+
+	def test_paths_with_UNC_form2
+
+		r	=	F.split_path '\\\\101.202.303.404:1234\\some-share-or-other\\abc\\file.ext'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '\\\\101.202.303.404:1234\\some-share-or-other\\abc\\file.ext', r[0]
+		assert_equal '\\\\101.202.303.404:1234\\some-share-or-other', r[1]
+		assert_equal :form_2, r[1].form
+		assert_equal '\\abc\\', r[2]
+		assert_equal 'file.ext', r[3]
+		assert_equal 'file', r[4]
+		assert_equal '.ext', r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '\\', 'abc\\' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '\\\\101.202.303.404:1234\\some-share-or-other\\', 'abc\\' ], r[7]
+
+		r	=	F.split_path '\\\\101.202.303.404:1234\\some-share-or-other\\abc/file.ext'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '\\\\101.202.303.404:1234\\some-share-or-other\\abc/file.ext', r[0]
+		assert_equal '\\\\101.202.303.404:1234\\some-share-or-other', r[1]
+		assert_equal :form_2, r[1].form
+		assert_equal '\\abc/', r[2]
+		assert_equal 'file.ext', r[3]
+		assert_equal 'file', r[4]
+		assert_equal '.ext', r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '\\', 'abc/' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '\\\\101.202.303.404:1234\\some-share-or-other\\', 'abc/' ], r[7]
+	end
+
+	def test_paths_with_UNC_form4
+
+		r	=	F.split_path '\\\\?\\101.202.303.404:1234\\some-share-or-other\\abc\\file.ext'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '\\\\?\\101.202.303.404:1234\\some-share-or-other\\abc\\file.ext', r[0]
+		assert_equal '\\\\?\\101.202.303.404:1234\\some-share-or-other', r[1]
+		assert_equal :form_4, r[1].form
+		assert_equal '\\abc\\', r[2]
+		assert_equal 'file.ext', r[3]
+		assert_equal 'file', r[4]
+		assert_equal '.ext', r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '\\', 'abc\\' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '\\\\?\\101.202.303.404:1234\\some-share-or-other\\', 'abc\\' ], r[7]
+
+		r	=	F.split_path '\\\\?\\101.202.303.404:1234\\some-share-or-other\\abc/file.ext'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '\\\\?\\101.202.303.404:1234\\some-share-or-other\\abc/file.ext', r[0]
+		assert_equal '\\\\?\\101.202.303.404:1234\\some-share-or-other', r[1]
+		assert_equal :form_4, r[1].form
+		assert_equal '\\abc/', r[2]
+		assert_equal 'file.ext', r[3]
+		assert_equal 'file', r[4]
+		assert_equal '.ext', r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '\\', 'abc/' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '\\\\?\\101.202.303.404:1234\\some-share-or-other\\', 'abc/' ], r[7]
+	end
+
+	def test_paths_with_UNC_form5
+
+		r	=	F.split_path '\\\\?\\UNC\\101.202.303.404:1234\\some-share-or-other\\abc\\file.ext'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '\\\\?\\UNC\\101.202.303.404:1234\\some-share-or-other\\abc\\file.ext', r[0]
+		assert_equal '\\\\?\\UNC\\101.202.303.404:1234\\some-share-or-other', r[1]
+		assert_equal :form_5, r[1].form
+		assert_equal '\\abc\\', r[2]
+		assert_equal 'file.ext', r[3]
+		assert_equal 'file', r[4]
+		assert_equal '.ext', r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '\\', 'abc\\' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '\\\\?\\UNC\\101.202.303.404:1234\\some-share-or-other\\', 'abc\\' ], r[7]
+
+		r	=	F.split_path '\\\\?\\UNC\\101.202.303.404:1234\\some-share-or-other\\abc/file.ext'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '\\\\?\\UNC\\101.202.303.404:1234\\some-share-or-other\\abc/file.ext', r[0]
+		assert_equal '\\\\?\\UNC\\101.202.303.404:1234\\some-share-or-other', r[1]
+		assert_equal :form_5, r[1].form
+		assert_equal '\\abc/', r[2]
+		assert_equal 'file.ext', r[3]
+		assert_equal 'file', r[4]
+		assert_equal '.ext', r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '\\', 'abc/' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '\\\\?\\UNC\\101.202.303.404:1234\\some-share-or-other\\', 'abc/' ], r[7]
+	end
+
+	def test_paths_with_device_form6
+
+		r	=	F.split_path '\\\\.\\{some-device-name#abcd}\\abc\\file.ext'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '\\\\.\\{some-device-name#abcd}\\abc\\file.ext', r[0]
+		assert_equal '\\\\.\\{some-device-name#abcd}', r[1]
+		assert_equal :form_6, r[1].form
+		assert_equal '\\abc\\', r[2]
+		assert_equal 'file.ext', r[3]
+		assert_equal 'file', r[4]
+		assert_equal '.ext', r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '\\', 'abc\\' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '\\\\.\\{some-device-name#abcd}\\', 'abc\\' ], r[7]
+
+		r	=	F.split_path '\\\\.\\{some-device-name#abcd}\\abc/file.ext'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '\\\\.\\{some-device-name#abcd}\\abc/file.ext', r[0]
+		assert_equal '\\\\.\\{some-device-name#abcd}', r[1]
+		assert_equal :form_6, r[1].form
+		assert_equal '\\abc/', r[2]
+		assert_equal 'file.ext', r[3]
+		assert_equal 'file', r[4]
+		assert_equal '.ext', r[5]
+		assert_kind_of ::Array, r[6]
+		assert_equal [ '\\', 'abc/' ], r[6]
+		assert_kind_of ::Array, r[7]
+		assert_equal [ '\\\\.\\{some-device-name#abcd}\\', 'abc/' ], r[7]
+	end
+
+	def test_paths_with_invalid_UNC
+
+		r	=	F.split_path '\\\\?\\server'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '\\\\?\\server', r[0]
+		assert_equal '\\\\?\\server', r[1]
+		assert_equal :malformed, r[1].form
+		assert_nil r[2]
+		assert_nil r[3]
+		assert_nil r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_empty r[6]
+		assert_kind_of ::Array, r[7]
+		assert_empty r[7]
+
+		r	=	F.split_path '\\\\?\\server\\'
+
+		assert_kind_of ::Array, r
+		assert_equal 8, r.size
+		assert_equal '\\\\?\\server\\', r[0]
+		assert_equal '\\\\?\\server\\', r[1]
+		assert_equal :malformed, r[1].form
+		assert_nil r[2]
+		assert_nil r[3]
+		assert_nil r[4]
+		assert_nil r[5]
+		assert_kind_of ::Array, r[6]
+		assert_empty r[6]
+		assert_kind_of ::Array, r[7]
+		assert_empty r[7]
+	end
+end
+