qualtrics 0.5.1

data/spec/qualtrics/panel_import_spec.rb

@@ -0,0 +1,43 @@
+require 'spec_helper'
+
+describe Qualtrics::PanelImport, :vcr => true  do
+  it 'has a panel' do
+    panel = Qualtrics::Panel.new
+
+    panel_import = Qualtrics::PanelImport.new({
+      panel: panel
+    })
+    expect(panel_import.panel).to eql(panel)
+  end
+
+  it 'has a list of recipients' do
+    recipients = [Qualtrics::Recipient.new, Qualtrics::Recipient.new]
+
+    panel_import = Qualtrics::PanelImport.new({
+      recipients: recipients
+    })
+    expect(panel_import.recipients).to eql(recipients)
+  end
+
+  it 'transmits to qualtrics' do
+    panel = Qualtrics::Panel.new({
+      name: 'Newest Panel',
+      category: 'Great Category'
+    })
+
+    recipients = [
+      Qualtrics::Recipient.new(
+        email: 'example@example.com',
+        first_name: 'First name',
+        last_name: 'Last name'
+      )
+    ]
+
+    panel_import = Qualtrics::PanelImport.new({
+      recipients: recipients,
+      panel: panel
+    })
+
+    expect(panel_import.save).to be true
+  end
+end

data/spec/qualtrics/panel_spec.rb

@@ -0,0 +1,80 @@
+require 'spec_helper'
+
+describe Qualtrics::Panel, :vcr => true  do
+  it 'has a name' do
+    name = 'New Panel'
+    panel = Qualtrics::Panel.new({
+      name: name
+    })
+    expect(panel.name).to eq(name)
+  end
+
+  it 'has a category' do
+    category = 'Amazing Category'
+    panel = Qualtrics::Panel.new({
+      category: category
+    })
+    expect(panel.category).to eq(category)
+  end
+
+  it 'has a library id' do
+    library_id = '1'
+    panel = Qualtrics::Panel.new({
+      library_id: library_id
+    })
+    expect(panel.library_id).to eq(library_id)
+  end
+
+  it 'defaults to the configured library id when none is specified' do
+    panel = Qualtrics::Panel.new
+    expect(panel.library_id).to eq(Qualtrics.configuration.default_library_id)
+  end
+
+  let(:panel) do
+    Qualtrics::Panel.new({
+      name: 'Newest Panel',
+      category: 'Great Category'
+    })
+  end
+
+  context 'creating to qualtrics' do
+    before(:each) do
+      Qualtrics.begin_transaction!
+    end
+
+    after(:each) do
+      Qualtrics.rollback_transaction!
+    end
+
+    it 'persists to qualtrics' do
+      expect(panel.save).to be true
+    end
+
+    it 'populates the panel_id when successful' do
+      panel.save
+      expect(panel.id).to_not be_nil
+    end
+
+    it 'populates the success attribute' do
+      panel.save
+      expect(panel).to be_success
+    end
+  end
+
+  it 'raises an error when you attempt to save an already presisted panel' do
+    panel.name = 'An Even Newer Panel'
+    expect(panel.save).to be true
+    panel.name = 'The new newest panel.'
+    expect(lambda{ panel.save }).to raise_error Qualtrics::UpdateNotAllowed
+  end
+
+  it 'destroys a panel that returns true when successful' do
+    panel.save
+    expect(panel.destroy).to be true
+  end
+
+  it 'retrieves an array of all panels in a library' do
+    panel.save
+    expect(Qualtrics::Panel.all.map{|p| p.id}).to include(panel.id)
+  end
+end

data/spec/qualtrics/recipient_import_row_spec.rb

@@ -0,0 +1,62 @@
+require 'spec_helper'
+
+describe Qualtrics::RecipientImportRow do
+  let(:email) { 'fake@fake.com' }
+  let(:first_name) { 'Johnny' }
+  let(:last_name) { 'Fakesalot' }
+  let(:external_data) { '1234' }
+  let(:embedded_data) { '4567' }
+  let(:unsubscribed) { 0 }
+  let(:language) { 'EN' }
+  let(:recipient) do
+    Qualtrics::Recipient.new({
+      email: email,
+      first_name: first_name,
+      last_name: last_name,
+      external_data: external_data,
+      embedded_data: embedded_data,
+      unsubscribed: unsubscribed,
+      language: language
+    })
+  end
+  let(:recipient_row) do
+    Qualtrics::RecipientImportRow.new(recipient)
+  end
+
+  it 'has a recipient' do
+    expect(recipient_row.recipient).to eql(recipient)
+  end
+
+  def index(field)
+    Qualtrics::RecipientImportRow.fields.index(field)
+  end
+
+  it 'returns email in the correct spot' do
+    expect(recipient_row.to_a[index('email')]).to eql(email)
+  end
+
+  it 'returns the first_name in the correct spot' do
+    expect(recipient_row.to_a[index('first_name')]).to eql(first_name)
+  end
+
+  it 'returns the last_name in the correct spot' do
+    expect(recipient_row.to_a[index('last_name')]).to eql(last_name)
+  end
+
+  it 'returns the external_data in the correct spot' do
+    expect(recipient_row.to_a[index('external_data')]).to eql(external_data)
+  end
+
+  it 'returns the embedded_data in the correct spot' do
+    expect(recipient_row.to_a[index('embedded_data')]).to eql(embedded_data)
+  end
+  it 'returns unsubscribed in the correct spot' do
+    expect(recipient_row.to_a[index('unsubscribed')]).to eql(unsubscribed)
+  end
+
+  it 'returns language in the correct spot' do
+    expect(recipient_row.to_a[index('language')]).to eql(language)
+  end
+
+
+end

data/spec/qualtrics/recipient_spec.rb

@@ -0,0 +1,185 @@
+require 'spec_helper'
+
+describe Qualtrics::Recipient, :vcr => true  do
+	it 'has an email' do
+    email = 'example@example.com'
+
+    recipient = Qualtrics::Recipient.new({
+      email: email
+    })
+    expect(recipient.email).to eql(email)
+  end
+
+	it 'has a first name' do
+    first_name = 'Peter'
+
+    recipient = Qualtrics::Recipient.new({
+      first_name: first_name
+    })
+    expect(recipient.first_name).to eql(first_name)
+  end
+
+	it 'has a last name' do
+    last_name = 'Johnson'
+
+    recipient = Qualtrics::Recipient.new({
+      last_name: last_name
+    })
+    expect(recipient.last_name).to eql(last_name)
+  end
+
+	it 'has a language' do
+    language = 'en'
+
+    recipient = Qualtrics::Recipient.new({
+      language: language
+    })
+    expect(recipient.language).to eql(language)
+  end
+
+  it 'has an external data reference' do
+    external_data = '11'
+
+    recipient = Qualtrics::Recipient.new({
+      external_data: external_data
+    })
+    expect(recipient.external_data).to eql(external_data)
+  end
+
+  it 'has embedded data' do
+    embedded_data = 'recipient_id:1290-38'
+
+    recipient = Qualtrics::Recipient.new({
+      embedded_data: embedded_data
+    })
+    expect(recipient.embedded_data).to eql(embedded_data)
+  end
+
+  it 'has an unsubscribed attribute' do
+    unsubscribed = 1
+
+    recipient = Qualtrics::Recipient.new({
+      unsubscribed: unsubscribed
+    })
+    expect(recipient.unsubscribed).to eql(unsubscribed)
+  end
+
+  it 'has a panel id' do
+    panel_id = 1
+
+    recipient = Qualtrics::Recipient.new({
+      panel_id: panel_id
+    })
+    expect(recipient.panel_id).to eql(panel_id)
+  end
+
+  it 'has a recipient id' do
+    id = 1
+
+    recipient = Qualtrics::Recipient.new({
+      id: id
+    })
+    expect(recipient.id).to eql(id)
+  end
+
+  it 'defaults to the configured library id when none is specified' do
+    recipient = Qualtrics::Recipient.new
+    expect(recipient.library_id).to eq(Qualtrics.configuration.default_library_id)
+  end
+
+  let(:panel) do
+    Qualtrics::Panel.new({
+      name: 'Newest Panel',
+      category: 'Great Category'
+    })
+  end
+
+  let(:recipient) do
+    Qualtrics::Recipient.new({
+      panel_id: panel.id
+    })
+  end
+
+  context 'creating to qualtrics' do
+    before(:each) do
+      Qualtrics.begin_transaction!
+      panel.save
+    end
+
+    after(:each) do
+      Qualtrics.rollback_transaction!
+    end
+
+    it 'persists to qualtrics' do
+      expect(recipient.save).to be true
+    end
+
+    it 'populates the recipient id when successful' do
+      recipient.save
+      expect(recipient.id).to_not be_nil
+    end
+
+    it 'populates the success attribute' do
+      recipient.save
+      expect(recipient).to be_success
+    end
+
+    it 'raises an error when a recipient is created without specifying a panel id' do
+      recipient = Qualtrics::Recipient.new
+      expect(recipient.save).to be false
+      expect(recipient.errors[:panel_id]).to_not be_blank
+    end
+  end
+
+  context 'recipient made in qualtrics' do
+    before(:each) do
+      Qualtrics.begin_transaction!
+      panel.save
+    end
+
+    after(:each) do
+      Qualtrics.rollback_transaction!
+    end
+
+    it 'gets its information in qualtrics' do
+      first_name = 'Kevin'
+
+      recipient = Qualtrics::Recipient.new({
+        panel_id: panel.id,
+        first_name: first_name
+      })
+      recipient.save
+
+      expect(recipient.info_hash['FirstName']).to include(recipient.first_name)
+    end
+
+    it 'can update itself in qualtrics' do
+      first_name = 'Kevin'
+      new_name = 'Ben'
+
+      recipient = Qualtrics::Recipient.new({
+        panel_id: panel.id,
+        first_name: first_name
+      })
+      recipient.save
+
+      attributes = {
+        first_name: new_name
+      }
+      recipient.update(attributes)
+
+      expect(recipient.update(attributes)).to be true
+      expect(recipient.first_name).to eql(new_name)
+      expect(recipient.info_hash['FirstName']).to include(new_name)
+    end
+
+    it 'can delete itself in qualtrics' do
+      recipient.save
+
+      expect(recipient.info_hash['PanelID']).to include(panel.id)
+      recipient.delete
+      expect(recipient.info_hash).to be false
+    end
+  end
+
+end

data/spec/qualtrics/response_spec.rb

@@ -0,0 +1,41 @@
+require 'spec_helper'
+
+describe Qualtrics::Response, :vcr do
+	# it 'has a body' do
+
+	# end
+  let(:test_endpoint) do
+    Faraday.new do |builder|
+      builder.adapter :test, Faraday::Adapter::Test::Stubs.new do |m|
+        m.get('/success') { |env| [ 200, {}, '{"Meta":{"Status":"Success","Debug":""},"Result":{"PanelID":"ML_8BKIZdmCic6tkLb"}}' ]}
+        m.get('/server_error') { |env| [500, {}, '']}
+        m.get('/failure') { |env| [ 200, {}, '{"Meta":{"Status":"Fubar","Debug":""}}' ]}
+      end
+    end
+  end
+
+  it 'is successful when the meta status is success' do
+    raw_response = test_endpoint.get('/success')
+    response = Qualtrics::Response.new(raw_response)
+    expect(response).to be_success
+  end
+
+  it 'is not successful when the meta status is not success' do
+    raw_response = test_endpoint.get('/failure')
+    response = Qualtrics::Response.new(raw_response)
+    expect(response).to_not be_success
+  end
+
+  it 'has a result hash' do
+    raw_response = test_endpoint.get('/success')
+    response = Qualtrics::Response.new(raw_response)
+    expect(response.result).to be_kind_of(Hash)
+  end
+
+  it 'raises an exception when a 5xx error is received' do
+    raw_response = test_endpoint.get('/server_error')
+    expect(lambda{ Qualtrics::Response.new(raw_response)}).to raise_error(Qualtrics::ServerErrorEncountered)
+  end
+
+
+end

data/spec/qualtrics/survey_import_spec.rb

@@ -0,0 +1,44 @@
+require 'spec_helper'
+
+describe Qualtrics::SurveyImport, :vcr => true  do
+  it 'has a survey name' do
+    survey_name = 'great name'
+    survey_import = Qualtrics::SurveyImport.new({
+      survey_name: survey_name
+    })
+    expect(survey_import.survey_name).to eql(survey_name)
+  end
+
+  it 'has a survey' do
+    survey_name = 'great name'
+    survey_import = Qualtrics::SurveyImport.new({
+      survey_name: survey_name
+    })
+    expect(survey_import.survey_name).to eql(survey_import.survey.survey_name)
+  end
+
+  it 'has survey file location' do
+    survey_data_location = 'some location'
+
+    survey_import = Qualtrics::SurveyImport.new({
+      survey_data_location: survey_data_location
+    })
+    expect(survey_import.survey_data_location).to eql(survey_data_location)
+  end
+
+  it 'transmits to qualtrics' do
+    survey_data_location = 'spec/fixtures/sample_survey.xml'
+
+    survey = Qualtrics::Survey.new({
+      survey_name: 'Newest Survey'
+    })
+
+    survey_import = Qualtrics::SurveyImport.new({
+      survey_data_location: survey_data_location,
+      survey: survey
+    })
+
+    expect(survey_import.save).to be true
+    survey_import.survey.destroy
+  end
+end