test_sdk1 1.0.0

data/spec/cl_value_serializer_spec.rb

@@ -0,0 +1,140 @@
+require_relative '../lib/serialization/cl_value_serializer.rb'
+require 'json'
+
+describe CLValueSerializer do 
+  let (:serializer) { CLValueSerializer.new }
+
+  describe "CLBool Value Serializer" do
+    let (:bool1) { CLBool.new(false) }
+    let (:bool2) { CLBool.new(true) }
+ 
+    it "should serialize CLBool values" do
+      expect(serializer.to_bytes(bool1)).to eq("010000000000")
+      expect(serializer.to_bytes(bool2)).to eq("010000000100")
+    end
+  end
+
+  describe "CLi32 Value Serializer" do 
+    let (:i32_1) { CLi32.new(-10) }
+    let (:i32_2) { CLi32.new(10) }
+
+    it "should serialize CLi32 values" do
+      expect(serializer.to_bytes(i32_1)).to eq("04000000f6ffffff01")
+      expect(serializer.to_bytes(i32_2)).to eq("040000000a00000001")
+    end
+  end
+
+  describe "CLi64 Value Serializer" do 
+    let (:i64_1) { CLi64.new(-16) }
+    let (:i64_2) { CLi64.new(16) }
+
+    it "should serialize CLi64 values" do
+      expect(serializer.to_bytes(i64_1)).to eq("08000000f0ffffffffffffff02")
+      expect(serializer.to_bytes(i64_2)).to eq("08000000100000000000000002")
+    end
+  end
+
+  describe "CLu8 Value Serializer" do 
+    let (:u8_1) { CLu8.new(0x00) }
+    let (:u8_2) { CLu8.new(0x7F) }
+
+    it "should serialize CLu8 values" do
+      expect(serializer.to_bytes(u8_1)).to eq("010000000003")
+      expect(serializer.to_bytes(u8_2)).to eq("010000007f03")
+    end
+  end
+
+  describe "CLu32 Value Serializer" do 
+    
+    # MAX_U32 = 2.pow(32) - 1
+    # MIN_U32 = 0 
+    let (:u32_1) { CLu32.new(MAX_U32) } 
+    let (:u32_2) { CLu32.new(MIN_U32) }
+
+    it "should serialize CLu32 values" do
+      expect(serializer.to_bytes(u32_1)).to eq("04000000ffffffff04")
+      expect(serializer.to_bytes(u32_2)).to eq("040000000000000004")
+    end
+  end
+
+  describe "CLu64 Value Serializer" do 
+    # MAX_U64 = 2.pow(64) - 1
+    # MIN_U64 = 0
+    let (:u64_1) { CLu64.new(MAX_U64) }
+    let (:u64_2) { CLu64.new(1) }
+
+    it "should serialize CLu64 values" do
+      expect(serializer.to_bytes(u64_1)).to eq("08000000ffffffffffffffff05")
+      expect(serializer.to_bytes(u64_2)).to eq("08000000010000000000000005")
+    end
+  end
+
+  describe "CLString Value Serializer" do
+    let (:str1) { CLString.new("Hello, Casper!") }
+    it "should serialize CLString values" do
+      expect(serializer.to_bytes(str1)).to eq("120000000e00000048656c6c6f2c20436173706572210a")
+    end
+  end
+  
+  describe "CLURef Value Serializer" do
+    let (:uref) { "uref-000102030405060708090a0b0c0d0e0f000102030405060708090a0b0c0d0e0f-007" }
+    let (:clvalue) { CLURef.new(uref) }
+    it "should serialize CLURef values" do
+      expect(serializer.to_bytes(clvalue)).to eq("21000000000102030405060708090a0b0c0d0e0f000102030405060708090a0b0c0d0e0f070c")
+    end
+  end
+
+  describe "CLPublicKey Value Serializer" do
+    let (:pub_key_hex_ed25519)  { "010af5a943bacd2a8e91792eb4e9a25e32d536ab103372f57f89ebcadfc59820d1" }
+    let (:pub_raw_ed25519)  { [10, 245, 169, 67, 186, 205, 42, 142, 
+                                145, 121, 46, 180, 233, 162,94, 50, 
+                                213, 54, 171, 16, 51, 114, 245, 127, 137, 
+                                235, 202, 223, 197, 152, 32, 209] }
+    let (:clvalue)  { CLPublicKey.new(pub_raw_ed25519, CLPublicKeyTag[:ED25519]) }
+    it "should serialize CLPublicKey values" do
+      expect(serializer.to_bytes(clvalue)).to eq("21000000010af5a943bacd2a8e91792eb4e9a25e32d536ab103372f57f89ebcadfc59820d116")
+    end
+  end
+
+  describe CLTuple do
+    let (:bool)  { CLBool.new(true) }
+    let (:u32_1) { CLu32.new(17) }
+    let (:u32_2) { CLu32.new(127) }
+    let (:str)   { CLString.new("ABCDE") }
+
+    describe CLTuple1 do
+        let (:tuple1) { CLTuple1.new([bool]) }
+        let (:tuples) { [CLTuple1.new([bool]), CLTuple1.new([u32_1]), CLTuple1.new([str])] }
+      it "should serialize CLTuple1" do
+        expect(serializer.to_bytes(tuple1)).to eq("01000000011200")
+        expect(serializer.to_bytes(tuples[0])).to eq("01000000011200")
+        expect(serializer.to_bytes(tuples[1])).to eq("04000000110000001204")
+        expect(serializer.to_bytes(tuples[2])).to eq("09000000050000004142434445120a")
+      end
+    end
+    
+    describe CLTuple2 do
+        let (:tuples) { [CLTuple2.new([u32_1, u32_2]), CLTuple2.new([u32_2, str])] }
+      it "should serialize CLTuple2" do
+        expect(serializer.to_bytes(tuples[0])).to eq("08000000110000007f000000130404")
+        expect(serializer.to_bytes(tuples[1])).to eq("0d0000007f00000005000000414243444513040a")
+      end
+    end
+    
+    describe CLTuple3 do
+        let (:tuples) { [CLTuple3.new([u32_1, u32_2, u32_1]), CLTuple3.new([u32_2, str, u32_2])] }
+      it "should serialize CLTuple3" do
+        expect(serializer.to_bytes(tuples[0])).to eq("0c000000110000007f0000001100000014040404")
+        expect(serializer.to_bytes(tuples[1])).to eq("110000007f0000000500000041424344457f00000014040a04")
+      end
+    end
+  end
+
+  describe "CLUnit Value Serializer" do  
+    let(:unit)  {CLUnit.new()}
+    it "should serialize CLUnit values" do  
+      puts serializer.to_bytes(unit)
+      expect(serializer.to_bytes(unit)).to eql("0000000009")
+    end
+  end
+end

data/spec/client_spec.rb

@@ -0,0 +1,25 @@
+# client_spec.rb
+# require './lib/casper_network.rb'
+
+# describe CasperClient do
+#   client1 = CasperClient.new("185.246.84.43")
+#   # Test info_get_peers()
+#   describe "#info_get_peers" do
+#     it "returns peers array." do
+#       # Check whether ıt is an array or not
+#       expect(client1.info_get_peers).to be_an(Array)
+#       # Check the length of the peers array 
+#       expect(client1.info_get_peers.length).to be > 0
+
+#     end
+#   end   
+#    # Test chain_get_StateRootHash() 
+#   describe "#chain_get_StateRootHash" do
+#     it "returns current state_root_hash." do
+#       # Check whether its type is string or not
+#       expect(client1.chain_get_StateRootHash).to be_an(String)
+#     end
+#   end  
+
+
+# end

data/spec/crypto_spec.rb

@@ -0,0 +1,42 @@
+# require_relative '../lib/crypto/asymmetric_key.rb'
+# require_relative '../lib/crypto/ed25519_key.rb'
+# require_relative '../lib/types/cl_public_key.rb'
+
+# $pub_raw_ed25519 = [ 
+#     10, 245, 169, 67, 186, 205, 42, 142, 
+#     145, 121, 46, 180, 233, 162, 94, 50, 
+#     213, 54, 171, 16, 51, 114, 245, 127, 
+#     137, 235, 202, 223, 197, 152, 32, 209 
+#   ]
+# $private_key = [
+#     233, 167,  59, 188, 240,  81, 151,  35, 145,  66, 150,
+#     154, 239, 229,  16, 106,  66,  19,  86,  89, 193, 209,
+#     176,  51, 125, 113, 212,   6,  27, 193, 145,  49, 201,
+#     121,  63, 103, 146,  81, 130,  70, 221, 206, 116,  15,
+#      62,   0,   1, 142, 227,  69, 220, 130,  20, 162, 253,
+#      39, 171, 238, 197, 211,  17, 155, 253, 177
+#   ]
+
+# $pub_raw_secp256K1 = [
+#     74, 231, 213, 182, 107, 47, 208, 246, 
+#     111, 176, 239, 204, 238, 203, 103, 59, 
+#     55, 98, 89, 91, 48, 174, 28, 172, 72, 
+#     174, 143, 9, 211, 76, 149, 46, 228
+#   ]
+# describe Ed25519Key do 
+#   let(:public_key) {CLPublicKey.new($pub_raw_ed25519, 1)} 
+#   let(:ed25519) {Ed25519Key.new(public_key, $private_key)}
+#   it "print raw_public_key" do
+#     # p public_key
+#     # p public_key.to_account_hash_byte_array
+#     # p public_key.to_account_hash_hex
+   
+#     # p ed25519.account_hash
+#     # p ed25519.get_public_key
+
+#     # p ed25519.account_hex(ed25519.get_public_key)    
+#     p ed25519.get_public_key_hex
+#     # p ed25519.account_hex    
+#     p ed25519.account_hex(public_key)
+#   end
+# end

data/spec/deploy_approval_serializer_spec.rb

@@ -0,0 +1,26 @@
+require_relative '../lib/serialization/deploy_approval_serializer.rb'
+
+
+RSpec.describe DeployApprovalSerializer do
+
+  it "should serialize DeployAproval" do
+    approvals = [
+      {
+          "signer": "01d9bf2148748a85c89da5aad8ee0b0fc2d105fd39d41a4c796536354f0ae2900c",
+          "signature": "012dbf03817a51794a8e19e0724884075e6d1fbec326b766ecfa6658b41f81290da85e23b24e88b1c8d9761185c961daee1adab0649912a6477bcd2e69bd91bd08"
+      }
+    ]
+    expected_serialized_deploy_approvals = "01d9bf2148748a85c89da5aad8ee0b0fc2d105fd39d41a4c796536354f0ae2900c012dbf03817a51794a8e19e0724884075e6d1fbec326b766ecfa6658b41f81290da85e23b24e88b1c8d9761185c961daee1adab0649912a6477bcd2e69bd91bd08"
+    
+    for item in approvals do
+      result = ""  
+      approval = Casper::Entity::DeployApproval.new(item)
+
+      deploy_approval_serializer = DeployApprovalSerializer.new
+      approval_serializer = deploy_approval_serializer.to_bytes(approval)
+      result << approval_serializer
+    end
+      expect(result).to eql(expected_serialized_deploy_approvals)
+  end
+end
+

data/spec/deploy_header_serializer_spec.rb

@@ -0,0 +1,21 @@
+require_relative '../lib/serialization/deploy_header_serializer.rb'
+
+RSpec.describe DeployHeaderSerializer do  
+  it "should serialize DeployHeader" do 
+    header =  {
+        "account": "01d9bf2148748a85c89da5aad8ee0b0fc2d105fd39d41a4c796536354f0ae2900c",
+        "timestamp": "2020-11-17T00:39:24.072Z",
+        "ttl": "1h",
+        "gas_price": 1,
+        "body_hash": "4811966d37fe5674a8af4001884ea0d9042d1c06668da0c963769c3a01ebd08f",
+        "dependencies": ["0101010101010101010101010101010101010101010101010101010101010101"],
+        "chain_name": "casper-example"
+    }
+    
+    expected_serialized_deploy_header = "01d9bf2148748a85c89da5aad8ee0b0fc2d105fd39d41a4c796536354f0ae2900ca856a4d37501000080ee36000000000001000000000000004811966d37fe5674a8af4001884ea0d9042d1c06668da0c963769c3a01ebd08f0100000001010101010101010101010101010101010101010101010101010101010101010e0000006361737065722d6578616d706c65"
+
+    deploy_header = Casper::Entity::DeployHeader.new(header)
+    header_serializer = DeployHeaderSerializer.new
+    expect(header_serializer.to_bytes(deploy_header)).to eql(expected_serialized_deploy_header)
+  end
+end

data/spec/deploy_named_arg_serializer_spec.rb

@@ -0,0 +1,49 @@
+require_relative '../lib/serialization/cl_value_serializer.rb'
+require_relative '../lib/serialization/deploy_named_arg_serializer.rb'
+
+
+describe DeployNamedArgSerializer do
+  let (:serializer) { DeployNamedArgSerializer.new }
+  
+  describe "#to_bytes" do
+    
+    context "when DeployNamedArg has CLu32 value" do
+      let (:arg)  { Casper::Entity::DeployNamedArgument.new("casper-testnet", CLu32.new(17)) }
+      
+      it "should serialize DeployNamedArg with CLu32 value" do
+        expect(serializer.to_bytes(arg)).to eq("0e0000006361737065722d746573746e6574040000001100000004")
+      end
+    end
+    
+    context "when DeployNamedArg has CLString value" do
+      let (:arg)  { Casper::Entity::DeployNamedArgument.new("casper-testnet", CLString.new("Hello, World!")) }
+      
+      it "should serialize DeployNamedArg with CLString value" do
+        expect(serializer.to_bytes(arg)).to eq("0e0000006361737065722d746573746e6574110000000d00000048656c6c6f2c20576f726c64210a")
+      end
+    end
+    
+    context "when DeployNamedArg has CLURef value" do
+      let (:uref)  { CLURef.new("uref-000102030405060708090a0b0c0d0e0f000102030405060708090a0b0c0d0e0f-007") }
+      let (:arg)  { Casper::Entity::DeployNamedArgument.new("casper-testnet", uref)}
+      
+      it "should serialize DeployNamedArg with CLURef value" do
+        expect(serializer.to_bytes(arg)).to eq("0e0000006361737065722d746573746e657421000000000102030405060708090a0b0c0d0e0f000102030405060708090a0b0c0d0e0f070c")
+      end
+    end
+   
+    context "when DeployNamedArg has CLPublicKey value" do
+      let (:pub_key_hex_ed25519)  { "010af5a943bacd2a8e91792eb4e9a25e32d536ab103372f57f89ebcadfc59820d1" }
+      let (:pub_raw_ed25519)      { [10, 245, 169, 67, 186, 205, 42, 142, 
+                                    145, 121, 46, 180, 233, 162, 94, 50, 
+                                    213, 54, 171, 16, 51, 114, 245, 127, 
+                                    137, 235, 202, 223, 197, 152, 32, 209 ] }
+      let (:cl_public_key)       { CLPublicKey.new(pub_raw_ed25519, CLPublicKeyTag[:ED25519]) }
+      let (:arg)       { Casper::Entity::DeployNamedArgument.new("casper-testnet", cl_public_key) }
+      
+      it "should serialize DeployNamedArg with CLPublicKey value" do
+        expect(serializer.to_bytes(arg)).to eq("0e0000006361737065722d746573746e657421000000010af5a943bacd2a8e91792eb4e9a25e32d536ab103372f57f89ebcadfc59820d116")
+      end
+    end
+  end
+end

data/spec/deploy_serializer_spec.rb

@@ -0,0 +1,77 @@
+require_relative '../lib/entity/deploy_named_argument.rb'
+require_relative '../lib/serialization/deploy_named_arg_serializer.rb'
+require_relative '../lib/entity/deploy_executable_item_internal.rb'
+require_relative '../lib/entity/deploy_executable.rb'
+require_relative '../lib/entity/stored_contract_by_hash.rb'
+require_relative '../lib/entity/stored_contract_by_name.rb'
+require_relative '../lib/entity/stored_versioned_contract_by_hash.rb'
+require_relative '../lib/entity/stored_versioned_contract_by_name.rb'
+require_relative '../lib/serialization/deploy_executable_serializer.rb'
+require_relative '../lib/entity/deploy.rb'
+require_relative '../lib/entity/deploy_hash.rb'
+require_relative '../lib/entity/deploy_header.rb'
+require_relative '../lib/entity/deploy_approval.rb'
+require_relative '../lib/entity/deploy_info.rb'
+require_relative '../lib/entity/deploy.rb'
+require_relative '../lib/serialization/deploy_serializer.rb'
+
+describe DeploySerializer do
+  let(:byte_utils) { Utils::ByteUtils }
+  let(:serializer) { DeploySerializer.new }
+  it "should serialize Deploy" do
+    serialized_deploy = "01d9bf2148748a85c89da5aad8ee0b0fc2d105fd39d41a4c796536354f0ae2900ca856a4d37501000080ee36000000000001000000000000004811966d37fe5674a8af4001884ea0d9042d1c06668da0c963769c3a01ebd08f0100000001010101010101010101010101010101010101010101010101010101010101010e0000006361737065722d6578616d706c6501da3c604f71e0e7df83ff1ab4ef15bb04de64ca02e3d2b78de6950e8b5ee187020e0000006361737065722d6578616d706c65130000006578616d706c652d656e7472792d706f696e7401000000080000007175616e7469747904000000e803000001050100000006000000616d6f756e7404000000e8030000010100000001d9bf2148748a85c89da5aad8ee0b0fc2d105fd39d41a4c796536354f0ae2900c012dbf03817a51794a8e19e0724884075e6d1fbec326b766ecfa6658b41f81290da85e23b24e88b1c8d9761185c961daee1adab0649912a6477bcd2e69bd91bd08"
+    json_deploy = {
+      "hash": "01da3c604f71e0e7df83ff1ab4ef15bb04de64ca02e3d2b78de6950e8b5ee187",
+      "header": {
+        "account": "01d9bf2148748a85c89da5aad8ee0b0fc2d105fd39d41a4c796536354f0ae2900c",
+        "timestamp": "2020-11-17T00:39:24.072Z",
+        "ttl": "1h",
+        "gas_price": 1,
+        "body_hash": "4811966d37fe5674a8af4001884ea0d9042d1c06668da0c963769c3a01ebd08f",
+        "dependencies": [
+        "0101010101010101010101010101010101010101010101010101010101010101"
+        ],
+        "chain_name": "casper-example"
+      },
+      "payment": {
+        "StoredContractByName": {
+          "name": "casper-example",
+          "entry_point": "example-entry-point",
+          "args": [
+            [
+              "quantity",
+              {
+                "cl_type": "I32",
+                "bytes": "e8030000",
+                "parsed": 1000
+              }
+            ]
+          ]
+        }
+      },
+      "session": {
+        "Transfer": {
+          "args": [
+            [
+              "amount",
+              {
+                "cl_type": "I32",
+                "bytes": "e8030000",
+                "parsed": 1000
+              }
+            ]
+          ]
+        }
+      },
+      "approvals": [
+        {
+        "signer": "01d9bf2148748a85c89da5aad8ee0b0fc2d105fd39d41a4c796536354f0ae2900c",
+        "signature": "012dbf03817a51794a8e19e0724884075e6d1fbec326b766ecfa6658b41f81290da85e23b24e88b1c8d9761185c961daee1adab0649912a6477bcd2e69bd91bd08"
+        }
+      ]
+    }
+    deploy = Casper::Entity::Deploy.new(json_deploy[:hash], json_deploy[:header], json_deploy[:payment], json_deploy[:session], json_deploy[:approvals])
+    # puts Utils::ByteUtils.hex_to_byte_array(serializer.to_bytes(deploy))
+    expect(Utils::ByteUtils.byte_array_to_hex(serializer.to_bytes(deploy))).to eql(serialized_deploy)
+  end
+end

data/spec/deploy_serializer_test_spec.rb

@@ -0,0 +1,225 @@
+require_relative '../lib/types/cl_string.rb'
+require_relative '../lib/serialization/cl_value_bytes_parsers.rb'
+require_relative '../lib/utils/time_utils.rb'
+require_relative '../lib/utils/byte_utils.rb'
+require_relative '../lib/types/cl_i32.rb'
+require_relative '../lib/serialization/cl_value_serializer.rb'
+
+
+RSpec.describe Utils::TimeUtils do
+  let(:time_utils) { Utils::TimeUtils }
+  let(:byte_utils) { Utils::ByteUtils }
+
+  it "should serialize Deploy" do
+    ms = time_utils.to_epoc_ms("2020-11-17T00:39:24.072Z")
+    timestamp_serialized = byte_utils.to_u64(ms)
+    puts "timestamp_serialized: #{timestamp_serialized}"
+
+    ttl_serialized = byte_utils.to_u64(3600000)
+    # ttl_serialized = byte_utils.to_u64(1603994401469)
+    puts "ttl_serialized: #{ttl_serialized}"
+
+    gas_price_serialized = byte_utils.to_u64(1)
+    puts "gas_price_serialized: #{gas_price_serialized}"
+
+
+    # payment *******************************************************************************************
+    str1 = CLString.new("casper-example")
+    bytes1 = str1.to_bytes(str1.get_value)
+    puts "#{str1.get_value}: #{bytes1}"
+    puts "#{CLValueBytesParsers::CLStringBytesParser.from_bytes("0e0000006361737065722d6578616d706c65")}: 0e0000006361737065722d6578616d706c65"
+
+    str2 = CLString.new("example-entry-point")
+    bytes2 = str2.to_bytes(str2.get_value)
+    puts "#{str2.get_value}: #{bytes2}"
+    puts "#{CLValueBytesParsers::CLStringBytesParser.from_bytes("130000006578616d706c652d656e7472792d706f696e74")}: 130000006578616d706c652d656e7472792d706f696e74"
+
+    # result_string = string.from_bytes(bytes)
+
+    num1 = CLi32.new(1000)
+    num1_bytes = byte_utils.to_i32(1000)
+    puts "#{num1.get_value}:  #{num1_bytes}"
+    # num1_bytes = CLValueBytesParsers::CLI32BytesParser.to_bytes(num1)
+    
+    # serialized_quantity = "080000007175616e74697479"
+    serialized_quantity = CLValueBytesParsers::CLStringBytesParser.to_bytes("quantity")
+    puts "quantity: #{serialized_quantity}"
+    # deserialized_quantity = "quantity"
+    deserialized_quantity = CLValueBytesParsers::CLStringBytesParser.from_bytes(serialized_quantity)
+    puts "deserialized_quantity: #{deserialized_quantity}"
+    puts "?????: #{CLValueBytesParsers::CLStringBytesParser.from_bytes("080000007175616e74697479")}"
+    
+    #serialized_amount = "06000000616d6f756e74"
+    serialized_amount = CLValueBytesParsers::CLStringBytesParser.to_bytes("amount")
+    puts "amount: #{serialized_quantity}"
+
+    # deserialized_amount = "06000000616d6f756e74"
+    deserialized_amount = CLValueBytesParsers::CLStringBytesParser.from_bytes(serialized_amount)
+    puts "deserialized_amount: #{deserialized_amount}"
+
+    # "cl_type": "I32", "bytes": "e8030000", "parsed": 1000
+    serialized_i32 = byte_utils.to_i32(3)
+    # expect(byte_utils.to_u64(3600000)).to eql("80ee360000000000")
+     puts "# => #{CLValueBytesParsers::CLStringBytesParser.from_bytes("06000000616d6f756e74")}"
+    puts "# => #{CLValueBytesParsers::CLStringBytesParser.from_bytes("06000000616d6f756e74")}"
+    # puts "# => #{CLValueBytesParsers::CLStringBytesParser.from_bytes("0101000000")}"
+    puts "# => #{byte_utils.to_i32(1000)}"
+    puts "e8030000"
+
+    puts "********** U512 serialization ***********"  
+    value = 3000000000
+    value = 123456789101112131415
+    # value = 7
+    str = value.to_s(16)
+    arr = str.scan(/[0-9a-f]{4}/).map { |x| x.to_i(16) }
+    packed = arr.pack("n*").unpack("C*").reverse()
+    packed = arr.pack("n*").unpack1("H*")
+    p "packed: " + packed
+
+    # ********************************************************************************************************
+    # It is not done yet!!!
+    ModuleBytes = { 
+      module_bytes: "[72 bytes]", 
+      args: "434705a38470ec2b008bb693426f47f330802f3bd63588ee275e943407649d3bab1898897ab0400d7fa09fe02ab7b7e8ea443d28069ca557e206916515a7e21d15e5be5eb46235f5"
+    }
+    expected_serialized = "0048000000420481b0d5a665c8a7678398103d4333c684461a71e9ee2a13f6e859fb6cd419ed5f8876fc6c3e12dce4385acc777edf42dcf8d8d844bf6a704e5b2446750559911a4a328d649ddd48000000434705a38470ec2b008bb693426f47f330802f3bd63588ee275e943407649d3bab1898897ab0400d7fa09fe02ab7b7e8ea443d28069ca557e206916515a7e21d15e5be5eb46235f5"
+    expected_serialized_prefix = "00"
+    expected_serialized_length1 = "48000000"
+    expected_serialized_module_bytes = "420481b0d5a665c8a7678398103d4333c684461a71e9ee2a13f6e859fb6cd419ed5f8876fc6c3e12dce4385acc777edf42dcf8d8d844bf6a704e5b2446750559911a4a328d649ddd"
+
+
+    expected_serialized_args_length = "48000000"
+    expected_serialized_args = "434705a38470ec2b008bb693426f47f330802f3bd63588ee275e943407649d3bab1898897ab0400d7fa09fe02ab7b7e8ea443d28069ca557e206916515a7e21d15e5be5eb46235f5"
+
+    # ********************************************************************************************************
+    StoredContractByHash =  { 
+      hash: "c4c411864f7b717c27839e56f6f1ebe5da3f35ec0043f437324325d65a22afa4", 
+      entry_point: "pclphXwfYmCmdITj8hnh", 
+      args: "d8b59728274edd2334ea328b3292ed15eaf9134f9a00dce31a87d9050570fb0267a4002c85f3a8384d2502733b2e46f44981df85fed5e4854200bbca313e3bca8d888a84a76a1c5b1b3d236a12401a2999d3cad003c9b9d98c92ab1850"
+    }
+    expected_serialized_prefix = "01"
+    expected_serialized_hash = "c4c411864f7b717c27839e56f6f1ebe5da3f35ec0043f437324325d65a22afa4"
+    expected_serialized_entry_point = "1400000070636c7068587766596d436d6449546a38686e68"
+    expected_serialized_length_of_args = "5d000000"
+    expected_serialized_args = "d8b59728274edd2334ea328b3292ed15eaf9134f9a00dce31a87d9050570fb0267a4002c85f3a8384d2502733b2e46f44981df85fed5e4854200bbca313e3bca8d888a84a76a1c5b1b3d236a12401a2999d3cad003c9b9d98c92ab1850"
+    expected_serialized = "01c4c411864f7b717c27839e56f6f1ebe5da3f35ec0043f437324325d65a22afa41400000070636c7068587766596d436d6449546a38686e685d000000d8b59728274edd2334ea328b3292ed15eaf9134f9a00dce31a87d9050570fb0267a4002c85f3a8384d2502733b2e46f44981df85fed5e4854200bbca313e3bca8d888a84a76a1c5b1b3d236a12401a2999d3cad003c9b9d98c92ab1850"
+    
+    serialized_prefix = byte_utils.to_u8(1)
+    serialized_hash =  StoredContractByHash[:hash]
+    serialized_entry_point = CLValueBytesParsers::CLStringBytesParser.to_bytes(StoredContractByHash[:entry_point])
+    serialized_length_of_args = byte_utils.to_u32(StoredContractByHash[:args].size/2)
+    serialized_args = serialized_length_of_args + StoredContractByHash[:args]
+    answer = serialized_prefix + serialized_hash + serialized_entry_point + serialized_args
+    p answer == expected_serialized
+
+
+    # ********************************************************************************************************
+    StoredContractByName = { 
+      name: "U5A74bSZH8abT8HqVaK9", 
+      entry_point: "gIetSxltnRDvMhWdxTqQ", 
+      args: "07beadc3da884faa17454a" 
+    }
+
+    # p CLValueBytesParsers::CLStringBytesParser.to_bytes(StoredContractByName[:entry_point])
+    expected_serialized_prefix = "02"
+    expected_serialized_name = "14000000553541373462535a483861625438487156614b39"
+    expected_serialized_entry_point = "140000006749657453786c746e5244764d68576478547151"
+    expected_serialized_args = "0b00000007beadc3da884faa17454a"
+    expected_serialized = "0214000000553541373462535a483861625438487156614b39140000006749657453786c746e5244764d685764785471510b00000007beadc3da884faa17454a"
+
+    serialized_prefix = "02"
+    serialized_name = CLValueBytesParsers::CLStringBytesParser.to_bytes(StoredContractByName[:name])
+    serialized_entry_point = CLValueBytesParsers::CLStringBytesParser.to_bytes(StoredContractByName[:entry_point])
+    serialized_length_of_args = byte_utils.to_u32(StoredContractByName[:args].size/2)
+    serialized_args = serialized_length_of_args + StoredContractByName[:args]
+    answer = serialized_prefix + serialized_name + serialized_entry_point + serialized_args
+    p answer == expected_serialized
+
+    # ********************************************************************************************************
+    StoredVersionedContractByHash = { 
+      hash: "b348fdd0d0b3f66468687df93141b5924f6bb957d5893c08b60d5a78d0b9a423", 
+      version: "None", 
+      entry_point: "PsLz5c7JsqT8BK8ll0kF", 
+      args: "3d0d7f193f70740386cb78b383e2e30c4f976cf3fa834bafbda4ed9dbfeb52ce1777817e8ed8868cfac6462b7cd31028aa5a7a60066db35371a2f8" 
+    }
+    expected_serialized = "03b348fdd0d0b3f66468687df93141b5924f6bb957d5893c08b60d5a78d0b9a423001400000050734c7a3563374a73715438424b386c6c306b463b0000003d0d7f193f70740386cb78b383e2e30c4f976cf3fa834bafbda4ed9dbfeb52ce1777817e8ed8868cfac6462b7cd31028aa5a7a60066db35371a2f8"
+
+    expected_serialized_prefix = "03"
+    expected_serialized_hash = "b348fdd0d0b3f66468687df93141b5924f6bb957d5893c08b60d5a78d0b9a423"
+    expected_serialized_version = "00" # => u8
+    expected_serialized_entry_point = "1400000050734c7a3563374a73715438424b386c6c306b46"
+    expected_serialized_args = "3b0000003d0d7f193f70740386cb78b383e2e30c4f976cf3fa834bafbda4ed9dbfeb52ce1777817e8ed8868cfac6462b7cd31028aa5a7a60066db35371a2f8" 
+
+    serialized_prefix = "03"
+    serialized_hash = StoredVersionedContractByHash[:hash]
+    serialized_version = byte_utils.to_u8(0)
+    serialized_entry_point = CLValueBytesParsers::CLStringBytesParser.to_bytes(StoredVersionedContractByHash[:entry_point])
+    serialized_length_of_args = byte_utils.to_u32(StoredVersionedContractByHash[:args].size/2)
+    serialized_args = serialized_length_of_args + StoredVersionedContractByHash[:args]
+   
+    answer = serialized_prefix + serialized_hash + serialized_version + serialized_entry_point + serialized_args
+    p answer == expected_serialized
+
+    # ********************************************************************************************************
+    StoredVersionedContractByName = { 
+      name: "lWJWKdZUEudSakJzw1tn", 
+      version: "Some(1632552656)", 
+      entry_point: "S1cXRT3E1jyFlWBAIVQ8", 
+      args: "9975e6957ea6b07176c7d8471478fb28df9f02a61689ef58234b1a3cffaebf9f303e3ef60ae0d8"
+    }
+    expected_serialized = "04140000006c574a574b645a5545756453616b4a7a7731746e01d0c64e61140000005331635852543345316a79466c57424149565138270000009975e6957ea6b07176c7d8471478fb28df9f02a61689ef58234b1a3cffaebf9f303e3ef60ae0d8"
+    
+    serialized_prefix = "04"
+    serialized_name = CLValueBytesParsers::CLStringBytesParser.to_bytes(StoredVersionedContractByName[:name])
+    serialized_version = "01d0c64e61"
+    serialized_entry_point = CLValueBytesParsers::CLStringBytesParser.to_bytes(StoredVersionedContractByName[:entry_point])
+    serialized_length_of_args = byte_utils.to_u32(StoredVersionedContractByName[:args].size/2)
+    serialized_args = serialized_length_of_args + StoredVersionedContractByName[:args]
+   
+    answer = serialized_prefix + serialized_name  + serialized_version + serialized_entry_point + serialized_args
+    p answer
+    p answer == expected_serialized
+    # ********************************************************************************************************
+
+    # Some(1632552656)
+    puts "01" + byte_utils.to_u32(1632552656)
+    # => 01d0c64e61
+    # None
+    puts "00"
+    puts byte_utils.to_u8(0)
+    # => "00"
+    puts CLValueBytesParsers::CLStringBytesParser.to_bytes("PsLz5c7JsqT8BK8ll0kF")
+
+    puts "byte_utils.to_u8(13): " + byte_utils.to_u8(13)
+    puts "byte_utils.to_i32(9): " + byte_utils.to_i32(9)
+    puts "byte_utils.to_i32(1000): " + byte_utils.to_i32(1000)
+    i32_hex_value = byte_utils.to_i32(1000)
+    # puts i32_hex_value
+    puts "byte_utils.hex_to_integer(i32_hex_value): " + byte_utils.hex_to_integer(i32_hex_value).to_s
+
+    puts "casper-test: " +  CLValueBytesParsers::CLStringBytesParser.to_bytes("casper-test")
+    puts "Hello World!: " +  CLValueBytesParsers::CLStringBytesParser.to_bytes("Hello World!")
+    puts "Hello, Casper!: " +  CLValueBytesParsers::CLStringBytesParser.to_bytes("Hello, Casper!")
+   
+
+  end 
+  describe CLValueSerializer do
+    let (:serializer) { CLValueSerializer.new }
+    
+    it "Test serialize ModuleBytes " do
+      puts "payment: " +  CLValueBytesParsers::CLStringBytesParser.to_bytes("payment")
+    end
+
+    it "Test serialize storedContractByName " do 
+      puts "quantity: " +  CLValueBytesParsers::CLStringBytesParser.to_bytes("quantity")
+      puts "casper-example: " +  CLValueBytesParsers::CLStringBytesParser.to_bytes("casper-example")
+      puts "example-entry-point: " +  CLValueBytesParsers::CLStringBytesParser.to_bytes("example-entry-point")
+      puts "PsLz5c7JsqT8BK8ll0kF: " +  CLValueBytesParsers::CLStringBytesParser.to_bytes("PsLz5c7JsqT8BK8ll0kF")
+      puts "pclphXwfYmCmdITj8hnh: " +  CLValueBytesParsers::CLStringBytesParser.to_bytes("pclphXwfYmCmdITj8hnh")
+      puts "lWJWKdZUEudSakJzw1tn: " +  CLValueBytesParsers::CLStringBytesParser.to_bytes("lWJWKdZUEudSakJzw1tn")
+      puts "S1cXRT3E1jyFlWBAIVQ8: " +  CLValueBytesParsers::CLStringBytesParser.to_bytes("S1cXRT3E1jyFlWBAIVQ8")
+      puts "CLi32.new(1000): " + serializer.to_bytes(CLi32.new(1000))
+    end
+  end
+end
+