affectiva-surveyor 1.5.0.pre.disco.2

data/features/internationalization.feature

@@ -0,0 +1,121 @@
+# encoding: UTF-8
+Feature: Internationalization
+  As survey taker
+  I want to see surveys in my own language
+  So that I understand what they're asking
+
+  Scenario:
+  Given I parse
+    """
+    survey "One language is never enough" do
+      translations :en => :default
+      translations :es => {"title"=>"Un idioma nunca es suficiente", "survey_sections"=>{"one"=>{"title"=>"Uno"}}, "question_groups"=>{"hello"=>{"text"=>"¡Hola!"}}, "questions"=>{"name"=>{"text"=>"¿Cómo se llama Usted?", "answers"=>{"name"=>{"help_text"=>"Mi nombre es..."}}}}}
+      translations :he => {"title"=>"ידיעת שפה אחת אינה מספיקה", "survey_sections"=>{"one"=>{"title"=>"אחת"}}, "question_groups"=>{"hello"=>{"text"=>"שלום"}}, "questions"=>{"name"=>{"text"=>"מה שמך?", "answers"=>{"name"=>{"help_text"=>"שמי..."}}}}}
+      translations :ko => {"title"=>"한가지 언어로는 충분치 않습니다.", "survey_sections"=>{"one"=>{"title"=>"하나"}}, "question_groups"=>{"hello"=>{"text"=>"안녕하십니까"}}, "questions"=>{"name"=>{"text"=>"성함이 어떻게 되십니까?", "answers"=>{"name"=>{"help_text"=>"제 이름은 ... 입니다"}}}}}
+      section_one "One" do
+        g_hello "Hello" do
+          q_name "What is your name?"
+          a_name :string, :help_text => "My name is..."
+        end
+      end
+    end
+    """
+  Then there should be 4 translations with
+    | locale |
+    | en     |
+    | es     |
+    | he     |
+    | ko     |
+  When I start the survey
+  Then I should see "One language is never enough"
+    And a dropdown should exist with the options "en, es, he, ko"
+    And I should see "One"
+    And I should see "Hello"
+    And I should see "What is your name?"
+    And I should see "My name is..."
+  When I start the survey in "en"
+  Then I should see "One language is never enough"
+    And a dropdown should exist with the options "en, es, he, ko"
+    And I should see "One"
+    And I should see "Hello"
+    And I should see "What is your name?"
+    And I should see "My name is..."
+  When I start the survey in "es"
+  Then I should see "Un idioma nunca es suficiente"
+    And a dropdown should exist with the options "en, es, he, ko"
+    And I should see "Uno"
+    And I should see "¡Hola!"
+    And I should see "¿Cómo se llama Usted?"
+    And I should see "Mi nombre es..."
+  When I start the survey in "he"
+  Then I should see "ידיעת שפה אחת אינה מספיקה"
+    And a dropdown should exist with the options "en, es, he, ko"
+    And I should see "אחת"
+    And I should see "שלום"
+    And I should see "מה שמך?"
+    And I should see "שמי..."
+  When I start the survey in "ko"
+  Then I should see "한가지 언어로는 충분치 않습니다."
+    And a dropdown should exist with the options "en, es, he, ko"
+    And I should see "하나"
+    And I should see "안녕하십니까"
+    And I should see "성함이 어떻게 되십니까?"
+    And I should see "제 이름은 ... 입니다"
+  When I start the survey
+  Then I should see "One language is never enough"
+    And a dropdown should exist with the options "en, es, he, ko"
+    And I should see "One"
+    And I should see "Hello"
+    And I should see "What is your name?"
+    And I should see "My name is..."
+
+
+  Scenario:
+  Given I parse
+    """
+    survey "Favorites" do
+      section "Foods" do
+        question_1 "What is the best meat?", :pick => :one, :correct => "oink"
+        a_oink "bacon"
+        a_tweet "chicken"
+        a_moo "beef"
+      end
+    end
+    """
+   When I start the survey
+   Then I should not see "Language"
+
+  @javascript
+  Scenario:
+  Given I parse
+    """
+    survey "One language is never enough" do
+      translations :en => :default
+      translations :es => {"title"=>"Un idioma nunca es suficiente", "survey_sections"=>{"one"=>{"title"=>"Uno"}, "two"=>{"title"=>"Dos"}}, "question_groups"=>{"hello"=>{"text"=>"¡Hola!"}}, "questions"=>{"name"=>{"text"=>"¿Cómo se llama Usted?", "answers"=>{"name"=>{"help_text"=>"Mi nombre es..."}}}, "color"=>{"text"=>"¿Cuál es tu color favorito?"}}}
+      translations :he => {"title"=>"ידיעת שפה אחת אינה מספיקה", "survey_sections"=>{"one"=>{"title"=>"אחת"}, "two"=>{"title"=>"שנים"}}, "question_groups"=>{"hello"=>{"text"=>"שלום"}}, "questions"=>{"name"=>{"text"=>"מה שמך?", "answers"=>{"name"=>{"help_text"=>"שמי..."}}}, "color"=>{"text"=>"מהו הצבע האהוב עליך?"}}}
+
+      section_one "One" do
+        g_hello "Hello" do
+          q_name "What is your name?"
+          a_name :string, :help_text => "My name is..."
+        end
+      end
+
+      section_two "Two" do
+        q_color "What is your favorite color?"
+        a_name :string
+      end
+    end
+    """
+  When I start the survey in "en"
+  Then I should see "One language is never enough"
+    And I should see "What is your name?"
+    And I should see "Language"
+    And a dropdown should exist with the options "en, es, he"
+  When I change the locale to "es"
+  Then I should see "Un idioma nunca es suficiente"
+    And I should see "¿Cómo se llama Usted?"
+  When I press "Dos"
+  Then I should see "¿Cuál es tu color favorito?"
+  When I change the locale to "he"
+  Then I should see "מהו הצבע האהוב עליך?"

data/features/no_duplicates.feature

@@ -0,0 +1,110 @@
+@javascript @slow_updates @simultaneous_ajax
+Feature: Duplicate response prevention
+  As a survey administrator
+  I want to get exactly the number of responses entered
+  So that my results are analytically valid
+
+Scenario: With a simple pick-one question
+  Given the question
+    """
+    q_1 "Was this saved?", :pick => :one
+    a_y "Yes"
+    a_n "No"
+    """
+  When I start the survey
+   And I choose "Yes"
+   And I choose "No"
+   And I wait for things to settle out
+  Then there should be a response for answer "n"
+   And there should not be a response for answer "y"
+
+Scenario: With a simple pick-any question
+  Given the question
+    """
+    q_1 "What is the state of the cat?", :pick => :any
+    a_d "Dead"
+    a_a "Alive"
+    a_s "Sleeping"
+    """
+  When I start the survey
+   And I check "Alive"
+   And I check "Dead"
+   And I uncheck "Dead"
+   And I check "Sleeping"
+   And I wait for things to settle out
+  Then there should be a response for answer "a"
+   And there should be a response for answer "s"
+   And there should not be a response for answer "d"
+
+Scenario: With a free text question
+  Given the question
+    """
+    q_1 "What is your favorite movie?"
+    answer "Title", :string
+    """
+  When I start the survey
+   And I fill in "Title" with "The Shawshank Redemption"
+   And I click elsewhere
+   And I fill in "Title" with "Rear Window"
+   And I click elsewhere
+   And I wait for things to settle out
+   And there should be a string response with value "Rear Window"
+  Then there should not be a string response with value "The Shawshank Redemption"
+
+Scenario: With a pick-one plus free text question
+  Given the question
+    """
+    q_1 "Where is Panama City?", :pick => :one
+    a_florida "Florida"
+    a_panama "Panama"
+    a_other :other, :string
+    """
+  When I start the survey
+   And I choose "Florida"
+   And I choose "Other"
+   And I fill in the string for "other" with "Chicago"
+   And I click elsewhere
+   And I wait for things to settle out
+  Then there should be a string response for answer "other" with value "Chicago"
+   And there should not be a response for answer "florida"
+
+Scenario: With a grid question
+  Given the question
+    """
+    grid "Tell us how often do you cover these each day" do
+      a_1 "1"
+      a_2 "2"
+      a_3 "3"
+      q_h "Head", :pick => :one
+      q_k "Knees", :pick => :one
+      q_t "Toes", :pick => :one
+    end
+    """
+  When I start the survey
+   And I choose row 1, column 3 of the grid
+   And I choose row 1, column 2 of the grid
+   And I choose row 2, column 1 of the grid
+   And I wait for things to settle out
+  Then there should be a response for answer "2" on question "h"
+   And there should not be a response for answer "3" on question "h"
+   And there should be a response for answer "1" on question "k"
+
+Scenario: With a repeater
+  Given the question
+    """
+    repeater "List your former addresses" do
+      q "Address"
+      a_address_line "Line", :string
+    end
+    """
+  When I start the survey
+   And I fill in the 1st string for "address_line" with "10 Downing St."
+   And I press "+ add row"
+   And I fill in the 2nd string for "address_line" with "1600 Penn Ave."
+   And I click elsewhere
+   And I fill in the 2nd string for "address_line" with "1600 Pennsylvania Ave."
+   And I click elsewhere
+   And I wait for things to settle out longer
+  Then there should be a string response for answer "address_line" with value "10 Downing St."
+   And there should not be a string response for answer "address_line" with value "1600 Penn Ave."
+   And there should be a string response for answer "address_line" with value "1600 Pennsylvania Ave."

data/features/show_survey.feature

@@ -0,0 +1,71 @@
+Feature: showing a survey
+  As a survey administrator
+  I want to see a survey that a participant has taken
+  So that I can understand the data
+
+  Scenario: Take a survey, then look at it
+    Given I parse
+    """
+      survey "Favorites" do
+        section "Colors" do
+          label "You with the sad eyes don't be discouraged"
+
+          question_1 "What is your favorite color?", :pick => :one
+          answer "red"
+          answer "blue"
+          answer "green"
+          answer :other
+
+          q_2b "Choose the colors you don't like", :pick => :any
+          a_1 "orange"
+          a_2 "purple"
+          a_3 "brown"
+          a :omit
+        end
+      end
+    """
+    When I start the "Favorites" survey
+    Then I should see "You with the sad eyes don't be discouraged"
+    And I choose "red"
+    And I choose "blue"
+    And I check "orange"
+    And I check "brown"
+    And I press "Click here to finish"
+    Then there should be 1 response set with 3 responses with:
+      | answer |
+      | blue   |
+      | orange |
+      | brown  |
+    When I go to the last response set show page
+    Then I should see "You with the sad eyes don't be discouraged"
+    Then the "blue" radiobutton should be checked
+    And the "orange" checkbox should be checked
+    And the "brown" checkbox should be checked
+
+  Scenario: Take a survey with group questions, then look at it
+    Given I parse
+    """
+      survey "Grid question test", :default_mandatory => false do
+        section 'Communication Skills' do
+          grid 'Identify communication and interviewing skills' do
+            a 'Yes'
+            a 'No'
+
+            q 'Able to articulate job duties and skills', :pick => :one
+          end
+
+          q 'Communication Skills Comments'
+          a :text
+        end
+      end
+    """
+    When I start the "Grid question test" survey
+    Then I should see "Identify communication and interviewing skills"
+    And I choose "Yes"
+    And I press "Click here to finish"
+    Then there should be 1 response set with 1 responses with:
+      | answer |
+      | Yes    |
+    When I go to the last response set show page
+    Then I should see "Identify communication and interviewing skills"
+    Then the "Yes" radiobutton should be checked

data/features/step_definitions/parser_steps.rb

@@ -0,0 +1,145 @@
+Given /^I parse$/ do |string|
+  Surveyor::Parser.parse(string)
+end
+
+Given /^the survey$/ do |string|
+  @survey_string = string
+end
+
+Then /^the parser should fail with "(.*)"$/ do |error_message|
+  lambda { Surveyor::Parser.parse(@survey_string) }.should raise_error(Surveyor::ParserError, /#{error_message}/)
+end
+
+Given /^the questions?$/ do |q_string|
+  Surveyor::Parser.parse(<<-SURVEY)
+    survey "Some questions for you" do
+      section "All the questions" do
+        #{q_string}
+      end
+    end
+  SURVEY
+end
+
+Given /^I parse redcap file "(.*)"$/ do |name|
+  Surveyor::RedcapParser.parse File.read(File.join(Rails.root, '..', 'features', 'support', name)), name
+end
+
+Then /^there should be (\d+) survey(?:s?) with:$/ do |x, table|
+  Survey.count.should == x.to_i
+  table.hashes.each do |hash|
+    Survey.find(:first, :conditions => hash).should_not be_nil
+  end
+end
+
+Then /^there should be (\d+) translations with$/ do |x, table|
+  SurveyTranslation.count.should == x.to_i
+  table.hashes.each do |hash|
+    SurveyTranslation.find(:first, :conditions => hash).should_not be_nil
+  end
+end
+
+Then /^there should be (\d+) section(?:s?) with:$/ do |x, table|
+  SurveySection.count.should == x.to_i
+  table.hashes.each do |hash|
+    SurveySection.find(:first, :conditions => hash).should_not be_nil
+  end
+end
+
+Then /^there should be (\d+) question groups with:$/ do |x, table|
+  QuestionGroup.count.should == x.to_i
+  table.hashes.each do |hash|
+    QuestionGroup.find(:first, :conditions => hash).should_not be_nil
+  end
+end
+
+Then /^there should be (\d+) question(?:s?) with:$/ do |x, table|
+  Question.count.should == x.to_i
+  table.hashes.each do |hash|
+    hash["reference_identifier"] = nil if hash["reference_identifier"] == "nil"
+    hash["custom_class"] = nil if hash["custom_class"] == "nil"
+    if hash.has_key?("is_mandatory")
+      hash["is_mandatory"] = (hash["is_mandatory"] == "true" ? true : (hash["is_mandatory"] == "false" ? false : hash["is_mandatory"]))
+    end
+    result = Question.find(:first, :conditions => hash)
+    puts hash if result.nil?
+    result.should_not be_nil
+  end
+end
+
+Then /^there should be (\d+) question(?:s?) with a correct answer$/ do |x|
+  Question.count(:conditions => "correct_answer_id NOT NULL").should == x.to_i
+  Question.where("correct_answer_id NOT NULL").compact.map(&:correct_answer).compact.size.should == x.to_i
+end
+
+Then /^there should be (\d+) answer(?:s?) with:$/ do |x, table|
+  Answer.count.should == x.to_i
+  table.hashes.each do |hash|
+    hash["reference_identifier"] = nil if hash["reference_identifier"] == "nil"
+    Answer.find(:first, :conditions => hash).should_not be_nil
+  end
+end
+
+Then /^there should be (\d+) dependenc(?:y|ies) with:$/ do |x, table|
+  Dependency.count.should == x.to_i
+  table.hashes.each do |hash|
+    Dependency.find(:first, :conditions => hash).should_not be_nil
+  end
+end
+
+Then /^there should be (\d+) resolved dependency_condition(?:s?) with:$/ do |x, table|
+  DependencyCondition.count.should == x.to_i
+  
+  table.hashes.each do |hash|
+    if hash.has_key?("question_reference")
+      question = Question.find_by_reference_identifier(hash.delete("question_reference"))
+      question.should_not be_nil
+      
+      hash.merge!({ :question_id => question.id })
+      
+      if hash.has_key?("answer_reference")
+        answer = Answer.find(:first, :conditions => { :question_id => question.id, :reference_identifier => hash.delete("answer_reference") })
+        answer.should_not be_nil
+        
+        hash.merge!({ :answer_id => answer.id })
+      end
+    end
+   
+    d = DependencyCondition.find(:first, :conditions => hash)
+    d.should_not be_nil
+    d.question.should_not be_nil
+    d.answer.should_not be_nil unless d.operator.match(/^count[<>=!]{1,2}\d+/)
+  end
+end
+
+
+Then /^there should be (\d+) validation(?:s?) with:$/ do |x, table|
+  Validation.count.should == x.to_i
+  table.hashes.each do |hash|
+    Validation.find(:first, :conditions => hash).should_not be_nil
+  end
+end
+
+Then /^there should be (\d+) validation_condition(?:s?) with:$/ do |x, table|
+  ValidationCondition.count.should == x.to_i
+  table.hashes.each do |hash|
+    hash["integer_value"] = nil if hash["integer_value"] == "nil"
+    ValidationCondition.find(:first, :conditions => hash).should_not be_nil
+  end
+end
+
+Then /^question "([^"]*)" should have correct answer "([^"]*)"$/ do |qr, ar|
+  (q = Question.find_by_reference_identifier(qr)).should_not be_nil
+  q.correct_answer.should == q.answers.find_by_reference_identifier(ar)
+end
+
+Then /^(\d+) dependencies should depend on questions$/ do |x|
+  arr = Dependency.find_all_by_question_group_id(nil)
+  arr.size.should == 2
+  arr.each{|d| d.question.should_not be_nil}
+end
+
+Then /^(\d+) dependencies should depend on question groups$/ do |x|
+  arr = Dependency.find_all_by_question_id(nil)
+  arr.size.should == 2
+  arr.each{|d| d.question_group.should_not be_nil}
+end