canvas_cc 0.0.1

data/lib/canvas_cc/cc/web_link.rb

@@ -0,0 +1,75 @@
+module CanvasCc::CC
+  class WebLink
+    include CCHelper
+    include Resource
+
+    attr_accessor :url, :external_link, :href
+
+    def initialize(mod)
+      super
+      @url = mod.reference.to_s.strip
+      @external_link = self.class.external_link?(mod)
+      @href = @external_link ? "#{@identifier}.xml" : File.join(WEB_RESOURCES_FOLDER, @url)
+      @identifier = create_key(@href, 'resource_') unless @external_link
+    end
+
+    def self.create_resource_key(mod)
+      unless external_link?(mod)
+        create_key(File.join(WEB_RESOURCES_FOLDER, mod.reference), 'resource_')
+      else
+        super
+      end
+    end
+
+    def self.external_link?(mod)
+      begin
+        !!URI.parse(mod.reference.to_s.strip.gsub(/\s/, '+')).scheme
+      rescue URI::InvalidURIError
+        !!mod.reference.strip.match(/^https?\:\/\//)
+      end
+    end
+
+    def create_resource_node(resources_node)
+      if @external_link
+        resources_node.resource(
+          :type => WEB_LINK,
+          :identifier => identifier
+        ) do |resource_node|
+          resource_node.file(:href => href)
+        end
+      else
+        resources_node.resource(
+          :type => WEBCONTENT,
+          :href => href,
+          :identifier => identifier
+        ) do |resource_node|
+          resource_node.file(:href => href)
+        end
+      end
+    end
+
+    def create_files(export_dir)
+      create_xml(export_dir)
+    end
+
+    def create_xml(export_dir)
+      return unless @external_link
+      path = File.join(export_dir, "#{identifier}.xml")
+      FileUtils.mkdir_p(File.dirname(path))
+      File.open(path, 'w') do |file|
+        settings_node = Builder::XmlMarkup.new(:target => file, :indent => 2)
+        settings_node.instruct!
+        settings_node.webLink(
+          :identifier => identifier,
+          'xsi:schemaLocation' => "http://www.imsglobal.org/xsd/imsccv1p1/imswl_v1p1 http://www.imsglobal.org/profile/cc/ccv1p1/ccv1p1_imswl_v1p1.xsd",
+          'xmlns:xsi' => "http://www.w3.org/2001/XMLSchema-instance",
+          'xmlns' => "http://www.imsglobal.org/xsd/imsccv1p1/imswl_v1p1"
+        ) do |web_link_node|
+          web_link_node.title @title
+          web_link_node.url(:href => @url)
+        end
+      end
+    end
+
+  end
+end

data/lib/canvas_cc/cc/wiki.rb

@@ -0,0 +1,73 @@
+module CanvasCc::CC
+  class Wiki
+    include CCHelper
+    include Resource
+
+    attr_accessor :pages
+
+    def initialize(mod)
+      super
+      @href_template ||= "#{CC_WIKI_FOLDER}/%s.html"
+      page_versions = mod.pages.inject({}) do |result, page|
+        version = result[page.page_name]
+        result[page.page_name] = page.version if version.nil? || page.version > version
+        result
+      end
+
+      @pages = mod.pages.map do |page|
+        if page.version == page_versions[page.page_name]
+          title_slug = file_slug(@title)
+          body = page.content
+          slug = [title_slug, file_slug(page.page_name)].join('-')
+          href = @href_template % slug
+          CanvasCc::OpenStruct.new(:title => page.page_name, :body => body, :href => href, :identifier => create_key(href))
+        end
+      end.compact
+
+      if @pages.empty?
+        slug = file_slug(@title)
+        href = @href_template % slug
+        @pages = [CanvasCc::OpenStruct.new(:title => @title, :body => mod.summary, :href => href, :identifier => create_key(href))]
+      end
+
+      @identifier = root_page.identifier
+    end
+
+    def self.create_resource_key(mod)
+      Wiki.new(mod).identifer
+    end
+
+    def root_page
+      @pages.find { |page| page.title.downcase == @title.downcase }
+    end
+
+    def create_resource_node(resources_node)
+      @pages.each do |page|
+        href = page.href
+        resources_node.resource(
+          :href => href,
+          :type => WEBCONTENT,
+          :identifier => create_key(href)
+        ) do |resource_node|
+          resource_node.file(:href => href)
+        end
+      end
+    end
+
+    def create_files(export_dir)
+      create_html(export_dir)
+    end
+
+    def create_html(export_dir)
+      template = File.expand_path('../templates/wiki_content.html.erb', __FILE__)
+      @pages.each do |page|
+        path = File.join(export_dir, page.href)
+        FileUtils.mkdir_p(File.dirname(path))
+        File.open(path, 'w') do |file|
+          erb = ERB.new(File.read(template))
+          file.write(erb.result(page.instance_eval { binding }))
+        end
+      end
+    end
+  end
+end

data/lib/canvas_cc/version.rb

@@ -0,0 +1,3 @@
+module CanvasCc
+  VERSION = "0.0.1"
+end

data/lib/canvas_cc.rb

@@ -0,0 +1,94 @@
+require "canvas_cc/version"
+require 'builder'
+require 'cgi'
+require 'erb'
+require 'fileutils'
+require 'happymapper'
+require 'logger'
+require 'nokogiri'
+require 'ostruct'
+require 'rdiscount'
+require 'uri'
+require 'securerandom'
+
+module CanvasCc
+    module CC
+    autoload :Assessment, 'canvas_cc/cc/assessment'
+    autoload :Assignment, 'canvas_cc/cc/assignment'
+    autoload :CCHelper, 'canvas_cc/cc/cc_helper'
+    autoload :Converter, 'canvas_cc/cc/converter'
+    autoload :Course, 'canvas_cc/cc/course'
+    autoload :DiscussionTopic, 'canvas_cc/cc/discussion_topic'
+    autoload :Label, 'canvas_cc/cc/label'
+    autoload :Question, 'canvas_cc/cc/question'
+    autoload :Resource, 'canvas_cc/cc/resource'
+    autoload :WebContent, 'canvas_cc/cc/web_content'
+    autoload :WebLink, 'canvas_cc/cc/web_link'
+    autoload :Wiki, 'canvas_cc/cc/wiki'
+  end
+  module Canvas
+    autoload :Assessment, 'canvas_cc/canvas/assessment'
+    autoload :Assignment, 'canvas_cc/canvas/assignment'
+    autoload :Converter, 'canvas_cc/canvas/converter'
+    autoload :Course, 'canvas_cc/canvas/course'
+    autoload :DiscussionTopic, 'canvas_cc/canvas/discussion_topic'
+    autoload :Label, 'canvas_cc/canvas/label'
+    autoload :Question, 'canvas_cc/canvas/question'
+    autoload :QuestionBank, 'canvas_cc/canvas/question_bank'
+    autoload :QuestionGroup, 'canvas_cc/canvas/question_group'
+    autoload :Resource, 'canvas_cc/canvas/resource'
+    autoload :WebContent, 'canvas_cc/canvas/web_content'
+    autoload :WebLink, 'canvas_cc/canvas/web_link'
+    autoload :Wiki, 'canvas_cc/canvas/wiki'
+  end
+  module CanvasCC
+    autoload :ImsManifestGenerator, 'canvas_cc/canvas_cc/ims_manifest_generator'
+    autoload :CartridgeCreator, 'canvas_cc/canvas_cc/cartridge_creator'
+    autoload :CourseSettingWriter, 'canvas_cc/canvas_cc/course_setting_writer'
+    autoload :ModuleMetaWriter, 'canvas_cc/canvas_cc/module_meta_writer'
+    autoload :FileMetaWriter, 'canvas_cc/canvas_cc/file_meta_writer'
+    autoload :CanvasExportWriter, 'canvas_cc/canvas_cc/canvas_export_writer'
+    autoload :PageWriter, 'canvas_cc/canvas_cc/page_writer'
+    autoload :DiscussionWriter, 'canvas_cc/canvas_cc/discussion_writer'
+    autoload :AssignmentWriter, 'canvas_cc/canvas_cc/assignment_writer'
+    autoload :AssignmentGroupWriter, 'canvas_cc/canvas_cc/assignment_group_writer'
+
+    autoload :QuestionWriter, 'canvas_cc/canvas_cc/question_writer'
+    autoload :CalculatedQuestionWriter, 'canvas_cc/canvas_cc/calculated_question_writer'
+    autoload :EssayQuestionWriter, 'canvas_cc/canvas_cc/essay_question_writer'
+    autoload :MatchingQuestionWriter, 'canvas_cc/canvas_cc/matching_question_writer'
+    autoload :MultipleAnswersQuestionWriter, 'canvas_cc/canvas_cc/multiple_answers_question_writer'
+    autoload :MultipleBlanksQuestionWriter, 'canvas_cc/canvas_cc/multiple_blanks_question_writer'
+    autoload :MultipleChoiceQuestionWriter, 'canvas_cc/canvas_cc/multiple_choice_question_writer'
+    autoload :MultipleDropdownsQuestionWriter, 'canvas_cc/canvas_cc/multiple_dropdowns_question_writer'
+    autoload :NumericalQuestionWriter, 'canvas_cc/canvas_cc/numerical_question_writer'
+    autoload :ShortAnswerQuestionWriter, 'canvas_cc/canvas_cc/short_answer_question_writer'
+    autoload :TextOnlyQuestionWriter, 'canvas_cc/canvas_cc/text_only_question_writer'
+    autoload :TrueFalseQuestionWriter, 'canvas_cc/canvas_cc/true_false_question_writer'
+
+    autoload :QuestionBankWriter, 'canvas_cc/canvas_cc/question_bank_writer'
+    autoload :QuestionGroupWriter, 'canvas_cc/canvas_cc/question_group_writer'
+    autoload :AssessmentWriter, 'canvas_cc/canvas_cc/assessment_writer'
+    module Models
+      autoload :Course, 'canvas_cc/canvas_cc/models/course'
+      autoload :Assignment, 'canvas_cc/canvas_cc/models/assignment'
+      autoload :AssignmentGroup, 'canvas_cc/canvas_cc/models/assignment_group'
+      autoload :Assessment, 'canvas_cc/canvas_cc/models/assessment'
+      autoload :DiscussionTopic, 'canvas_cc/canvas_cc/models/discussion_topic'
+      autoload :Question, 'canvas_cc/canvas_cc/models/question'
+      autoload :CalculatedQuestion, 'canvas_cc/canvas_cc/models/calculated_question'
+      autoload :Answer, 'canvas_cc/canvas_cc/models/answer'
+      autoload :QuestionBank, 'canvas_cc/canvas_cc/models/question_bank'
+      autoload :QuestionGroup, 'canvas_cc/canvas_cc/models/question_group'
+      autoload :WebContent, 'canvas_cc/canvas_cc/models/web_content'
+      autoload :WebLink, 'canvas_cc/canvas_cc/models/web_link'
+      autoload :Resource, 'canvas_cc/canvas_cc/models/resource'
+      autoload :CanvasModule, 'canvas_cc/canvas_cc/models/canvas_module'
+      autoload :ModuleItem, 'canvas_cc/canvas_cc/models/module_item'
+      autoload :CanvasFile, 'canvas_cc/canvas_cc/models/canvas_file'
+      autoload :Page, 'canvas_cc/canvas_cc/models/page'
+      autoload :Discussion, 'canvas_cc/canvas_cc/models/discussion'
+      autoload :WorkflowState, 'canvas_cc/canvas_cc/models/workflow_state'
+    end
+  end
+end

data/spec/moodle2cc/canvas_cc/assessment_writer_spec.rb

@@ -0,0 +1,95 @@
+require 'spec_helper'
+
+module CanvasCc::CanvasCC
+  describe AssessmentWriter do
+    subject { CanvasCc::CanvasCC::AssessmentWriter.new(work_dir, assessment) }
+    let(:work_dir) { Dir.mktmpdir }
+    let(:assessment) { CanvasCc::CanvasCC::Models::Assessment.new }
+
+    after(:each) do
+      FileUtils.rm_r work_dir
+    end
+
+    it 'raises an error unless question references are first resolved' do
+      expect { subject.write }.to raise_exception
+    end
+
+    it 'creates the assessment meta file' do
+
+      assessment.identifier = 'someidthing'
+      assessment.title = 'assersemurnt'
+      assessment.description = 'this is a bunch of description'
+      assessment.lock_at = Time.parse('Sat, 08 Feb 2014 17:00:00 GMT')
+      assessment.unlock_at = Time.parse('Sat, 08 Feb 2014 18:00:00 GMT')
+      assessment.time_limit = '12'
+      assessment.allowed_attempts = '13'
+      assessment.scoring_policy = '14'
+      assessment.access_code = 'tired of counting'
+      assessment.ip_filter = '42.42.42.42'
+      assessment.shuffle_answers = "every day i'm shuffling answers"
+      assessment.quiz_type = 'the best kind of quiz'
+
+      assessment.items = []
+      subject.write
+
+      xml = Nokogiri::XML(File.read(File.join(work_dir, assessment.meta_file_path)))
+
+      expect(xml.root.attributes['schemaLocation'].value).to eq "http://canvas.instructure.com/xsd/cccv1p0 http://canvas.instructure.com/xsd/cccv1p0.xsd"
+      expect(xml.namespaces['xmlns:xsi']).to eq "http://www.w3.org/2001/XMLSchema-instance"
+      expect(xml.namespaces['xmlns']).to eq "http://canvas.instructure.com/xsd/cccv1p0"
+
+      root = xml.at_xpath('xmlns:quiz')
+      expect(root.attributes['identifier'].value).to eq assessment.identifier
+      expect(root.%('title').text).to eq assessment.title
+      expect(root.%('description').text).to eq assessment.description
+      expect(root.%('lock_at').text).to eq '2014-02-08T17:00:00'
+      expect(root.%('unlock_at').text).to eq '2014-02-08T18:00:00'
+      expect(root.%('time_limit').text).to eq assessment.time_limit
+      expect(root.%('allowed_attempts').text).to eq assessment.allowed_attempts
+      expect(root.%('scoring_policy').text).to eq assessment.scoring_policy
+      expect(root.%('access_code').text).to eq assessment.access_code
+      expect(root.%('ip_filter').text).to eq assessment.ip_filter
+      expect(root.%('shuffle_answers').text).to eq assessment.shuffle_answers
+      expect(root.%('quiz_type').text).to eq assessment.quiz_type
+    end
+
+    it 'creates the assessment qti file' do
+      assessment.identifier = 'someidthing'
+      assessment.title = 'assersemurnt'
+      assessment.time_limit = 10
+      assessment.allowed_attempts = 2
+
+      question = CanvasCc::CanvasCC::Models::Question.new
+      question.identifier = 42
+      assessment.items = [question]
+
+      QuestionWriter.register_writer_type(nil)
+      QuestionWriter.stub(:write_responses)
+      QuestionWriter.stub(:write_response_conditions)
+
+      subject.write
+
+      xml = Nokogiri::XML(File.read(File.join(work_dir, assessment.qti_file_path)))
+
+      expect(xml.root.attributes['schemaLocation'].value).to eq "http://www.imsglobal.org/xsd/ims_qtiasiv1p2 http://www.imsglobal.org/xsd/ims_qtiasiv1p2p1.xsd"
+      expect(xml.namespaces['xmlns:xsi']).to eq "http://www.w3.org/2001/XMLSchema-instance"
+      expect(xml.namespaces['xmlns']).to eq "http://www.imsglobal.org/xsd/ims_qtiasiv1p2"
+
+      root = xml.at_xpath('xmlns:questestinterop')
+      expect(root).to_not be_nil
+      expect(root.%('assessment').attributes['ident'].value).to eq assessment.identifier
+      expect(root.%('assessment').attributes['title'].value).to eq assessment.title
+
+      meta_fields = root.search('assessment/qtimetadata/qtimetadatafield')
+      expect(meta_fields[0].%('fieldlabel').text).to eq 'qmd_timelimit'
+      expect(meta_fields[0].%('fieldentry').text).to eq assessment.time_limit.to_s
+      expect(meta_fields[1].%('fieldlabel').text).to eq 'cc_maxattempts'
+      expect(meta_fields[1].%('fieldentry').text).to eq assessment.allowed_attempts.to_s
+
+      section = root.%('assessment/section')
+      expect(section.attributes['ident'].value).to eq 'root_section'
+      expect(section.%('item').attributes['ident'].value).to eq question.identifier.to_s
+    end
+
+  end
+end

data/spec/moodle2cc/canvas_cc/assignment_group_writer_spec.rb

@@ -0,0 +1,51 @@
+require 'spec_helper'
+
+module CanvasCc::CanvasCC
+  describe AssignmentGroupWriter do
+
+    let(:assignment_group) { CanvasCc::CanvasCC::Models::AssignmentGroup.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 'xml contains the correct schema' do
+      xml = write_xml(assignment_group)
+
+      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_true
+    end
+
+    it 'adds assignment group' do
+      assignment_group.identifier = 'identifier'
+      assignment_group.title = 'title'
+      assignment_group.position = '1'
+      assignment_group.group_weight = '1'
+      assignment_group.rules << {b:2, c:3}
+      xml = write_xml(assignment_group)
+      expect(xml.at_xpath('/xmlns:assignmentGroups/xmlns:assignmentGroup/@identifier').text).to eq(assignment_group.identifier)
+      expect(xml.at_xpath('/xmlns:assignmentGroups/xmlns:assignmentGroup/xmlns:title').text).to eq(assignment_group.title)
+      expect(xml.at_xpath('/xmlns:assignmentGroups/xmlns:assignmentGroup/xmlns:position').text).to eq(assignment_group.position)
+      expect(xml.at_xpath('/xmlns:assignmentGroups/xmlns:assignmentGroup/xmlns:group_weight').text).to eq(assignment_group.group_weight)
+      expect(xml.at_xpath('/xmlns:assignmentGroups/xmlns:assignmentGroup/xmlns:rules/xmlns:rule/xmlns:b').text).to eq "2"
+      expect(xml.at_xpath('/xmlns:assignmentGroups/xmlns:assignmentGroup/xmlns:rules/xmlns:rule/xmlns:c').text).to eq "3"
+    end
+
+    private
+
+    def write_xml(assignment_group)
+      AssignmentGroupWriter.new(tmpdir, [assignment_group]).write
+      path = File.join(tmpdir,
+                       CartridgeCreator::COURSE_SETTINGS_DIR,
+                       AssignmentGroupWriter::ASSIGNMENT_GROUP_FILE)
+      Nokogiri::XML(File.read(path))
+    end
+
+  end
+end

data/spec/moodle2cc/canvas_cc/assignment_writer_spec.rb

@@ -0,0 +1,74 @@
+require 'spec_helper'
+
+describe CanvasCc::CanvasCC::AssignmentWriter do
+  subject { CanvasCc::CanvasCC::AssignmentWriter.new(work_dir, assignment) }
+  let(:work_dir) { Dir.mktmpdir }
+  let(:assignment) { CanvasCc::CanvasCC::Models::Assignment.new }
+
+  after(:each) do
+    FileUtils.rm_r work_dir
+  end
+
+  it 'creates the assignment settings xml' do
+    assignment.identifier = 'assignment_id'
+    assignment.title = 'Assignment Title'
+    assignment.due_at = Time.parse('Sat, 08 Feb 2014 16:00:00 GMT')
+    assignment.lock_at = Time.parse('Sat, 08 Feb 2014 17:00:00 GMT')
+    assignment.unlock_at = Time.parse('Sat, 08 Feb 2014 18:00:00 GMT')
+    assignment.peer_reviews_due_at = Time.parse('Sat, 08 Feb 2014 19:00:00 GMT')
+    assignment.all_day_date = Time.parse('Sat, 08 Feb 2014 00:00:00 GMT')
+    assignment.assignment_group_identifier_ref = 'assignment_group_id'
+    assignment.workflow_state = 'active'
+    assignment.points_possible = '30'
+    assignment.grading_type = 'points'
+    assignment.all_day = 'true'
+    assignment.submission_types = %w(online_text_entry online_url online_upload)
+    assignment.position = '2'
+    assignment.peer_review_count = '0'
+    assignment.peer_reviews_assigned = 'false'
+    assignment.peer_reviews = 'false'
+    assignment.automatic_peer_reviews = 'true'
+    assignment.grade_group_students_individually = 'false'
+    assignment.muted = true
+
+    subject.write
+    xml = Nokogiri::XML(File.read(File.join(work_dir, assignment.assignment_resource.files.select{ |f| f.split(//).last(4).join("").to_s == '.xml'}.first)))
+    expect(xml.at_xpath('xmlns:assignment/@identifier').value).to eq('assignment_id')
+    expect(xml.%('assignment/title').text).to eq 'Assignment Title'
+    expect(xml.%('assignment/due_at').text).to eq '2014-02-08T16:00:00'
+    expect(xml.%('assignment/lock_at').text).to eq '2014-02-08T17:00:00'
+    expect(xml.%('assignment/unlock_at').text).to eq '2014-02-08T18:00:00'
+    expect(xml.%('assignment/all_day_date').text).to eq '2014-02-08T00:00:00'
+    expect(xml.%('assignment/peer_reviews_due_at').text).to eq '2014-02-08T19:00:00'
+    expect(xml.%('assignment/assignment_group_identifierref').text).to eq 'assignment_group_id'
+    expect(xml.%('assignment/workflow_state').text).to eq 'active'
+    expect(xml.%('assignment/points_possible').text).to eq '30'
+    expect(xml.%('assignment/grading_type').text).to eq 'points'
+    expect(xml.%('assignment/all_day').text).to eq 'true'
+    expect(xml.%('assignment/submission_types').text).to eq 'online_text_entry,online_url,online_upload'
+    expect(xml.%('assignment/position').text).to eq '2'
+    expect(xml.%('assignment/peer_review_count').text).to eq '0'
+    expect(xml.%('assignment/peer_reviews_assigned').text).to eq 'false'
+    expect(xml.%('assignment/peer_reviews').text).to eq 'false'
+    expect(xml.%('assignment/automatic_peer_reviews').text).to eq 'true'
+    expect(xml.%('assignment/grade_group_students_individually').text).to eq 'false'
+    expect(xml.%('assignment/muted').text).to eq 'true'
+
+  end
+
+  it 'creates the assignment html' do
+    assignment.identifier = 'assignment_id'
+    assignment.title = 'Assignment Title'
+    assignment.body = '<p>My Body Content</p>'
+
+    subject.write
+    html = Nokogiri::HTML(File.read(File.join(work_dir, assignment.assignment_resource.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('title').text).to eq 'Assignment: Assignment Title'
+    expect(html.at_css('body').inner_html.to_s).to eq '<p>My Body Content</p>'
+
+  end
+
+end

data/spec/moodle2cc/canvas_cc/calculated_question_writer_spec.rb

@@ -0,0 +1,88 @@
+require 'spec_helper'
+
+module CanvasCc::CanvasCC
+  describe CalculatedQuestionWriter do
+
+    let(:question) { CanvasCc::CanvasCC::Models::Question.create('calculated_question')}
+
+    it 'creates the question item xml for a calculated question' do
+      question.identifier = 42
+      question.title = 'hi title'
+      question.general_feedback = 'unconstructive feedback'
+      question.material = 'materlia'
+
+      question.correct_answer_format = '1'
+      question.correct_answer_length = '2'
+      question.tolerance = '0.01'
+
+      answer = CanvasCc::CanvasCC::Models::Answer.new
+      answer.answer_text = '{A}*{B}'
+      answer.fraction = 1
+      question.answers = [answer]
+
+      question.dataset_definitions = [
+        {
+          :name => 'A',
+          :options => 'uniform:1.0:10.0:1'
+        },
+        {
+          :name => 'B',
+          :options => 'uniform:10.0:20.0:1'
+        }
+      ]
+
+      question.var_sets = [{:ident => '1', :vars => {'A' => '3.6', 'B' => '3.1'}}]
+
+      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'
+
+      # Correct Condition
+      condition = xml.root.at_xpath('resprocessing/respcondition[@title="correct"]')
+      expect(condition.at_xpath('conditionvar/other')).to_not be_nil
+      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.root.at_xpath('resprocessing/respcondition[@title="incorrect"]')
+      expect(condition.at_xpath('conditionvar/other')).to_not be_nil
+      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'
+
+      # Calculations
+      calculated = xml.root.at_xpath('itemproc_extension/calculated')
+      expect(calculated.at_xpath('answer_tolerance').text).to eq question.tolerance
+
+      # Formulas
+      expect(calculated.at_xpath('formulas[@decimal_places="2"]')).to_not be_nil
+      expect(calculated.at_xpath('formulas/formula["A*B"]')).to_not be_nil
+
+      # Var
+      a_var = calculated.at_xpath('vars/var[@scale="1"][@name="A"]')
+      expect(a_var.at_xpath('min').text).to eq '1.0'
+      expect(a_var.at_xpath('max').text).to eq '10.0'
+
+      b_var = calculated.at_xpath('vars/var[@scale="1"][@name="B"]')
+      expect(b_var.at_xpath('min').text).to eq '10.0'
+      expect(b_var.at_xpath('max').text).to eq '20.0'
+
+      # Var sets
+      var_set = calculated.at_xpath('var_sets/var_set[@ident="3631"]')
+      expect(var_set.at_xpath('var[@name="A"]').text).to eq "3.6"
+      expect(var_set.at_xpath('var[@name="B"]').text).to eq "3.1"
+    end
+  end
+end

data/spec/moodle2cc/canvas_cc/canvas_export_writer_spec.rb

@@ -0,0 +1,26 @@
+require 'spec_helper'
+
+module CanvasCc::CanvasCC
+  describe CanvasExportWriter do
+
+    subject { CanvasExportWriter.new(tmpdir) }
+    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 "writes to the export file" do
+      subject.write
+      path = File.join(tmpdir,
+                       CartridgeCreator::COURSE_SETTINGS_DIR,
+                       CanvasExportWriter::CANVAS_EXPORT_FILE)
+      expect(File.exist?(path)).to be_true
+    end
+
+  end
+end

data/spec/moodle2cc/canvas_cc/cartridge_creator_spec.rb

@@ -0,0 +1,50 @@
+require 'spec_helper'
+
+module CanvasCc::CanvasCC
+  describe CartridgeCreator do
+    subject { CartridgeCreator.new(course) }
+
+    let(:tmpdir) { Dir.mktmpdir }
+    let(:course) { Models::Course.new }
+
+    before :each do
+      course.identifier = 'setting'
+      course.title = 'My Course'
+      course.canvas_modules << Models::CanvasModule.new
+
+      CanvasExportWriter.any_instance.stub(:write)
+      CourseSettingWriter.any_instance.stub(:write)
+      ModuleMetaWriter.any_instance.stub(:write)
+      ImsManifestGenerator.any_instance.stub(:write)
+      FileMetaWriter.any_instance.stub(:write)
+      PageWriter.any_instance.stub(:write)
+      DiscussionWriter.any_instance.stub(:write)
+      AssignmentWriter.any_instance.stub(:write)
+      QuestionBankWriter.any_instance.stub(:write)
+    end
+
+    after :each do
+      FileUtils.rm_r tmpdir
+    end
+
+    [CanvasExportWriter, CourseSettingWriter, ModuleMetaWriter, ImsManifestGenerator,
+     FileMetaWriter, PageWriter, DiscussionWriter, AssignmentWriter, QuestionBankWriter].each do |klass|
+      it "writes #{klass}" do
+        writer_double = double(write: nil)
+        klass.stub(:new).and_return(writer_double)
+        subject.create(tmpdir)
+        expect(writer_double).to have_received(:write)
+      end
+    end
+
+    describe 'filename' do
+      ['My Stuff', 'my/stuff', 'my.stuff', 'my-stuff', 'my--stuff', 'my---stuff', 'my-./stuff'].each do |title|
+        it "with course title: #{title}" do
+          course.title = title
+          expect(subject.filename).to eq('my_stuff.imscc')
+        end
+      end
+    end
+
+  end
+end