win32-file-attributes 1.0.1 → 1.0.2

data/lib/win32/file/windows/functions.rb

@@ -1,39 +1,39 @@
-require 'ffi'
-
-module Windows
-  module File
-    module Functions
-      extend FFI::Library
-      typedef :ulong, :dword
-      typedef :uintptr_t, :handle
-
-      ffi_lib :kernel32
-
-      attach_function :CloseHandle, [:handle], :bool
-      attach_function :CreateFileW, [:buffer_in, :dword, :dword, :pointer, :dword, :dword, :handle], :handle
-      attach_function :DeviceIoControl, [:handle, :dword, :pointer, :dword, :pointer, :dword, :pointer, :pointer], :bool
-      attach_function :GetFileAttributesW, [:buffer_in], :dword
-      attach_function :SetFileAttributesW, [:buffer_in, :dword], :bool
-
-      def CTL_CODE(device, function, method, access)
-         ((device) << 16) | ((access) << 14) | ((function) << 2) | (method)
-      end
-
-      def FSCTL_SET_COMPRESSION
-         CTL_CODE(9, 16, 0, 3)
-      end
-
-      def FSCTL_SET_SPARSE
-         CTL_CODE(9, 49, 0, 0)
-      end
-    end
-  end
-end
-
-class String
-  # Convenience method for converting strings to UTF-16LE for wide character
-  # functions that require it.
-  def wincode
-    (self.tr(File::SEPARATOR, File::ALT_SEPARATOR) + 0.chr).encode('UTF-16LE')
-  end
-end
+require 'ffi'
+
+module Windows
+  module File
+    module Functions
+      extend FFI::Library
+      typedef :ulong, :dword
+      typedef :uintptr_t, :handle
+
+      ffi_lib :kernel32
+
+      attach_function :CloseHandle, [:handle], :bool
+      attach_function :CreateFileW, [:buffer_in, :dword, :dword, :pointer, :dword, :dword, :handle], :handle
+      attach_function :DeviceIoControl, [:handle, :dword, :pointer, :dword, :pointer, :dword, :pointer, :pointer], :bool
+      attach_function :GetFileAttributesW, [:buffer_in], :dword
+      attach_function :SetFileAttributesW, [:buffer_in, :dword], :bool
+
+      def CTL_CODE(device, function, method, access)
+         ((device) << 16) | ((access) << 14) | ((function) << 2) | (method)
+      end
+
+      def FSCTL_SET_COMPRESSION
+         CTL_CODE(9, 16, 0, 3)
+      end
+
+      def FSCTL_SET_SPARSE
+         CTL_CODE(9, 49, 0, 0)
+      end
+    end
+  end
+end
+
+class String
+  # Convenience method for converting strings to UTF-16LE for wide character
+  # functions that require it.
+  def wincode
+    (self.tr(File::SEPARATOR, File::ALT_SEPARATOR) + 0.chr).encode('UTF-16LE')
+  end
+end

data/test/test_win32_file_attribute_constants.rb

@@ -1,25 +1,25 @@
-#############################################################################
-# test_win32_file_attribute_constants.rb
-#
-# Test cases for the "shortcut" constants for File attributes.
-#############################################################################
-require 'test-unit'
-require 'win32/file/attributes'
-
-class TC_Win32_File_Attribute_Constants < Test::Unit::TestCase
-  test "shortcut constants are defined" do
-    assert_not_nil(File::ARCHIVE)
-    assert_not_nil(File::HIDDEN)
-    assert_not_nil(File::NORMAL)
-    assert_not_nil(File::INDEXED)
-    assert_not_nil(File::OFFLINE)
-    assert_not_nil(File::READONLY)
-    assert_not_nil(File::SYSTEM)
-    assert_not_nil(File::TEMPORARY)
-    assert_not_nil(File::CONTENT_INDEXED)
-  end
-
-  test "CONTENT_INDEXED is identical to INDEXED" do
-    assert_equal(File::INDEXED, File::CONTENT_INDEXED)
-  end
-end
+#############################################################################
+# test_win32_file_attribute_constants.rb
+#
+# Test cases for the "shortcut" constants for File attributes.
+#############################################################################
+require 'test-unit'
+require 'win32/file/attributes'
+
+class TC_Win32_File_Attribute_Constants < Test::Unit::TestCase
+  test "shortcut constants are defined" do
+    assert_not_nil(File::ARCHIVE)
+    assert_not_nil(File::HIDDEN)
+    assert_not_nil(File::NORMAL)
+    assert_not_nil(File::INDEXED)
+    assert_not_nil(File::OFFLINE)
+    assert_not_nil(File::READONLY)
+    assert_not_nil(File::SYSTEM)
+    assert_not_nil(File::TEMPORARY)
+    assert_not_nil(File::CONTENT_INDEXED)
+  end
+
+  test "CONTENT_INDEXED is identical to INDEXED" do
+    assert_equal(File::INDEXED, File::CONTENT_INDEXED)
+  end
+end

data/test/test_win32_file_attributes.rb

@@ -1,376 +1,386 @@
-#############################################################################
-# test_win32_file_attributes.rb
-#
-# Test case for the attribute related methods of win32-file. You should run
-# this via the 'rake test' or 'rake test_attributes' task.
-#############################################################################
-require 'ffi'
-require 'test-unit'
-require 'win32/file/attributes'
-
-class TC_Win32_File_Attributes < Test::Unit::TestCase
-  extend FFI::Library
-  ffi_lib :kernel32
-
-  attach_function :GetFileAttributes, :GetFileAttributesA, [:string], :ulong
-  attach_function :SetFileAttributes, :SetFileAttributesA, [:string, :ulong], :ulong
-
-  def self.startup
-    Dir.chdir(File.dirname(File.expand_path(File.basename(__FILE__))))
-    @@file = File.join(Dir.pwd, 'test_file.txt')
-    File.open(@@file, 'w'){ |fh| fh.puts "This is a test." }
-  end
-
-  def setup
-    @fh   = File.open(@@file)
-    @attr = GetFileAttributes(@@file)
-  end
-
-  test "version is set to expected value" do
-    assert_equal('1.0.1', File::WIN32_FILE_ATTRIBUTE_VERSION)
-  end
-
-  test "temporary? singleton method basic functionality" do
-    assert_respond_to(File, :temporary?)
-    assert_nothing_raised{ File.temporary?(@@file) }
-  end
-
-  test "temporary? singleton method returns expected value" do
-    assert_false(File.temporary?(@@file))
-  end
-
-  test "temporary? singleton method requires a single argument" do
-    assert_raises(ArgumentError){ File.temporary? }
-    assert_raises(ArgumentError){ File.temporary?(@@file, 'foo') }
-  end
-
-  test "temporary? instance method basic functionality" do
-    assert_respond_to(@fh, :temporary=)
-    assert_nothing_raised{ @fh.temporary = true }
-  end
-
-  test "temporary? instance method works as expected" do
-    assert_false(File.temporary?(@@file))
-    @fh.temporary = true
-    assert_true(File.temporary?(@@file))
-  end
-
-  test "system? singleton method basic functionality" do
-    assert_respond_to(File, :system?)
-    assert_nothing_raised{ File.system?(@@file) }
-  end
-
-  test "system? singleton method returns the expected value" do
-    assert_false(File.system?(@@file))
-  end
-
-  test "system singleton method requires a single argument" do
-    assert_raises(ArgumentError){ File.system? }
-    assert_raises(ArgumentError){ File.system?(@@file, 'foo') }
-  end
-
-  test "system instance method basic functionality" do
-    assert_respond_to(@fh, :system=)
-    assert_nothing_raised{ @fh.system = true }
-  end
-
-  test "system instance method works as expected" do
-    assert_false(File.system?(@@file))
-    @fh.system = true
-    assert_true(File.system?(@@file))
-  end
-
-  test "sparse? singleton method basic functionality" do
-    assert_respond_to(File, :sparse?)
-    assert_nothing_raised{ File.sparse?(@@file) }
-  end
-
-  test "sparse? singleton method returns expected value" do
-    assert_false(File.sparse?(@@file))
-  end
-
-  test "sparse? singleton method requires one argument" do
-    assert_raises(ArgumentError){ File.sparse? }
-    assert_raises(ArgumentError){ File.sparse?(@@file, 'foo') }
-  end
-
-  # I don't actually test true assignment here since making a file a
-  # sparse file can't be undone.
-  test "sparse? instance method basic functionality" do
-    assert_respond_to(@fh, :sparse=)
-    assert_nothing_raised{ @fh.sparse= false }
-  end
-
-  test "reparse_point? singleton method basic functionality" do
-    assert_respond_to(File, :reparse_point?)
-    assert_nothing_raised{ File.reparse_point?(@@file) }
-  end
-
-  test "reparse_point? singleton method returns the expected value" do
-    assert_false(File.reparse_point?(@@file))
-  end
-
-  test "reparse_point? singleton method requires a single argument" do
-    assert_raises(ArgumentError){ File.reparse_point? }
-    assert_raises(ArgumentError){ File.reparse_point?(@@file, 'foo') }
-  end
-
-  test "readonly? singleton method basic functionality" do
-    assert_respond_to(File, :readonly?)
-    assert_nothing_raised{ File.readonly?(@@file) }
-  end
-
-  test "readonly? singleton method returns expected result" do
-    assert_false(File.readonly?(@@file))
-  end
-
-  test "readonly? singleton method requires a single argument" do
-    assert_raises(ArgumentError){ File.read_only? }
-    assert_raises(ArgumentError){ File.read_only?(@@file, 'foo') }
-  end
-
-  test "read_only? is an alias for readonly?" do
-    assert_respond_to(File, :read_only?)
-    assert_alias_method(File, :read_only?, :readonly?)
-  end
-
-  test "readonly? instance method basic functionality" do
-    assert_respond_to(@fh, :readonly=)
-    assert_nothing_raised{ @fh.readonly = true }
-  end
-
-  test "readonly? instance method returns expected value" do
-    assert_false(File.readonly?(@@file))
-    @fh.readonly = true
-    assert_true(File.readonly?(@@file))
-  end
-
-  test "offline? singleton method basic functionality" do
-    assert_respond_to(File, :offline?)
-    assert_nothing_raised{ File.offline?(@@file) }
-  end
-
-  test "offline? singleton method returns expected result" do
-    assert_false(File.offline?(@@file))
-  end
-
-  test "offline? singleton method requires a single argument" do
-    assert_raises(ArgumentError){ File.offline? }
-    assert_raises(ArgumentError){ File.offline?(@@file, 'foo') }
-  end
-
-  test "offline? instance method basic functionality" do
-    assert_respond_to(@fh, :offline=)
-    assert_nothing_raised{ @fh.offline =  true }
-  end
-
-  test "offline? instance method returns expected value" do
-    assert_false(File.offline?(@@file))
-    @fh.offline = true
-    assert_true(File.offline?(@@file))
-  end
-
-  test "normal? singleton method basic functionality" do
-    assert_respond_to(File, :normal?)
-    assert_nothing_raised{ File.normal?(@@file) }
-  end
-
-  test "normal? singleton method returns expected results" do
-    assert_false(File.normal?(@@file))
-    @fh.normal = true
-    assert_true(File.normal?(@@file))
-  end
-
-  test "normal? singleton method requires a single argument" do
-    assert_raises(ArgumentError){ File.normal? }
-    assert_raises(ArgumentError){ File.normal?(@@file, 'foo') }
-  end
-
-  test "normal? instance method basic functionality" do
-    assert_respond_to(@fh, :normal=)
-    assert_nothing_raised{ @fh.normal = true }
-  end
-
-  test "normal? instance method setter does not accept false" do
-    assert_raises(ArgumentError){ @fh.normal = false }
-  end
-
-  test "hidden? singleton method basic functionality" do
-    assert_respond_to(File, :hidden?)
-    assert_nothing_raised{ File.hidden?(@@file) }
-  end
-
-  test "hidden? singleton method returns the expected result" do
-    assert_false(File.hidden?(@@file))
-    @fh.hidden = true
-    assert_true(File.hidden?(@@file))
-  end
-
-  test "hidden? singleton method requires a single argument" do
-    assert_raises(ArgumentError){ File.hidden? }
-    assert_raises(ArgumentError){ File.hidden?(@@file, 'foo') }
-  end
-
-  test "hidden? instance method basic functionality" do
-    assert_respond_to(@fh, :hidden=)
-    assert_nothing_raised{ @fh.hidden = true }
-  end
-
-  test "encrypted? singleton method basic functionality" do
-    assert_respond_to(File, :encrypted?)
-    assert_nothing_raised{ File.encrypted?(@@file) }
-  end
-
-  test "encrypted? singleton method returns the expected result" do
-    assert_false(File.encrypted?(@@file))
-  end
-
-  test "encrypted? singleton method requires a single argument" do
-    assert_raises(ArgumentError){ File.encrypted? }
-    assert_raises(ArgumentError){ File.encrypted?(@@file, 'foo') }
-  end
-
-  test "indexed? singleton method basic functionality" do
-    assert_respond_to(File, :indexed?)
-    assert_nothing_raised{ File.indexed?(@@file) }
-  end
-
-  test "indexed? singleton method returns the expected results" do
-    assert_true(File.indexed?(@@file))
-    @fh.indexed = false
-    assert_false(File.indexed?(@@file))
-  end
-
-  test "content_indexed? is an alias for indexed?" do
-    assert_respond_to(File, :content_indexed?)
-    assert_alias_method(File, :content_indexed?, :indexed?)
-  end
-
-  test "indexed? singleton method requires a single argument" do
-    assert_raises(ArgumentError){ File.indexed? }
-    assert_raises(ArgumentError){ File.indexed?(@@file, 'foo') }
-  end
-
-  test "indexed? instance method basic functionality" do
-    assert_respond_to(@fh, :indexed=)
-    assert_nothing_raised{ @fh.indexed = true }
-  end
-
-  test "indexed? instance method returns expected method" do
-    assert_true(File.indexed?(@@file))
-    @fh.indexed = false
-    assert_false(File.indexed?(@@file))
-  end
-
-  test "compressed? singleton method basic functionality" do
-    assert_respond_to(File, :compressed?)
-    assert_nothing_raised{ File.compressed?(@@file) }
-  end
-
-  test "compressed? singleton method returns the expected result" do
-    assert_false(File.compressed?(@@file))
-  end
-
-  test "compressed instance method setter basic functionality" do
-    assert_respond_to(@fh, :compressed=)
-    assert_false(File.compressed?(@@file))
-  end
-
-  test "compressed? singleton method requires a single argument" do
-    assert_raises(ArgumentError){ File.compressed? }
-    assert_raises(ArgumentError){ File.compressed?(@@file, 'foo') }
-  end
-
-  # We have to explicitly reset the compressed attribute to false as
-  # the last of these assertions.
-
-  test "compressed instance method setter works as expected" do
-    assert_nothing_raised{ @fh.compressed = true }
-    assert_true(File.compressed?(@@file))
-    assert_nothing_raised{ @fh.compressed = false }
-    assert_false(File.compressed?(@@file))
-  end
-
-  test "archive? singleton method basic functionality" do
-    assert_respond_to(File, :archive?)
-    assert_nothing_raised{ File.archive?(@@file) }
-  end
-
-  test "archive? singleton method returns the expected results" do
-    assert_true(File.archive?(@@file))
-    @fh.archive = false
-    assert_false(File.archive?(@@file))
-  end
-
-  test "archive? singleton method requires a single argument" do
-    assert_raises(ArgumentError){ File.archive? }
-    assert_raises(ArgumentError){ File.archive?(@@file, 'foo') }
-  end
-
-  test "archive instance method setter basic functionality" do
-    assert_respond_to(@fh, :archive=)
-    assert_nothing_raised{ @fh.archive = false }
-  end
-
-  test "attributes singleton method basic functionality" do
-    assert_respond_to(File, :attributes)
-    assert_kind_of(Array, File.attributes(@@file))
-  end
-
-  test "attributes singleton method returns expected results" do
-    assert_equal(['archive', 'indexed'], File.attributes(@@file))
-  end
-
-  test "set_attributes singleton method basic functionality" do
-    assert_respond_to(File, :set_attributes)
-    assert_nothing_raised{ File.set_attributes(@@file, File::FILE_ATTRIBUTE_HIDDEN) }
-  end
-
-  test "set_attributes singleton method works as expected" do
-    assert_nothing_raised{ File.set_attributes(@@file, File::FILE_ATTRIBUTE_HIDDEN) }
-    assert_true(File.attributes(@@file).include?('hidden'))
-  end
-
-  test "set_attr is an alias for set_attributes" do
-    assert_respond_to(File, :set_attr)
-    assert_alias_method(File, :set_attr, :set_attributes)
-  end
-
-  test "remove_attributes singleton method basic functionality" do
-    assert_respond_to(File, :remove_attributes)
-    assert_nothing_raised{ File.remove_attributes(@@file, File::FILE_ATTRIBUTE_ARCHIVE) }
-  end
-
-  test "remove_attributes works as expected" do
-    assert_true(File.archive?(@@file))
-    assert_nothing_raised{ File.remove_attributes(@@file, File::FILE_ATTRIBUTE_ARCHIVE) }
-    assert_false(File.archive?(@@file))
-  end
-
-  test "unset_attr is an alias for remove_attributes" do
-    assert_respond_to(File, :unset_attr)
-    assert_alias_method(File, :unset_attr, :remove_attributes)
-  end
-
-  test "shorthand constants are defined" do
-    assert_not_nil(File::ARCHIVE)
-    assert_not_nil(File::HIDDEN)
-    assert_not_nil(File::NORMAL)
-    assert_not_nil(File::INDEXED)
-    assert_not_nil(File::OFFLINE)
-    assert_not_nil(File::READONLY)
-    assert_not_nil(File::SYSTEM)
-    assert_not_nil(File::TEMPORARY)
-    assert_not_nil(File::CONTENT_INDEXED) # alias for INDEXED
-  end
-
-  def teardown
-    SetFileAttributes(@@file, @attr)
-    @fh.close
-  end
-
-  def self.shutdown
-    File.delete(@@file)
-    @@file = nil
-  end
-end
+#############################################################################
+# test_win32_file_attributes.rb
+#
+# Test case for the attribute related methods of win32-file. You should run
+# this via the 'rake test' or 'rake test_attributes' task.
+#############################################################################
+require 'ffi'
+require 'test-unit'
+require 'win32/file/attributes'
+require 'pathname'
+
+class TC_Win32_File_Attributes < Test::Unit::TestCase
+  extend FFI::Library
+  ffi_lib :kernel32
+
+  attach_function :GetFileAttributes, :GetFileAttributesA, [:string], :ulong
+  attach_function :SetFileAttributes, :SetFileAttributesA, [:string, :ulong], :ulong
+
+  def self.startup
+    Dir.chdir(File.dirname(File.expand_path(File.basename(__FILE__))))
+    @@file = File.join(Dir.pwd, 'test_file.txt')
+    File.open(@@file, 'w'){ |fh| fh.puts "This is a test." }
+  end
+
+  def setup
+    @fh   = File.open(@@file)
+    @attr = GetFileAttributes(@@file)
+  end
+
+  test "version is set to expected value" do
+    assert_equal('1.0.2', File::WIN32_FILE_ATTRIBUTE_VERSION)
+  end
+
+  test "temporary? singleton method basic functionality" do
+    assert_respond_to(File, :temporary?)
+    assert_nothing_raised{ File.temporary?(@@file) }
+  end
+
+  test "temporary? singleton method returns expected value" do
+    assert_false(File.temporary?(@@file))
+  end
+
+  test "temporary? singleton method requires a single argument" do
+    assert_raises(ArgumentError){ File.temporary? }
+    assert_raises(ArgumentError){ File.temporary?(@@file, 'foo') }
+  end
+
+  test "temporary? instance method basic functionality" do
+    assert_respond_to(@fh, :temporary=)
+    assert_nothing_raised{ @fh.temporary = true }
+  end
+
+  test "temporary? instance method works as expected" do
+    assert_false(File.temporary?(@@file))
+    @fh.temporary = true
+    assert_true(File.temporary?(@@file))
+  end
+
+  test "system? singleton method basic functionality" do
+    assert_respond_to(File, :system?)
+    assert_nothing_raised{ File.system?(@@file) }
+  end
+
+  test "system? singleton method returns the expected value" do
+    assert_false(File.system?(@@file))
+  end
+
+  test "system singleton method requires a single argument" do
+    assert_raises(ArgumentError){ File.system? }
+    assert_raises(ArgumentError){ File.system?(@@file, 'foo') }
+  end
+
+  test "system instance method basic functionality" do
+    assert_respond_to(@fh, :system=)
+    assert_nothing_raised{ @fh.system = true }
+  end
+
+  test "system instance method works as expected" do
+    assert_false(File.system?(@@file))
+    @fh.system = true
+    assert_true(File.system?(@@file))
+  end
+
+  test "sparse? singleton method basic functionality" do
+    assert_respond_to(File, :sparse?)
+    assert_nothing_raised{ File.sparse?(@@file) }
+  end
+
+  test "sparse? singleton method returns expected value" do
+    assert_false(File.sparse?(@@file))
+  end
+
+  test "sparse? singleton method requires one argument" do
+    assert_raises(ArgumentError){ File.sparse? }
+    assert_raises(ArgumentError){ File.sparse?(@@file, 'foo') }
+  end
+
+  # I don't actually test true assignment here since making a file a
+  # sparse file can't be undone.
+  test "sparse? instance method basic functionality" do
+    assert_respond_to(@fh, :sparse=)
+    assert_nothing_raised{ @fh.sparse= false }
+  end
+
+  test "reparse_point? singleton method basic functionality" do
+    assert_respond_to(File, :reparse_point?)
+    assert_nothing_raised{ File.reparse_point?(@@file) }
+  end
+
+  test "reparse_point? singleton method returns the expected value" do
+    assert_false(File.reparse_point?(@@file))
+  end
+
+  test "reparse_point? singleton method requires a single argument" do
+    assert_raises(ArgumentError){ File.reparse_point? }
+    assert_raises(ArgumentError){ File.reparse_point?(@@file, 'foo') }
+  end
+
+  test "readonly? singleton method basic functionality" do
+    assert_respond_to(File, :readonly?)
+    assert_nothing_raised{ File.readonly?(@@file) }
+  end
+
+  test "readonly? singleton method returns expected result" do
+    assert_false(File.readonly?(@@file))
+  end
+
+  test "readonly? singleton method requires a single argument" do
+    assert_raises(ArgumentError){ File.read_only? }
+    assert_raises(ArgumentError){ File.read_only?(@@file, 'foo') }
+  end
+
+  test "read_only? is an alias for readonly?" do
+    assert_respond_to(File, :read_only?)
+    assert_alias_method(File, :read_only?, :readonly?)
+  end
+
+  test "readonly? instance method basic functionality" do
+    assert_respond_to(@fh, :readonly=)
+    assert_nothing_raised{ @fh.readonly = true }
+  end
+
+  test "readonly? instance method returns expected value" do
+    assert_false(File.readonly?(@@file))
+    @fh.readonly = true
+    assert_true(File.readonly?(@@file))
+  end
+
+  test "offline? singleton method basic functionality" do
+    assert_respond_to(File, :offline?)
+    assert_nothing_raised{ File.offline?(@@file) }
+  end
+
+  test "offline? singleton method returns expected result" do
+    assert_false(File.offline?(@@file))
+  end
+
+  test "offline? singleton method requires a single argument" do
+    assert_raises(ArgumentError){ File.offline? }
+    assert_raises(ArgumentError){ File.offline?(@@file, 'foo') }
+  end
+
+  test "offline? instance method basic functionality" do
+    assert_respond_to(@fh, :offline=)
+    assert_nothing_raised{ @fh.offline =  true }
+  end
+
+  test "offline? instance method returns expected value" do
+    assert_false(File.offline?(@@file))
+    @fh.offline = true
+    assert_true(File.offline?(@@file))
+  end
+
+  test "normal? singleton method basic functionality" do
+    assert_respond_to(File, :normal?)
+    assert_nothing_raised{ File.normal?(@@file) }
+  end
+
+  test "normal? singleton method returns expected results" do
+    assert_false(File.normal?(@@file))
+    @fh.normal = true
+    assert_true(File.normal?(@@file))
+  end
+
+  test "normal? singleton method requires a single argument" do
+    assert_raises(ArgumentError){ File.normal? }
+    assert_raises(ArgumentError){ File.normal?(@@file, 'foo') }
+  end
+
+  test "normal? instance method basic functionality" do
+    assert_respond_to(@fh, :normal=)
+    assert_nothing_raised{ @fh.normal = true }
+  end
+
+  test "normal? instance method setter does not accept false" do
+    assert_raises(ArgumentError){ @fh.normal = false }
+  end
+
+  test "hidden? singleton method basic functionality" do
+    assert_respond_to(File, :hidden?)
+    assert_nothing_raised{ File.hidden?(@@file) }
+  end
+
+  test "hidden? singleton method returns the expected result" do
+    assert_false(File.hidden?(@@file))
+    @fh.hidden = true
+    assert_true(File.hidden?(@@file))
+  end
+
+  test "hidden? singleton method requires a single argument" do
+    assert_raises(ArgumentError){ File.hidden? }
+    assert_raises(ArgumentError){ File.hidden?(@@file, 'foo') }
+  end
+
+  test "hidden? instance method basic functionality" do
+    assert_respond_to(@fh, :hidden=)
+    assert_nothing_raised{ @fh.hidden = true }
+  end
+
+  test "encrypted? singleton method basic functionality" do
+    assert_respond_to(File, :encrypted?)
+    assert_nothing_raised{ File.encrypted?(@@file) }
+  end
+
+  test "encrypted? singleton method returns the expected result" do
+    assert_false(File.encrypted?(@@file))
+  end
+
+  test "encrypted? singleton method requires a single argument" do
+    assert_raises(ArgumentError){ File.encrypted? }
+    assert_raises(ArgumentError){ File.encrypted?(@@file, 'foo') }
+  end
+
+  test "indexed? singleton method basic functionality" do
+    assert_respond_to(File, :indexed?)
+    assert_nothing_raised{ File.indexed?(@@file) }
+  end
+
+  test "indexed? singleton method returns the expected results" do
+    assert_true(File.indexed?(@@file))
+    @fh.indexed = false
+    assert_false(File.indexed?(@@file))
+  end
+
+  test "content_indexed? is an alias for indexed?" do
+    assert_respond_to(File, :content_indexed?)
+    assert_alias_method(File, :content_indexed?, :indexed?)
+  end
+
+  test "indexed? singleton method requires a single argument" do
+    assert_raises(ArgumentError){ File.indexed? }
+    assert_raises(ArgumentError){ File.indexed?(@@file, 'foo') }
+  end
+
+  test "indexed? instance method basic functionality" do
+    assert_respond_to(@fh, :indexed=)
+    assert_nothing_raised{ @fh.indexed = true }
+  end
+
+  test "indexed? instance method returns expected method" do
+    assert_true(File.indexed?(@@file))
+    @fh.indexed = false
+    assert_false(File.indexed?(@@file))
+  end
+
+  test "compressed? singleton method basic functionality" do
+    assert_respond_to(File, :compressed?)
+    assert_nothing_raised{ File.compressed?(@@file) }
+  end
+
+  test "compressed? singleton method returns the expected result" do
+    assert_false(File.compressed?(@@file))
+  end
+
+  test "compressed instance method setter basic functionality" do
+    assert_respond_to(@fh, :compressed=)
+    assert_false(File.compressed?(@@file))
+  end
+
+  test "compressed? singleton method requires a single argument" do
+    assert_raises(ArgumentError){ File.compressed? }
+    assert_raises(ArgumentError){ File.compressed?(@@file, 'foo') }
+  end
+
+  # We have to explicitly reset the compressed attribute to false as
+  # the last of these assertions.
+
+  test "compressed instance method setter works as expected" do
+    assert_nothing_raised{ @fh.compressed = true }
+    assert_true(File.compressed?(@@file))
+    assert_nothing_raised{ @fh.compressed = false }
+    assert_false(File.compressed?(@@file))
+  end
+
+  test "archive? singleton method basic functionality" do
+    assert_respond_to(File, :archive?)
+    assert_nothing_raised{ File.archive?(@@file) }
+  end
+
+  test "archive? singleton method returns the expected results" do
+    assert_true(File.archive?(@@file))
+    @fh.archive = false
+    assert_false(File.archive?(@@file))
+  end
+
+  test "archive? singleton method requires a single argument" do
+    assert_raises(ArgumentError){ File.archive? }
+    assert_raises(ArgumentError){ File.archive?(@@file, 'foo') }
+  end
+
+  test "archive instance method setter basic functionality" do
+    assert_respond_to(@fh, :archive=)
+    assert_nothing_raised{ @fh.archive = false }
+  end
+
+  test "attributes singleton method basic functionality" do
+    assert_respond_to(File, :attributes)
+    assert_kind_of(Array, File.attributes(@@file))
+  end
+
+  test "attributes singleton method returns expected results" do
+    assert_equal(['archive', 'indexed'], File.attributes(@@file))
+  end
+
+  test "attributes singleton method accepts a pathname argument" do
+    assert_nothing_raised{ File.attributes(Pathname.new(@@file)) }
+  end
+
+  test "attribute singleton method requires a stringy argument" do
+    assert_raise(TypeError){ File.attributes(nil) }
+    assert_raise(TypeError){ File.attributes([]) }
+  end
+
+  test "set_attributes singleton method basic functionality" do
+    assert_respond_to(File, :set_attributes)
+    assert_nothing_raised{ File.set_attributes(@@file, File::FILE_ATTRIBUTE_HIDDEN) }
+  end
+
+  test "set_attributes singleton method works as expected" do
+    assert_nothing_raised{ File.set_attributes(@@file, File::FILE_ATTRIBUTE_HIDDEN) }
+    assert_true(File.attributes(@@file).include?('hidden'))
+  end
+
+  test "set_attr is an alias for set_attributes" do
+    assert_respond_to(File, :set_attr)
+    assert_alias_method(File, :set_attr, :set_attributes)
+  end
+
+  test "remove_attributes singleton method basic functionality" do
+    assert_respond_to(File, :remove_attributes)
+    assert_nothing_raised{ File.remove_attributes(@@file, File::FILE_ATTRIBUTE_ARCHIVE) }
+  end
+
+  test "remove_attributes works as expected" do
+    assert_true(File.archive?(@@file))
+    assert_nothing_raised{ File.remove_attributes(@@file, File::FILE_ATTRIBUTE_ARCHIVE) }
+    assert_false(File.archive?(@@file))
+  end
+
+  test "unset_attr is an alias for remove_attributes" do
+    assert_respond_to(File, :unset_attr)
+    assert_alias_method(File, :unset_attr, :remove_attributes)
+  end
+
+  test "shorthand constants are defined" do
+    assert_not_nil(File::ARCHIVE)
+    assert_not_nil(File::HIDDEN)
+    assert_not_nil(File::NORMAL)
+    assert_not_nil(File::INDEXED)
+    assert_not_nil(File::OFFLINE)
+    assert_not_nil(File::READONLY)
+    assert_not_nil(File::SYSTEM)
+    assert_not_nil(File::TEMPORARY)
+    assert_not_nil(File::CONTENT_INDEXED) # alias for INDEXED
+  end
+
+  def teardown
+    SetFileAttributes(@@file, @attr)
+    @fh.close
+  end
+
+  def self.shutdown
+    File.delete(@@file)
+    @@file = nil
+  end
+end