(MODULES-2409) Endian-ness incorrect for DWORD and QWORD

lib/puppet/provider/registry_value/registry.rb

@@ -174,28 +174,6 @@ def write_value
     end
   end
 
-  BITS_PER_BYTE = 8
-  BYTE_MASK = 0xFF
-
-  def to_byte_array(num, of_length)
-    bytes = []
-    while
-      # mask only least significant byte and prepend
-      bytes.unshift(num & BYTE_MASK)
-
-      # nothing left to shave off
-      break if (num <= BYTE_MASK)
-
-      # shift off the least significant byte and continue
-      num >>= BITS_PER_BYTE
-    end
-
-    pad = of_length - bytes.length
-    bytes.concat([0] * pad) if pad > 0
-
-    bytes
-  end
-
   def data_to_bytes(type, data)
     bytes = []
 
@@ -210,9 +188,11 @@ def data_to_bytes(type, data)
       when Win32::Registry::REG_BINARY
         bytes = data.bytes.to_a
       when Win32::Registry::REG_DWORD
-        bytes = to_byte_array(data, FFI::Type::UINT32.size)
+        # L is 32-bit unsigned native (little) endian order
+        bytes = [data].pack('L').unpack('C*')
       when Win32::Registry::REG_QWORD
-        bytes = to_byte_array(data, FFI::Type::UINT64.size)
+        # Q is 64-bit unsigned native (little) endian order
+        bytes = [data].pack('Q').unpack('C*')
       else
         raise TypeError, "Unsupported type #{type}"
     end

spec/unit/puppet/provider/registry_value_spec.rb

@@ -30,6 +30,9 @@
       # also, expect that we're not using Rubys each_key / each_value which exhibit bad behavior
       Win32::Registry.any_instance.expects(:each_key).never
       Win32::Registry.any_instance.expects(:each_value).never
+
+      # this covers []= write_s write_i and write_bin
+      Win32::Registry.any_instance.expects(:write).never
     end
   end
 
@@ -93,6 +96,7 @@ def create_and_destroy(path, reg_type, data)
 
       reg_value.provider.create
       reg_value.provider.exists?.should be_true
+      expect(reg_value.provider.data).to eq([data].flatten)
 
       reg_value.provider.destroy
       reg_value.provider.exists?.should be_false
@@ -107,7 +111,7 @@ def create_and_destroy(path, reg_type, data)
     end
 
     it "can destroy a randomly created REG_BINARY value" do
-      create_and_destroy(path, :binary, '01011010')
+      create_and_destroy(path, :binary, '01 01 10 10')
     end
 
     it "can destroy a randomly created REG_DWORD value" do
@@ -123,6 +127,46 @@ def create_and_destroy(path, reg_type, data)
     end
   end
 
+  context "when writing numeric values" do
+    let (:path) { path = "hklm\\#{puppet_key}\\#{subkey_name}\\#{SecureRandom.uuid}" }
+
+    after(:each) do
+      reg_value = type.new(:path => path, :provider => described_class.name)
+
+      reg_value.provider.destroy
+      expect(reg_value.provider).to_not be_exists
+    end
+
+    def write_and_read_value(path, reg_type, value)
+      reg_value = type.new(:path => path,
+        :type => reg_type,
+        :data => value,
+        :provider => described_class.name)
+
+      reg_value.provider.create
+      expect(reg_value.provider).to be_exists
+      expect(reg_value.provider.type).to eq(reg_type)
+
+      written = reg_value.provider.data.first
+      expect(written).to eq(value)
+    end
+
+
+    # values chosen at 1 bit past previous byte boundary
+    [0xFF + 1, 0xFFFF + 1, 0xFFFFFF + 1, 0xFFFFFFFF].each do |value|
+      it "properly round-trips written values by converting endianness properly" do
+        write_and_read_value(path, :dword, value)
+        write_and_read_value(path, :qword, value)
+      end
+    end
+
+    [0xFFFFFFFFFF + 1, 0xFFFFFFFFFFFF + 1, 0xFFFFFFFFFFFFFF + 1, 0xFFFFFFFFFFFFFFFF].each do |value|
+      it "properly round-trips written values by converting endianness properly" do
+        write_and_read_value(path, :qword, value)
+      end
+    end
+  end
+
   context "when reading non-ASCII values" do
     ENDASH_UTF_8 = [0xE2, 0x80, 0x93]
     ENDASH_UTF_16 = [0x2013]