canvas_cc 0.0.1

data/spec/moodle2cc/canvas_cc/models/discussion_spec.rb

@@ -0,0 +1,47 @@
+require 'spec_helper'
+
+module CanvasCc::CanvasCC::Models
+  describe Discussion do
+
+    it_behaves_like 'it has an attribute for', :title
+    it_behaves_like 'it has an attribute for', :text
+    it_behaves_like 'it has an attribute for', :discussion_type
+    it_behaves_like 'it has an attribute for', :identifier
+    it_behaves_like 'it has an attribute for', :workflow_state
+
+    it 'creates resource' do
+      subject.stub(:discussion_resource) { :discussion_resource }
+      subject.stub(:meta_resource) { :meta_resource }
+      expect(subject.resources).to eq [:discussion_resource, :meta_resource]
+    end
+
+    it 'generates a discussion resource' do
+      subject.identifier = 'discussion_id'
+      subject.discussion_type = 'threaded'
+      subject.title = 'discussion title'
+      subject.text = 'discussion body'
+      discussion_resource = subject.discussion_resource
+      expect(discussion_resource).to be_a_kind_of Resource
+      expect(discussion_resource.dependencies.count).to eq 1
+      expect(discussion_resource.identifier).to eq 'discussion_id'
+      expect(discussion_resource.dependencies.first).to eq 'discussion_id_meta'
+      expect(discussion_resource.type).to eq 'imsdt_xmlv1p1'
+      expect(discussion_resource.files.count).to eq 1
+      expect(discussion_resource.files.first).to eq 'discussion_id.xml'
+    end
+
+    it 'generates a meta resource' do
+      subject.identifier = 'discussion_id'
+      subject.discussion_type = 'threaded'
+      subject.title = 'discussion title'
+      subject.text = 'discussion body'
+      meta_resource = subject.meta_resource
+      expect(meta_resource).to be_a_kind_of Resource
+      expect(meta_resource.type).to eq('associatedcontent/imscc_xmlv1p1/learning-application-resource')
+      expect(meta_resource.href).to eq('discussion_id_meta.xml')
+      expect(meta_resource.files.count).to eq 1
+      expect(meta_resource.files.first).to eq 'discussion_id_meta.xml'
+    end
+
+  end
+end

data/spec/moodle2cc/canvas_cc/models/discussion_topic_spec.rb

@@ -0,0 +1,7 @@
+require 'spec_helper'
+
+module CanvasCc::CanvasCC::Models
+  describe DiscussionTopic do
+    it_behaves_like 'it has an attribute for', :text
+  end
+end

data/spec/moodle2cc/canvas_cc/models/module_item_spec.rb

@@ -0,0 +1,15 @@
+require 'spec_helper'
+
+module CanvasCc::CanvasCC::Models
+  describe ModuleItem do
+    it_behaves_like 'it has an attribute for', :identifier
+    it_behaves_like 'it has an attribute for', :content_type
+    it_behaves_like 'it has an attribute for', :workflow_state
+    it_behaves_like 'it has an attribute for', :title
+    it_behaves_like 'it has an attribute for', :new_tab
+    it_behaves_like 'it has an attribute for', :indent
+    it_behaves_like 'it has an attribute for', :resource
+    it_behaves_like 'it has an attribute for', :identifierref
+    it_behaves_like 'it has an attribute for', :url
+  end
+end

data/spec/moodle2cc/canvas_cc/models/page_spec.rb

@@ -0,0 +1,34 @@
+require 'spec_helper'
+
+module CanvasCc::CanvasCC::Models
+  describe Page do
+    subject(:page) { Page.new }
+
+    it_behaves_like 'a CanvasCc::CanvasCC::Models::Resource'
+
+    it_behaves_like 'it has an attribute for', :workflow_state
+    it_behaves_like 'it has an attribute for', :editing_roles
+    it_behaves_like 'it has an attribute for', :body
+    it_behaves_like 'it has an attribute for', :title
+
+    its(:type) { should eq 'webcontent' }
+
+    it "hashes the identifier" do
+      page.identifier = 3
+      expect(page.identifier).to eq 3
+    end
+
+    it "sets the wiki_dir, and title" do
+      page.page_name = 'My Page Name'
+      expect(page.href).to eq 'wiki_content/my-page-name.html'
+      expect(page.title).to eq 'My Page Name'
+    end
+
+    it "truncates urls that are too long" do
+      page.page_name = 'a' * 500
+      expected = "wiki_content/#{'a' * CanvasCc::CanvasCC::Models::Page::MAX_URL_LENGTH}.html"
+      expect(page.href).to eq expected
+    end
+
+  end
+end

data/spec/moodle2cc/canvas_cc/models/question_spec.rb

@@ -0,0 +1,8 @@
+require 'spec_helper'
+
+module CanvasCc::CanvasCC::Models
+  describe Question do
+    it_behaves_like 'it has an attribute for', :identifier
+    it_behaves_like 'it has an attribute for', :title
+  end
+end

data/spec/moodle2cc/canvas_cc/models/resource_spec.rb

@@ -0,0 +1,17 @@
+require 'spec_helper'
+
+module CanvasCc::CanvasCC::Models
+  describe Resource do
+    it_behaves_like 'it has an attribute for', :href
+    it_behaves_like 'it has an attribute for', :type
+
+    it 'removes empty attributes when value is nil' do
+      subject.identifier = 'foo_bar'
+      subject.type = 'sometype'
+      expect(subject.attributes.keys.length).to eq(2)
+
+      subject.type = nil
+      expect(subject.attributes.keys.length).to eq(1)
+    end
+  end
+end

data/spec/moodle2cc/canvas_cc/models/web_content_spec.rb

@@ -0,0 +1,7 @@
+require 'spec_helper'
+
+module CanvasCc::CanvasCC::Models
+  describe WebContent do
+    it_behaves_like 'it has an attribute for', :body
+  end
+end

data/spec/moodle2cc/canvas_cc/models/web_link_spec.rb

@@ -0,0 +1,9 @@
+require 'spec_helper'
+
+module CanvasCc::CanvasCC::Models
+  describe WebLink do
+    it_behaves_like 'it has an attribute for', :url
+    it_behaves_like 'it has an attribute for', :external_link
+    it_behaves_like 'it has an attribute for', :href
+  end
+end

data/spec/moodle2cc/canvas_cc/module_meta_writer_spec.rb

@@ -0,0 +1,118 @@
+require 'spec_helper'
+
+module CanvasCc::CanvasCC
+  describe ModuleMetaWriter do
+
+    let(:canvas_module) { Models::CanvasModule.new }
+    let(:module_item) { Models::ModuleItem.new }
+    let(:tmpdir) { Dir.mktmpdir }
+
+    before :each do
+      Dir.mkdir(File.join(tmpdir, CartridgeCreator::COURSE_SETTINGS_DIR))
+    end
+
+    after :each do
+      FileUtils.rm_r tmpdir
+    end
+
+    it 'should have a valid schema' do
+      canvas_module.identifier = 'module_identifier'
+      canvas_module.title = 'test_title'
+      canvas_module.workflow_state = 'active'
+      xml = write_xml(canvas_module)
+
+      assert_xml_schema(xml)
+    end
+
+    it 'writes out modules correctly' do
+      canvas_module.identifier = 'ident'
+      canvas_module.title = 'module title'
+      canvas_module.workflow_state = 'active'
+      xml = write_xml(canvas_module)
+
+      expect(xml.at_xpath('xmlns:modules/xmlns:module/@identifier').text).to eq('ident')
+      expect(xml.%('modules/module/title').text).to eq('module title')
+      expect(xml.%('modules/module/workflow_state').text).to eq('active')
+      expect(xml.%('modules/module/position').text).to eq('0')
+    end
+
+    it 'increments the position for each module that is written' do
+      xml = write_xml(Models::CanvasModule.new, Models::CanvasModule.new)
+      expect(xml.%('modules/module/position').text).to eq('0')
+      expect(xml.%('modules/module[last()]/position').text).to eq('1')
+    end
+
+    context 'module items' do
+      it 'writes out module items correctly' do
+        module_item.identifier = "some_unique_hash"
+        module_item.content_type = "ContentType"
+        module_item.workflow_state = "active"
+        module_item.title = "Item Title"
+        module_item.new_tab = nil
+        module_item.indent = "1"
+        module_item.url = 'http://example.com'
+
+        module_item.identifierref = 'resource_id'
+
+        canvas_module.module_items << module_item
+
+        xml = write_xml(canvas_module)
+
+        item_node = xml.%('modules/module/items/item')
+        expect(item_node.at_xpath('@identifier').text).to eq('some_unique_hash')
+        expect(item_node.%('content_type').text).to eq('ContentType')
+        expect(item_node.%('workflow_state').text).to eq('active')
+        expect(item_node.%('title').text).to eq('Item Title')
+        expect(item_node.%('position').text).to eq('0')
+        expect(item_node.%('new_tab')).to be_nil
+        expect(item_node.%('indent').text).to eq('1')
+        expect(item_node.%('identifierref').text).to eq('resource_id')
+        expect(item_node.%('url').text).to eq('http://example.com')
+      end
+
+      it 'does not write the identifierref if it is not provided' do
+        canvas_module.module_items << module_item
+
+        xml = write_xml(canvas_module)
+
+        expect(xml.%('modules/module/items/item/identifierref')).to be_nil
+      end
+
+      it 'does not write the url if it is not provided' do
+        canvas_module.module_items << module_item
+
+        xml = write_xml(canvas_module)
+
+        expect(xml.%('modules/module/items/item/url')).to be_nil
+      end
+
+      it 'increments the position for each module item that is written in a module' do
+        canvas_module.module_items << Models::ModuleItem.new
+        canvas_module.module_items << Models::ModuleItem.new
+
+        xml = write_xml(canvas_module)
+
+        expect(xml.%('modules/module/items/item/position').text).to eq('0')
+        expect(xml.%('modules/module/items/item[last()]/position').text).to eq('1')
+      end
+    end
+
+    private
+
+    def write_xml(*mod)
+      writer = ModuleMetaWriter.new(tmpdir, *mod)
+      writer.write
+      path = File.join(tmpdir,
+                       CartridgeCreator::COURSE_SETTINGS_DIR,
+                       ModuleMetaWriter::MODULE_META_FILE)
+      Nokogiri::XML(File.read(path))
+    end
+
+    def assert_xml_schema(xml)
+      valid_schema = File.read(fixture_path(File.join('common_cartridge', 'schema', 'cccv1p0.xsd')))
+      xsd = Nokogiri::XML::Schema(valid_schema)
+      expect(xsd.validate(xml)).to be_empty
+    end
+
+  end
+end

data/spec/moodle2cc/canvas_cc/multiple_answers_question_writer_spec.rb

@@ -0,0 +1,50 @@
+require 'spec_helper'
+
+module CanvasCc::CanvasCC
+  describe MultipleAnswersQuestionWriter do
+
+    let(:question) { CanvasCc::CanvasCC::Models::Question.create('multiple_answers_question')}
+
+    it 'creates the question item xml for a multiple_choice_question' do
+      question.identifier = 420
+      question.title = 'hello'
+      question.general_feedback = 'feedbacks'
+      question.material = 'materiaru'
+
+      answer1 = CanvasCc::CanvasCC::Models::Answer.new
+      answer1.id = '1'
+      answer1.answer_text = 'something'
+      answer1.fraction = '0.5'
+      answer2 = CanvasCc::CanvasCC::Models::Answer.new
+      answer2.id = '2'
+      answer2.answer_text = 'something else'
+      answer2.fraction = '0'
+      answer3 = CanvasCc::CanvasCC::Models::Answer.new
+      answer3.id = '3'
+      answer3.answer_text = 'something something else'
+      answer3.fraction = '0.5'
+      question.answers = [answer1, answer2, answer3]
+
+      xml = Nokogiri::XML::Builder.new(encoding: 'UTF-8') do |node|
+        QuestionWriter.write_question(node, question)
+      end.doc
+
+      expect(xml.at_xpath('item/@ident').value).to eq question.identifier.to_s
+      expect(xml.at_xpath('item/@title').value).to eq question.title
+      expect(xml.at_xpath("item/itemmetadata/qtimetadata/qtimetadatafield[fieldlabel=\"question_type\" and fieldentry=\"#{question.question_type}\"]")).to_not be_nil
+
+      response = xml.at_xpath('item/presentation/response_lid')
+      expect(response.attributes['rcardinality'].value).to eq 'Multiple'
+      expect(response.attributes['ident'].value).to eq 'response1'
+
+      expect(response.at_xpath("render_choice/response_label[@ident=\"#{answer1.id}\"]/material/mattext[@texttype=\"text/html\" and text()=\"#{answer1.answer_text}\"]")).not_to be_nil
+      expect(response.at_xpath("render_choice/response_label[@ident=\"#{answer2.id}\"]/material/mattext[@texttype=\"text/html\" and text()=\"#{answer2.answer_text}\"]")).not_to be_nil
+      expect(response.at_xpath("render_choice/response_label[@ident=\"#{answer3.id}\"]/material/mattext[@texttype=\"text/html\" and text()=\"#{answer3.answer_text}\"]")).not_to be_nil
+
+      condition = xml.at_xpath("item/resprocessing/respcondition[@continue=\"No\"]")
+      expect(condition.at_xpath("conditionvar/and/varequal[@respident=\"response1\" and text()=\"#{answer1.id}\"]")).not_to be_nil
+      expect(condition.at_xpath("conditionvar/and/not/varequal[@respident=\"response1\" and text()=\"#{answer2.id}\"]")).not_to be_nil
+      expect(condition.at_xpath("conditionvar/and/varequal[@respident=\"response1\" and text()=\"#{answer3.id}\"]")).not_to be_nil
+    end
+  end
+end

data/spec/moodle2cc/canvas_cc/multiple_blanks_question_writer_spec.rb

@@ -0,0 +1,77 @@
+require 'spec_helper'
+
+module CanvasCc::CanvasCC
+  describe MultipleBlanksQuestionWriter do
+
+    let(:question) { CanvasCc::CanvasCC::Models::Question.create('fill_in_multiple_blanks_question')}
+
+    it 'creates the question item xml for a multiple blanks question' do
+      question.identifier = 4200
+      question.title = 'hello'
+      question.general_feedback = 'feedbacks'
+      question.material = 'the first question is: [response1] and the second is: [response2]'
+
+      answer1 = CanvasCc::CanvasCC::Models::Answer.new
+      answer1.id = '1'
+      answer1.fraction = 1
+      answer1.answer_text = 'i take specs seriously'
+      answer1.feedback = 'feedfbavks'
+      answer1.resp_ident = 'response1'
+
+      answer2 = CanvasCc::CanvasCC::Models::Answer.new
+      answer2.id = '2'
+      answer2.fraction = 1
+      answer2.answer_text = 'imm the right one for the second'
+      answer2.feedback = 'moar feedback'
+      answer2.resp_ident = 'response2'
+      question.answers = [answer1, answer2]
+
+      xml = Nokogiri::XML::Builder.new(encoding: 'UTF-8') do |node|
+        QuestionWriter.write_question(node, question)
+      end.doc
+
+      expect(xml.at_xpath('item/@ident').value).to eq question.identifier.to_s
+      expect(xml.at_xpath('item/@title').value).to eq question.title
+      expect(xml.at_xpath("item/itemmetadata/qtimetadata/qtimetadatafield[fieldlabel=\"question_type\" and fieldentry=\"#{question.question_type}\"]")).to_not be_nil
+
+      # first response
+      response = xml.xpath('item/presentation/response_lid')[0]
+      expect(response.attributes['rcardinality'].value).to eq 'Single'
+      expect(response.attributes['ident'].value).to eq 'response1'
+      expect(response.at_xpath("render_choice/response_label[@ident=\"#{answer1.id}\"]/material/mattext[@texttype=\"text/html\" and text()=\"#{answer1.answer_text}\"]")).not_to be_nil
+
+      # second response
+      response = xml.xpath('item/presentation/response_lid')[1]
+      expect(response.attributes['rcardinality'].value).to eq 'Single'
+      expect(response.attributes['ident'].value).to eq 'response2'
+      expect(response.at_xpath("render_choice/response_label[@ident=\"#{answer2.id}\"]/material/mattext[@texttype=\"text/html\" and text()=\"#{answer2.answer_text}\"]")).not_to be_nil
+
+      # Feedback
+      condition = xml.at_xpath("item/resprocessing/respcondition[@continue=\"Yes\"]/conditionvar/varequal[@respident=\"response1\" and text()=\"#{answer1.id}\"]/../..")
+      expect(condition).not_to be_nil
+      feedback = condition.at_xpath("displayfeedback[@feedbacktype=\"Response\" and @linkrefid=\"#{answer1.id}_fb\"]")
+      expect(feedback).not_to be_nil
+
+      condition = xml.at_xpath("item/resprocessing/respcondition[@continue=\"Yes\"]/conditionvar/varequal[@respident=\"response2\" and text()=\"#{answer2.id}\"]/../..")
+      expect(condition).not_to be_nil
+      feedback = condition.at_xpath("displayfeedback[@feedbacktype=\"Response\" and @linkrefid=\"#{answer2.id}_fb\"]")
+      expect(feedback).not_to be_nil
+
+      feedback = xml.at_xpath("item/itemfeedback[@ident=\"#{answer1.id}_fb\"]/flow_mat/material/mattext[@texttype=\"text/html\"]")
+      expect(feedback.text).to eq answer1.feedback
+      feedback = xml.at_xpath("item/itemfeedback[@ident=\"#{answer2.id}_fb\"]/flow_mat/material/mattext[@texttype=\"text/html\"]")
+      expect(feedback.text).to eq answer2.feedback
+
+      # Conditions
+      condition = xml.at_xpath("item/resprocessing/respcondition[@continue=\"No\"]/conditionvar/varequal[@respident=\"response1\" and text()=\"#{answer1.id}\"]/../..")
+      expect(condition).not_to be_nil
+      setvar = condition.at_xpath('setvar[@varname="SCORE" and @action="Set" and text()="100"]')
+      expect(setvar).not_to be_nil
+
+      condition = xml.at_xpath("item/resprocessing/respcondition[@continue=\"No\"]/conditionvar/varequal[@respident=\"response2\" and text()=\"#{answer2.id}\"]/../..")
+      expect(condition).not_to be_nil
+      setvar = condition.at_xpath('setvar[@varname="SCORE" and @action="Set" and text()="100"]')
+      expect(setvar).not_to be_nil
+    end
+  end
+end

data/spec/moodle2cc/canvas_cc/multiple_choice_question_writer_spec.rb

@@ -0,0 +1,69 @@
+require 'spec_helper'
+
+module CanvasCc::CanvasCC
+  describe MultipleChoiceQuestionWriter do
+
+    let(:question) { CanvasCc::CanvasCC::Models::Question.create('multiple_choice_question')}
+
+    it 'creates the question item xml for a multiple_choice_question' do
+      question.identifier = 420
+      question.title = 'hello'
+      question.general_feedback = 'feedbacks'
+      question.material = 'materiaru'
+
+      answer1 = CanvasCc::CanvasCC::Models::Answer.new
+      answer1.id = 'correcto'
+      answer1.fraction = 1.0
+      answer1.answer_text = 'so true'
+      answer1.feedback = 'was there ever any doubt?'
+      answer2 = CanvasCc::CanvasCC::Models::Answer.new
+      answer2.id = 'farusu'
+      answer2.fraction = 0.0
+      answer2.answer_text = 'falrse'
+      answer2.feedback = 'bakaaaa'
+      question.answers = [answer1, answer2]
+
+      xml = Nokogiri::XML::Builder.new(encoding: 'UTF-8') do |node|
+        QuestionWriter.write_question(node, question)
+      end.doc
+
+      expect(xml.at_xpath('item/@ident').value).to eq question.identifier.to_s
+      expect(xml.at_xpath('item/@title').value).to eq question.title
+      expect(xml.at_xpath("item/itemmetadata/qtimetadata/qtimetadatafield[fieldlabel=\"question_type\" and fieldentry=\"#{question.question_type}\"]")).to_not be_nil
+
+      response = xml.at_xpath('item/presentation/response_lid')
+      expect(response.attributes['rcardinality'].value).to eq 'Single'
+      expect(response.attributes['ident'].value).to eq 'response1'
+
+      expect(response.at_xpath("render_choice/response_label[@ident=\"#{answer1.id}\"]/material/mattext[@texttype=\"text/html\" and text()=\"#{answer1.answer_text}\"]")).not_to be_nil
+      expect(response.at_xpath("render_choice/response_label[@ident=\"#{answer2.id}\"]/material/mattext[@texttype=\"text/html\" and text()=\"#{answer2.answer_text}\"]")).not_to be_nil
+
+      # Feedback
+      condition = xml.at_xpath("item/resprocessing/respcondition[@continue=\"Yes\"]/conditionvar/varequal[@respident=\"response1\" and text()=\"#{answer1.id}\"]/../..")
+      expect(condition).not_to be_nil
+      feedback = condition.at_xpath("displayfeedback[@feedbacktype=\"Response\" and @linkrefid=\"#{answer1.id}_fb\"]")
+      expect(feedback).not_to be_nil
+
+      condition = xml.at_xpath("item/resprocessing/respcondition[@continue=\"Yes\"]/conditionvar/varequal[@respident=\"response1\" and text()=\"#{answer2.id}\"]/../..")
+      expect(condition).not_to be_nil
+      feedback = condition.at_xpath("displayfeedback[@feedbacktype=\"Response\" and @linkrefid=\"#{answer2.id}_fb\"]")
+      expect(feedback).not_to be_nil
+
+      feedback = xml.at_xpath("item/itemfeedback[@ident=\"#{answer1.id}_fb\"]/flow_mat/material/mattext[@texttype=\"text/html\"]")
+      expect(feedback.text).to eq answer1.feedback
+      feedback = xml.at_xpath("item/itemfeedback[@ident=\"#{answer2.id}_fb\"]/flow_mat/material/mattext[@texttype=\"text/html\"]")
+      expect(feedback.text).to eq answer2.feedback
+
+      # Conditions
+      condition = xml.at_xpath("item/resprocessing/respcondition[@continue=\"No\"]/conditionvar/varequal[@respident=\"response1\" and text()=\"#{answer1.id}\"]/../..")
+      expect(condition).not_to be_nil
+      setvar = condition.at_xpath('setvar[@varname="SCORE" and @action="Set" and text()="100"]')
+      expect(setvar).not_to be_nil
+
+      condition = xml.at_xpath("item/resprocessing/respcondition[@continue=\"No\"]/conditionvar/varequal[@respident=\"response1\" and text()=\"#{answer2.id}\"]/../..")
+      expect(condition).not_to be_nil
+      setvar = condition.at_xpath('setvar[@varname="SCORE" and @action="Set" and text()="0"]')
+      expect(setvar).not_to be_nil
+    end
+  end
+end

data/spec/moodle2cc/canvas_cc/multiple_dropdowns_question_writer_spec.rb

@@ -0,0 +1,46 @@
+require 'spec_helper'
+
+module CanvasCc::CanvasCC
+  describe MultipleDropdownsQuestionWriter do
+
+    let(:question) { CanvasCc::CanvasCC::Models::Question.create('multiple_dropdowns_question')}
+
+    it 'creates the question item xml for a multiple_dropdowns_question' do
+      question.identifier = 4200
+      question.title = 'hello'
+      question.general_feedback = 'feedbacks'
+      question.material = 'the first question is [response1] and the second is [response2]'
+      question.answers = []
+      question.responses = [
+        {:id => "response1", :choices => [
+          {:id => "3_choice_0_0", :text => "1"},
+          {:id => "3_choice_0_1", :text => "2"}
+        ]},
+        {:id => "response2", :choices => [
+          {:id => "3_choice_1_0", :text => "1"},
+          {:id => "3_choice_1_1", :text => "2"}
+        ]}
+      ]
+
+      xml = Nokogiri::XML::Builder.new(encoding: 'UTF-8') do |node|
+        QuestionWriter.write_question(node, question)
+      end.doc
+
+      expect(xml.at_xpath('item/@ident').value).to eq question.identifier.to_s
+      expect(xml.at_xpath('item/@title').value).to eq question.title
+      expect(xml.at_xpath("item/itemmetadata/qtimetadata/qtimetadatafield[fieldlabel=\"question_type\" and fieldentry=\"#{question.question_type}\"]")).to_not be_nil
+
+      # first response
+      response = xml.xpath('item/presentation/response_lid')[0]
+      expect(response.attributes['ident'].value).to eq 'response_response1'
+      expect(response.at_xpath("render_choice/response_label[@ident=\"3_choice_0_0\"]/material/mattext[@texttype=\"text/plain\" and text()=\"1\"]")).not_to be_nil
+      expect(response.at_xpath("render_choice/response_label[@ident=\"3_choice_0_1\"]/material/mattext[@texttype=\"text/plain\" and text()=\"2\"]")).not_to be_nil
+
+      # second response
+      response = xml.xpath('item/presentation/response_lid')[1]
+      expect(response.attributes['ident'].value).to eq 'response_response2'
+      expect(response.at_xpath("render_choice/response_label[@ident=\"3_choice_1_0\"]/material/mattext[@texttype=\"text/plain\" and text()=\"1\"]")).not_to be_nil
+      expect(response.at_xpath("render_choice/response_label[@ident=\"3_choice_1_1\"]/material/mattext[@texttype=\"text/plain\" and text()=\"2\"]")).not_to be_nil
+    end
+  end
+end

data/spec/moodle2cc/canvas_cc/numerical_question_writer_spec.rb

@@ -0,0 +1,69 @@
+require 'spec_helper'
+
+module CanvasCc::CanvasCC
+  describe NumericalQuestionWriter do
+
+    let(:question) { CanvasCc::CanvasCC::Models::Question.create('numerical_question')}
+
+    it 'creates the question item xml for a numerical question' do
+      question.identifier = 9001
+      question.title = 'its over nine thousannnd'
+      question.general_feedback = 'ur totes awesome'
+      question.material = 'this is a question, or is it?'
+
+      answer1 = CanvasCc::CanvasCC::Models::Answer.new
+      answer1.id = 'answer1_id'
+      answer1.answer_text = 20
+      answer1.fraction = 1
+      answer1.feedback = 'feedbak1'
+      answer2 = CanvasCc::CanvasCC::Models::Answer.new
+      answer2.id = 'answer2_id'
+      answer2.answer_text = 30
+      answer2.fraction = 0
+      answer2.feedback = 'also feedback2'
+      question.answers = [answer1, answer2]
+
+      question.tolerances = {'answer1_id' => 1, 'answer2_id' => 2}
+
+      xml = Nokogiri::XML::Builder.new(encoding: 'UTF-8') do |node|
+        QuestionWriter.write_question(node, question)
+      end.doc
+
+      expect(xml.at_xpath('item/@ident').value).to eq question.identifier.to_s
+      expect(xml.at_xpath('item/@title').value).to eq question.title
+      expect(xml.at_xpath("item/itemmetadata/qtimetadata/qtimetadatafield[fieldlabel=\"question_type\" and fieldentry=\"#{question.question_type}\"]")).to_not be_nil
+
+      response = xml.at_xpath('item/presentation/response_str')
+      expect(response.attributes['rcardinality'].value).to eq 'Single'
+      expect(response.attributes['ident'].value).to eq 'response1'
+      expect(response.at_xpath('render_fib').attributes['fibtype'].value).to eq 'Decimal'
+      expect(response.at_xpath('render_fib/response_label').attributes['ident'].value).to eq 'answer1'
+
+      condition = xml.at_xpath("item/resprocessing/respcondition[@continue=\"No\"]/displayfeedback[@linkrefid=\"#{answer1.id}_fb\"]/..")
+      varequal = condition.at_xpath('conditionvar/or/varequal[@respident="response1"]')
+      expect(varequal.text).to eq answer1.answer_text.to_s
+      vargte = condition.at_xpath('conditionvar/or/and/vargte[@respident="response1"]')
+      expect(vargte.text).to eq (answer1.answer_text.to_f - 1).to_s
+      varlte = condition.at_xpath('conditionvar/or/and/varlte[@respident="response1"]')
+      expect(varlte.text).to eq (answer1.answer_text.to_f + 1).to_s
+
+      setvar = condition.at_xpath('setvar')
+      expect(setvar.text).to eq '100'
+      expect(setvar.attributes['varname'].value).to eq 'SCORE'
+      expect(setvar.attributes['action'].value).to eq 'Set'
+
+      condition = xml.at_xpath("item/resprocessing/respcondition[@continue=\"No\"]/displayfeedback[@linkrefid=\"#{answer2.id}_fb\"]/..")
+      varequal = condition.at_xpath('conditionvar/or/varequal[@respident="response1"]')
+      expect(varequal.text).to eq answer2.answer_text.to_s
+      vargte = condition.at_xpath('conditionvar/or/and/vargte[@respident="response1"]')
+      expect(vargte.text).to eq (answer2.answer_text.to_f - 2).to_s
+      varlte = condition.at_xpath('conditionvar/or/and/varlte[@respident="response1"]')
+      expect(varlte.text).to eq (answer2.answer_text.to_f + 2).to_s
+
+      setvar = condition.at_xpath('setvar')
+      expect(setvar.text).to eq '0'
+      expect(setvar.attributes['varname'].value).to eq 'SCORE'
+      expect(setvar.attributes['action'].value).to eq 'Set'
+    end
+  end
+end

data/spec/moodle2cc/canvas_cc/page_writer_spec.rb

@@ -0,0 +1,29 @@
+require 'spec_helper'
+
+describe CanvasCc::CanvasCC::PageWriter do
+  subject(:writer) { CanvasCc::CanvasCC::PageWriter.new(work_dir, page) }
+  let(:work_dir) { Dir.mktmpdir }
+  let(:page) {CanvasCc::CanvasCC::Models::Page.new}
+
+  after(:each) do
+    FileUtils.rm_r work_dir
+  end
+
+  it 'creates the page html' do
+    page.identifier = 'my_id'
+    page.workflow_state = 'active'
+    page.body = '<h2>This is the body</h2>'
+    page.editing_roles = 'teachers'
+    page.page_name ='My Page Title'
+    writer.write
+    html = Nokogiri::HTML(File.read(File.join(work_dir, page.href)))
+    expect(html.at_css('meta[http-equiv]')[:'http-equiv']).to eq 'Content-Type'
+    expect(html.at_css('meta[http-equiv]')[:content]).to eq 'text/html; charset=utf-8'
+    expect(html.at_css('meta[name=identifier]')[:content]).to eq 'my_id'
+    expect(html.at_css('meta[name=editing_roles]')[:content]).to eq 'teachers'
+    expect(html.at_css('meta[name=workflow_state]')[:content]).to eq 'active'
+    expect(html.at_css('title').text).to eq 'My Page Title'
+    expect(html.at_css('body').inner_html.to_s).to eq '<h2>This is the body</h2>'
+  end
+
+end