netsuite-soap 2025.2.3

data/spec/netsuite/records/custom_field_list_spec.rb

@@ -0,0 +1,276 @@
+require 'spec_helper'
+
+describe NetSuite::Records::CustomFieldList do
+  let(:list) { NetSuite::Records::CustomFieldList.new }
+
+  before(:all) { savon.mock! }
+  after(:all) { savon.unmock! }
+
+  it 'has a custom_fields attribute' do
+    expect(list.custom_fields).to be_kind_of(Array)
+  end
+
+  it 'accepts a collection of CustomField records' do
+    field = NetSuite::Records::CustomField.new({
+      :value=>{:internal_id=>"5", :type_id=>"103"},
+      :script_id=>"custitem_item_category",
+      :"@xsi:type"=>"platformCore:SelectCustomFieldRef"
+    })
+
+    list = described_class.new(custom_field: [field])
+
+    expect(list.custom_fields).to eq([field])
+  end
+
+  it 'properly decodes various custom field types' do
+    savon.
+      expects(:get).
+      with(message: {"platformMsgs:baseRef"=>{"@xsi:type"=>"platformCore:RecordRef", "@internalId"=>123, "@type"=>"creditMemo"}}).
+      returns(File.read('spec/support/fixtures/custom_fields/multi_select.xml'))
+
+    credit_memo_with_custom_fields = NetSuite::Records::CreditMemo.get(123)
+
+    expect(credit_memo_with_custom_fields.custom_field_list.custbody_standard_select.value.internal_id).to eq("2")
+    expect(credit_memo_with_custom_fields.custom_field_list.custbody_standard_select.value.attributes[:name]).to eq("Manual")
+
+    expect(credit_memo_with_custom_fields.custom_field_list.custbody_date_field.value).to be_a(DateTime)
+    expect(credit_memo_with_custom_fields.custom_field_list.custbody_date_field.value.to_s).to eq("2021-07-13T22:00:00-07:00")
+
+    expect(credit_memo_with_custom_fields.custom_field_list.custbody_string_field.value).to eq("a very nice string")
+    expect(credit_memo_with_custom_fields.custom_field_list.custbody_boolean_field.value).to eq(false)
+
+    # even if there's a single value, it should return an array
+    expect(credit_memo_with_custom_fields.custom_field_list.custbody_multi_select_field.value).to be_a(Array)
+    expect(credit_memo_with_custom_fields.custom_field_list.custbody_multi_select_field.value.size).to eq(1)
+    expect(credit_memo_with_custom_fields.custom_field_list.custbody_multi_select_field.value.first.attributes[:name]).to eq("selection value")
+
+    expect(credit_memo_with_custom_fields.custom_field_list.custbody_multi_select_with_multiple.value).to be_a(Array)
+    expect(credit_memo_with_custom_fields.custom_field_list.custbody_multi_select_with_multiple.value.size).to eq(2)
+    expect(credit_memo_with_custom_fields.custom_field_list.custbody_multi_select_with_multiple.value.first.attributes[:name]).to eq("selection value 1")
+    expect(credit_memo_with_custom_fields.custom_field_list.custbody_multi_select_with_multiple.value.last.attributes[:name]).to eq("selection value 2")
+  end
+
+  context 'initializing with custom field attributes without a type' do
+    it 'does not mutate the attributes' do
+      field = {:value=>{:internal_id=>"5", :type_id=>"103"},
+               :script_id=>"custitem_item_category"}
+      described_class.new(custom_field: [field])
+      expect(field).to eq({:value=>{:internal_id=>"5", :type_id=>"103"},
+               :script_id=>"custitem_item_category"})
+    end
+  end
+
+  context 'initializing with custom field attributes and a type' do
+    it 'does not mutate the attributes' do
+      field = {:value=>{:internal_id=>"5", :type_id=>"103"},
+               :script_id=>"custitem_item_category", :"@xsi:type"=>"platformCore:SelectCustomFieldRef"}
+
+      described_class.new(custom_field: [field])
+
+      expect(field).to eq({:value=>{:internal_id=>"5", :type_id=>"103"},
+               :script_id=>"custitem_item_category", :"@xsi:type"=>"platformCore:SelectCustomFieldRef"})
+    end
+  end
+
+  context 'writing convience methods' do
+    it "should create a custom field entry when none exists" do
+      list.custrecord_somefield = 'a value'
+      custom_fields = list.custom_fields
+
+      expect(custom_fields.size).to eq(1)
+      expect(custom_fields.first.value).to eq('a value')
+      expect(custom_fields.first.type).to eq('platformCore:StringCustomFieldRef')
+    end
+
+    # https://github.com/NetSweet/netsuite/issues/325
+    it 'should create a custom field entry when some fields exist without scriptIds' do
+      list.custom_fields << NetSuite::Records::CustomField.new
+      list.custrecord_somefield = 123
+    end
+  end
+
+  context 'custom field convenience methods (script_id based, WSDL >= 2013_2):' do
+    # Since only api_version '2025_2' is supported (>= '2013_2'), script_id is always used.
+
+    context 'convenience methods' do
+      it "should create a custom field entry when none exists" do
+        list.some_custom_field = 'a value'
+
+        expect(list.custom_fields.size).to eq(1)
+        expect(list.custom_fields.first.value).to eq('a value')
+        expect(list.custom_fields.first.type).to eq('platformCore:StringCustomFieldRef')
+      end
+
+      it "should set script_id to method name when creating a custom field" do
+        list.some_custom_field = 'a value'
+
+        expect(list.some_custom_field.script_id).to eq('some_custom_field')
+      end
+
+      it "should update a custom field's value when one exists" do
+        list.existing_custom_field = 'old value'
+        list.existing_custom_field = 'new value'
+
+        expect(list.existing_custom_field.value).to eq('new value')
+      end
+
+      it "should handle date custom field creation" do
+        list.some_custom_field = Date.parse("12/12/2012")
+
+        expect(list.custom_fields.first.value).to eq('2012-12-12T00:00:00+00:00')
+      end
+
+      it "should handle datetime custom field creation" do
+        list.some_custom_field = DateTime.parse("12/12/2012 10:05am")
+
+        expect(list.custom_fields.first.value).to eq('2012-12-12T10:05:00+00:00')
+      end
+
+      it "should convert a list of numbers into a list of custom field refs" do
+        list.some_custom_field = [1,2]
+
+        expect(list.custom_fields.first.type).to eq('platformCore:MultiSelectCustomFieldRef')
+        expect(list.custom_fields.first.value.map(&:to_record)).to eql([
+          NetSuite::Records::CustomRecordRef.new(:internal_id => 1),
+          NetSuite::Records::CustomRecordRef.new(:internal_id => 2)
+        ].map(&:to_record))
+      end
+
+      it "should return custom field record when entry exists" do
+        list.existing_custom_field = 'a value'
+
+        expect(list.existing_custom_field).to be_a(NetSuite::Records::CustomField)
+        expect(list.existing_custom_field.value).to eq('a value')
+      end
+
+      it "should raise an error if custom field entry does not exist" do
+        expect{ list.nonexisting_custom_field }.to raise_error(NoMethodError)
+      end
+    end
+  end
+
+  describe '#to_record' do
+    before do
+      list.custom_fields << NetSuite::Records::CustomField.new(
+        :internal_id => 'custentity_registeredonline',
+        :type        => 'BooleanCustomFieldRef',
+        :value       => false
+      )
+      list.custom_fields << NetSuite::Records::CustomField.new(
+        :internal_id => 'custbody_salesclassification',
+        :type        => 'SelectCustomFieldRef',
+        :value       => NetSuite::Records::CustomRecordRef.new(:internal_id => 13, :name => "The Name")
+      )
+      list.custom_fields << NetSuite::Records::CustomField.new(
+        :script_id   => 'custbody_accountclassification',
+        :type        => 'SelectCustomFieldRef',
+        :value       => NetSuite::Records::CustomRecordRef.new(:internal_id => 11, :name => "The Game")
+      )
+    end
+
+    it 'can represent itself as a SOAP record' do
+      record = {
+        "platformCore:customField" => [
+          {
+            'platformCore:value' => 'false',
+            "@internalId" => "custentity_registeredonline",
+            "@xsi:type" => "BooleanCustomFieldRef",
+          },
+          {
+            '@internalId' => 'custbody_salesclassification',
+            '@xsi:type' => 'SelectCustomFieldRef',
+            "platformCore:value"=>{"platformCore:name"=>"The Name", :@internalId=>13}
+          },
+          {
+            '@scriptId' => 'custbody_accountclassification',
+            '@xsi:type' => 'SelectCustomFieldRef',
+            "platformCore:value"=>{"platformCore:name"=>"The Game", :@internalId=>11}
+          }
+        ]
+      }
+
+      expect(list.to_record).to eql(record)
+      expect(list.to_record.length).to eq(1)
+    end
+
+    context "when custom field list is initialised from a hash" do
+      let(:attributes) do
+        {
+          custom_field: [
+            {
+              script_id: "custentity_registeredonline",
+              type: "platformCore:SelectCustomFieldRef",
+              value: { internal_id: 200, type_id: 1 },
+            },
+            {
+              script_id: "custbody_salesclassification",
+              type: "platformCore:StringCustomFieldRef",
+              value: "foobar"
+            },
+            {
+              script_id: 'custbody_multipleselectfield',
+              type: "platformCore:MultiSelectCustomFieldRef",
+              value: [
+                {
+                  internal_id: 405,
+                  type_id: 157
+                },
+                {
+                  internal_id: 419,
+                  type_id: 157
+                }
+              ]
+            }
+          ]
+        }
+      end
+
+      it "can represent itself as a SOAP record" do
+        list = NetSuite::Records::CustomFieldList.new(attributes)
+
+        record = {
+          "platformCore:customField" => [
+            {
+              "@scriptId" => "custentity_registeredonline",
+              "@xsi:type" => "platformCore:SelectCustomFieldRef",
+              "platformCore:value" => {:@internalId => 200, :@typeId => "1"},
+            },
+            {
+              "@scriptId" => "custbody_salesclassification",
+              "@xsi:type" => "platformCore:StringCustomFieldRef",
+              "platformCore:value" => "foobar",
+            },
+            {
+              '@scriptId' => 'custbody_multipleselectfield',
+              '@xsi:type' => 'platformCore:MultiSelectCustomFieldRef',
+              'platformCore:value' => [
+                {
+                  :@internalId => 405,
+                  :@typeId => "157"
+                },
+                {
+                  :@internalId => 419,
+                  :@typeId => "157"
+                }
+              ]
+            }
+          ]
+        }
+
+        # field accessors are tested elsewhere, but let's run tests here to check various field types
+        expect(list).to respond_to(:custbody_multipleselectfield)
+        expect(list).to respond_to(:custbody_salesclassification)
+        expect(list).to respond_to(:custentity_registeredonline)
+
+        expect(list.to_record).to eql(record)
+        expect(list.to_record.length).to eq(1)
+      end
+    end
+
+    # https://github.com/NetSweet/netsuite/issues/182
+    it 'handles custom fields without an internalId or scriptId' do
+      NetSuite::Records::CustomFieldList.new({custom_field: { '@xsi:type' => 'platformCore:StringCustomFieldRef' }})
+    end
+  end
+
+end

data/spec/netsuite/records/custom_list_spec.rb

@@ -0,0 +1,21 @@
+require 'spec_helper'
+
+describe NetSuite::Records::CustomList do
+  let(:custom_list) { NetSuite::Records::CustomList.new }
+
+  it 'has all the right fields' do
+    expect(custom_list).to have_field(:script_id)
+  end
+
+  it "should handle the #custom_value_list" do
+    custom_list.custom_value_list = { custom_value: [
+      {
+        value: "Value",
+        value_id: 1
+      }
+    ]}
+
+    expect(custom_list.custom_value_list).to be_kind_of(NetSuite::Support::Sublist)
+    expect(custom_list.custom_value_list.custom_value.first).to be_kind_of(NetSuite::Records::CustomListCustomValue)
+  end
+end

data/spec/netsuite/records/custom_record_spec.rb

@@ -0,0 +1,125 @@
+require 'spec_helper'
+
+describe NetSuite::Records::CustomRecord do
+  let(:record) { NetSuite::Records::CustomRecord.new }
+
+  it 'has all the right fields' do
+    [
+      :allow_attachments, :allow_inline_editing, :allow_numbering_override, :allow_quick_search, :created, :custom_record_id,
+      :description, :disclaimer, :enabl_email_merge, :enable_numbering, :include_name, :is_available_offline, :is_inactive,
+      :is_numbering_updateable, :is_ordered, :last_modified, :name, :numbering_current_number, :numbering_init,
+      :numbering_min_digits, :numbering_prefix, :numbering_suffix, :record_name, :script_id, :show_creation_date,
+      :show_creation_date_on_list, :show_id, :show_last_modified, :show_last_modified_on_list, :show_notes, :show_owner,
+      :show_owner_allow_change, :show_owner_on_list, :use_permissions
+    ].each do |field|
+      expect(record).to have_field(field)
+    end
+  end
+
+  it 'has all the right record_refs' do
+    [
+      :custom_form, :owner, :rec_type, :parent
+    ].each do |record_ref|
+      expect(record).to have_record_ref(record_ref)
+    end
+  end
+
+  describe '#custom_field_list' do
+    it 'can be set from attributes' do
+      attributes = {
+        :custom_field => {
+          :amount => 10,
+          :script_id => 'custfield_amount'
+        }
+      }
+      record.custom_field_list = attributes
+      expect(record.custom_field_list).to be_kind_of(NetSuite::Records::CustomFieldList)
+      expect(record.custom_field_list.custom_fields.length).to eql(1)
+      expect(record.custom_field_list.custfield_amount.attributes[:amount]).to eq(10)
+    end
+
+    it 'can be set from a CustomFieldList object' do
+      custom_field_list = NetSuite::Records::CustomFieldList.new
+      record.custom_field_list = custom_field_list
+      expect(record.custom_field_list).to eql(custom_field_list)
+    end
+  end
+
+  describe '.get' do
+    context 'when the response is successful' do
+      let(:response) { NetSuite::Response.new(:success => true, :body => { :allow_quick_search => true }) }
+
+      it 'returns a Customer instance populated with the data from the response object' do
+        expect(NetSuite::Actions::Get).to receive(:call).
+          with([NetSuite::Records::CustomRecord, {:external_id => 1, :type_id => nil, :custom => true}], {}).
+          and_return(response)
+        customer = NetSuite::Records::CustomRecord.get(:external_id => 1)
+        expect(customer).to be_kind_of(NetSuite::Records::CustomRecord)
+        expect(customer.allow_quick_search).to be_truthy
+      end
+    end
+
+    context 'when the response is unsuccessful' do
+      let(:response) { NetSuite::Response.new(:success => false, :body => {}) }
+
+      it 'raises a RecordNotFound exception' do
+        expect(NetSuite::Actions::Get).to receive(:call).
+          with([NetSuite::Records::CustomRecord, {:external_id => 1, :type_id => nil, :custom => true}], {}).
+          and_return(response)
+        expect {
+          NetSuite::Records::CustomRecord.get(:external_id => 1)
+        }.to raise_error(NetSuite::RecordNotFound,
+          /NetSuite::Records::CustomRecord with OPTIONS=(.*) could not be found/)
+      end
+    end
+  end
+
+  describe '#add' do
+    context 'when the response is successful' do
+      let(:response) { NetSuite::Response.new(:success => true, :body => { :internal_id => '1' }) }
+
+      it 'returns true' do
+        expect(NetSuite::Actions::Add).to receive(:call).
+            with([record], {}).
+            and_return(response)
+        expect(record.add).to be_truthy
+      end
+    end
+
+    context 'when the response is unsuccessful' do
+      let(:response) { NetSuite::Response.new(:success => false, :body => {}) }
+
+      it 'returns false' do
+        expect(NetSuite::Actions::Add).to receive(:call).
+            with([record], {}).
+            and_return(response)
+        expect(record.add).to be_falsey
+      end
+    end
+  end
+
+  describe '#delete' do
+    context 'when the response is successful' do
+      let(:response) { NetSuite::Response.new(:success => true, :body => { :internal_id => '1' }) }
+
+      it 'returns true' do
+        expect(NetSuite::Actions::Delete).to receive(:call).
+            with([record, { :custom => true }], {}).
+            and_return(response)
+        expect(record.delete).to be_truthy
+      end
+    end
+
+    context 'when the response is unsuccessful' do
+      let(:response) { NetSuite::Response.new(:success => false, :body => {}) }
+
+      it 'returns false' do
+        expect(NetSuite::Actions::Delete).to receive(:call).
+            with([record, { :custom => true }], {}).
+            and_return(response)
+        expect(record.delete).to be_falsey
+      end
+    end
+  end
+
+end

data/spec/netsuite/records/custom_record_type_spec.rb

@@ -0,0 +1,114 @@
+require 'spec_helper'
+
+describe NetSuite::Records::CustomRecordType do
+  let(:record_type) { NetSuite::Records::CustomRecordType.new }
+
+  it 'has all the right fields' do
+    [
+      :allow_attachments, :allow_inline_editing, :allow_numbering_override, :allow_quick_search, :description, :disclaimer,
+      :enable_mail_merge, :enable_numbering, :include_name, :is_available_offline, :is_inactive, :is_numbering_updateable,
+      :is_ordered, :numbering_current_number, :numbering_init, :numbering_min_digits, :numbering_prefix, :numbering_suffix,
+      :record_name, :script_id, :show_creation_date, :show_creation_date_on_list, :show_id, :show_last_modified,
+      :show_last_modified_on_list, :show_notes, :show_owner, :show_owner_allow_change, :show_owner_on_list, :use_permissions
+    ].each do |field|
+      expect(record_type).to have_field(field)
+    end
+  end
+
+  it 'has all the right record refs' do
+    [
+      :owner
+    ].each do |record_ref|
+      expect(record_type).to have_record_ref(record_ref)
+    end
+  end
+
+
+
+
+
+
+
+
+
+
+
+
+  describe '.get' do
+    context 'when the response is successful' do
+      let(:response) { NetSuite::Response.new(:success => true, :body => { :allow_attachments => true }) }
+
+      it 'returns a Customer instance populated with the data from the response object' do
+        expect(NetSuite::Actions::Get).to receive(:call).
+          with([NetSuite::Records::CustomRecordType, :external_id => 1], {}).
+          and_return(response)
+        record_type = NetSuite::Records::CustomRecordType.get(:external_id => 1)
+        expect(record_type).to be_kind_of(NetSuite::Records::CustomRecordType)
+        expect(record_type.allow_attachments).to be_truthy
+      end
+    end
+
+    context 'when the response is unsuccessful' do
+      let(:response) { NetSuite::Response.new(:success => false, :body => {}) }
+
+      it 'raises a RecordNotFound exception' do
+        expect(NetSuite::Actions::Get).to receive(:call).
+          with([NetSuite::Records::CustomRecordType, :external_id => 1], {}).
+          and_return(response)
+        expect {
+          NetSuite::Records::CustomRecordType.get(:external_id => 1)
+        }.to raise_error(NetSuite::RecordNotFound,
+          /NetSuite::Records::CustomRecordType with OPTIONS=(.*) could not be found/)
+      end
+    end
+  end
+
+    describe '#add' do
+    context 'when the response is successful' do
+      let(:response) { NetSuite::Response.new(:success => true, :body => { :internal_id => '1' }) }
+
+      it 'returns true' do
+        expect(NetSuite::Actions::Add).to receive(:call).
+            with([record_type], {}).
+            and_return(response)
+        expect(record_type.add).to be_truthy
+      end
+    end
+
+    context 'when the response is unsuccessful' do
+      let(:response) { NetSuite::Response.new(:success => false, :body => {}) }
+
+      it 'returns false' do
+        expect(NetSuite::Actions::Add).to receive(:call).
+            with([record_type], {}).
+            and_return(response)
+        expect(record_type.add).to be_falsey
+      end
+    end
+  end
+
+  describe '#delete' do
+    context 'when the response is successful' do
+      let(:response) { NetSuite::Response.new(:success => true, :body => { :internal_id => '1' }) }
+
+      it 'returns true' do
+        expect(NetSuite::Actions::Delete).to receive(:call).
+            with([record_type], {}).
+            and_return(response)
+        expect(record_type.delete).to be_truthy
+      end
+    end
+
+    context 'when the response is unsuccessful' do
+      let(:response) { NetSuite::Response.new(:success => false, :body => {}) }
+
+      it 'returns false' do
+        expect(NetSuite::Actions::Delete).to receive(:call).
+            with([record_type], {}).
+            and_return(response)
+        expect(record_type.delete).to be_falsey
+      end
+    end
+  end
+
+end

data/spec/netsuite/records/customer_addressbook_list_spec.rb

@@ -0,0 +1,41 @@
+require 'spec_helper'
+
+describe NetSuite::Records::CustomerAddressbookList do
+  let(:list) { NetSuite::Records::CustomerAddressbookList.new }
+
+  it 'has an addressbooks attribute' do
+    expect(list.addressbook).to be_kind_of(Array)
+  end
+
+  describe '#to_record' do
+    it 'can represent itself as a SOAP record' do
+      list.replace_all = true
+
+      record = {
+        'listRel:addressbook' => [],
+        'listRel:replaceAll' => true
+      }
+      expect(list.to_record).to eql(record)
+    end
+  end
+
+  describe "#replace_all" do
+    it "can be changed via accessor" do
+      list.replace_all = false
+
+      expect(list.replace_all).to eql(false)
+    end
+
+    it "coerces to a boolean" do
+      list.replace_all = "goober"
+
+      record = {
+        'listRel:addressbook' => [],
+        'listRel:replaceAll' => true
+      }
+
+      expect(list.to_record).to eql(record)
+    end
+  end
+
+end

data/spec/netsuite/records/customer_addressbook_spec.rb

@@ -0,0 +1,105 @@
+require 'spec_helper'
+
+describe NetSuite::Records::CustomerAddressbook do
+  # address schema changed in 2014.2. We support < 2014.2 schema, but we don't test support
+
+  let(:attributes) do
+    {
+      :addressbook => {
+        :addressbook_address => NetSuite::Records::Address.new({
+                                  :addr1        => '123 Happy Lane',
+                                  :addr_text    => "123 Happy Lane\nLos Angeles CA 90007",
+                                  :city         => 'Los Angeles',
+                                  :country      => '_unitedStates',
+                                  :state        => 'CA',
+                                  :override     => false,
+                                  :zip          => '90007'
+                                    }),
+        :default_billing  => true,
+        :default_shipping => true,
+        :internal_id      => '567',
+        :is_residential   => false,
+        :label            => '123 Happy Lane'
+      }
+    }
+  end
+
+  let(:list) { NetSuite::Records::CustomerAddressbook.new(attributes) }
+
+  it 'has all the right fields' do
+    [
+      :default_billing, :default_shipping, :internal_id,
+               :is_residential, :label
+    ].each do |field|
+      expect(list).to have_field(field)
+    end
+
+    expect(list.addressbook_address).to_not be_nil
+  end
+
+  describe '#initialize' do
+    context 'when taking in a hash of attributes' do
+      it 'sets the attributes for the object given the attributes hash' do
+        expect(list.addressbook_address.addr1).to eql('123 Happy Lane')
+        expect(list.addressbook_address.addr_text).to eql("123 Happy Lane\nLos Angeles CA 90007")
+        expect(list.addressbook_address.city).to eql('Los Angeles')
+        expect(list.addressbook_address.country.to_record).to eql('_unitedStates')
+        expect(list.addressbook_address.override).to be_falsey
+        expect(list.addressbook_address.state).to eql('CA')
+        expect(list.addressbook_address.zip).to eql('90007')
+        expect(list.default_billing).to be_truthy
+        expect(list.default_shipping).to be_truthy
+        expect(list.is_residential).to be_falsey
+        expect(list.label).to eql('123 Happy Lane')
+        expect(list.internal_id).to eql('567')
+      end
+    end
+
+    context 'when taking in a CustomerAddressbookList instance' do
+      it 'sets the attributes for the object given the record attributes' do
+        old_list = NetSuite::Records::CustomerAddressbook.new(attributes)
+        list     = NetSuite::Records::CustomerAddressbook.new(old_list)
+        expect(list.addressbook_address.addr1).to eql('123 Happy Lane')
+        expect(list.addressbook_address.addr_text).to eql("123 Happy Lane\nLos Angeles CA 90007")
+        expect(list.addressbook_address.city).to eql('Los Angeles')
+        expect(list.addressbook_address.country.to_record).to eql('_unitedStates')
+        expect(list.addressbook_address.override).to be_falsey
+        expect(list.addressbook_address.state).to eql('CA')
+        expect(list.addressbook_address.zip).to eql('90007')
+        expect(list.default_billing).to be_truthy
+        expect(list.default_shipping).to be_truthy
+        expect(list.is_residential).to be_falsey
+        expect(list.label).to eql('123 Happy Lane')
+        expect(list.internal_id).to eql('567')
+      end
+    end
+  end
+
+  describe '#to_record' do
+    it 'can represent itself as a SOAP record' do
+      record = {
+          'listRel:addressbookAddress' => {
+            'platformCommon:addr1'     => '123 Happy Lane',
+            'platformCommon:city'      => 'Los Angeles',
+            'platformCommon:country'   => '_unitedStates',
+            'platformCommon:override'  => false,
+            'platformCommon:state'     => 'CA',
+            'platformCommon:zip'       => '90007'
+          },
+        'listRel:defaultBilling'  => true,
+        'listRel:defaultShipping' => true,
+        'listRel:isResidential'   => false,
+        'listRel:label'           => '123 Happy Lane',
+        'listRel:internalId'      => '567'
+      }
+      expect(list.to_record).to eql(record)
+    end
+  end
+
+  describe '#record_type' do
+    it 'returns a string of the record SOAP type' do
+      expect(list.record_type).to eql('listRel:CustomerAddressbook')
+    end
+  end
+
+end