scorm2004-manifest 0.1.0

data/test/scorm2004/manifest/presentation_test.rb

@@ -0,0 +1,26 @@
+require_relative '../../helper'
+
+module Scorm2004
+  module Manifest
+    class PresentationTest < ActiveSupport::TestCase
+      include PartialManifest
+      
+      setup do
+        @v = Presentation.new
+      end
+      
+      test 'an empty element' do
+        assert el('<dummy />').accept(@v)
+      end
+
+      test 'an element with child' do
+        @v.expects(:navigation_interface_visitor).once.returns(mock(:visit))
+        assert el(<<-XML).accept(@v)
+          <dummy>
+            <adlnav:navigationInterface />
+          </dummy>
+        XML
+      end
+    end
+  end
+end

data/test/scorm2004/manifest/primary_objective_test.rb

@@ -0,0 +1,65 @@
+require_relative '../../helper'
+
+module Scorm2004
+  module Manifest
+    class PrimaryObjectiveTest < ActiveSupport::TestCase
+      include PartialManifest
+      
+      setup do
+        @v = PrimaryObjective.new
+        @v.stubs(:map_info_visitor).returns(stub(:visit))
+      end
+      
+      test 'default satisfiedByMeasure' do
+        el.accept(@v)
+        assert_equal false, @v.satisfied_by_measure
+      end
+
+      test 'a visitor visits <minNormalizedMeasure>' do
+        @v.expects(:min_normalized_measure_visitor).once.returns(mock(:visit))
+        el('<dummy><imsss:minNormalizedMeasure /></dummy>').accept(@v)
+      end
+
+      test 'the objectiveID attribute' do
+        el('<dummy objectiveID="foo" />').accept(@v)
+        assert_equal 'foo', @v.objective_id
+      end
+
+      test 'a visitor visits multiple <mapInfo>s' do
+        map_info_visitor = mock()
+        map_info_visitor.expects(:visit).twice
+        @v.expects(:map_info_visitor).twice.returns(map_info_visitor)
+        el(<<-XML).accept(@v)
+          <dummy objectiveID="dummy">
+            <imsss:mapInfo />
+            <imsss:mapInfo />
+          </dummy>
+        XML
+      end
+
+      test 'If an element contains an objective map, then the objectiveID attribute is required.' do
+        assert_error do
+          el(<<-XML).accept(@v)
+            <dummy>
+              <imsss:mapInfo />
+            </dummy>
+          XML
+        end
+      end
+
+      test 'an element with both objectiveID and <mapInfo> does not cause error' do
+        assert_nothing_raised do
+          el(<<-XML).accept(@v)
+            <dummy objectiveID="dummy">
+              <imsss:mapInfo />
+            </dummy>
+          XML
+        end
+      end
+
+      def assert_error(&block)
+        assert_raise PrimaryObjective::Error, &block
+      end
+    end
+  end
+end

data/test/scorm2004/manifest/randomization_controls_test.rb

@@ -0,0 +1,71 @@
+require_relative '../../helper'
+
+module Scorm2004
+  module Manifest
+    class RandomizationControlsTest < ActiveSupport::TestCase
+      include PartialManifest
+      
+      setup do
+        @v = RandomizationControls.new
+      end
+      
+      test 'default values' do
+        el.accept(@v)
+        assert_equal 'never', @v.randomization_timing
+        assert_equal false,   @v.reorder_children
+        assert_equal 'never', @v.selection_timing
+      end
+
+      RandomizationControls::TIMINGS.each do |timing|
+        tag = "<dummy randomizationTiming='#{timing}' />"
+        test tag do
+          el(tag).accept(@v)
+          assert_equal timing, @v.randomization_timing
+        end
+      end
+
+      RandomizationControls::TIMINGS.each do |timing|
+        tag = "<dummy selectionTiming='#{timing}' />"
+        test tag do
+          el(tag).accept(@v)
+          assert_equal timing, @v.selection_timing
+        end
+      end
+
+      test 'invalid randomizationTiming' do
+        assert_error { el('<dummy randomizationTiming="invalid" />').accept(@v) }
+      end
+
+      test 'invalid selectionTiming' do
+        assert_error { el('<dummy selectionTiming="invalid" />').accept(@v) }
+      end
+
+      1.upto(10) do |n|
+        tag = "<dummy selectCount='#{n}' />"
+        test tag do
+          el(tag).accept(@v)
+          assert_equal n, @v.select_count
+        end
+      end
+
+      [-1, 1.000, 0.001].each do |invalid_value|
+        tag = "<dummy selectCount='#{invalid_value}' />"
+        test tag do
+          assert_error { el(tag).accept(@v) }
+        end
+      end
+
+      [true, false].each do |boolean|
+        tag = "<dummy reorderChildren='#{boolean}' />"
+        test tag do
+          el(tag).accept(@v)
+          assert_equal boolean, @v.reorder_children
+        end
+      end
+
+      def assert_error(&block)
+        assert_raise RandomizationControls::Error, &block
+      end
+    end
+  end
+end

data/test/scorm2004/manifest/resource_test.rb

@@ -0,0 +1,96 @@
+require_relative '../../helper'
+
+module Scorm2004
+  module Manifest
+    class ResourceTest < ActiveSupport::TestCase
+      include PartialManifest
+      
+      VALID_RESOURCE_ELEMENT =<<-XML
+        <resource identifier="a12"
+                  href="path/to/file.html"
+                  adlcp:scormType="sco" />
+      XML
+
+      context 'a resource visitor' do
+        setup do
+          @v = Resource.new(base: Pathname('path/to/base'))
+        end
+
+        context 'visiting a valid element' do
+          should 'set its attribute properly' do
+            el(VALID_RESOURCE_ELEMENT).accept(@v)
+            assert_equal 'a12',                            @v.identifier
+            assert_equal 'path/to/base/path/to/file.html', @v.href
+            assert_equal 'sco',                            @v.scorm_type
+          end
+        end
+
+        context 'visiting a valid element without href' do
+          should 'raise nothing' do
+            assert_nothing_raised do
+              el('<resource identifier="a12" adlcp:scormType="sco" />').accept(@v)
+            end
+          end
+        end
+
+        context 'visiting an element without identifier' do
+          should 'raise exception' do
+            assert_error do
+              el('<resource href="x" adlcp:scormType="sco" />').accept(@v)
+            end
+          end
+        end
+
+        context 'visiting an element without scormType' do
+          should 'raise exceptoin' do
+            assert_error do
+              el('<resource identifier="b34" />').accept(@v)
+            end
+          end
+        end
+
+        context 'visiting an element with its scormType invalid' do
+          should 'raise exception' do
+            assert_error do
+              el('<resource identifier="c56" adlcp:scormType="file" />').accept(@v)
+            end
+          end
+        end
+
+        context 'visiting an element with files' do
+          should 'visit the files' do
+            file_visitor = mock()
+            file_visitor.expects(:visit).twice
+            @v.expects(:file_visitor).twice.returns(file_visitor)
+            el(<<-XML).accept(@v)
+              <resource identifier="x01" adlcp:scormType="asset">
+                <file />
+                <file />
+              </resource>
+            XML
+          end
+        end
+
+        context 'visiting an element with dependencies' do
+          should 'visit the dependencies' do
+            dependency_visitor = mock()
+            dependency_visitor.expects(:visit).twice
+            @v.expects(:dependency_visitor).twice.returns(dependency_visitor)
+            el(<<-XML).accept(@v)
+              <resource identifier="x01" adlcp:scormType="asset">
+                <dependency />
+                <dependency />
+              </resource>
+            XML
+          end
+        end
+      end
+
+      private
+
+      def assert_error(&block)
+        assert_raise Resource::Error, &block
+      end
+    end
+  end
+end

data/test/scorm2004/manifest/resources_test.rb

@@ -0,0 +1,41 @@
+require_relative '../../helper'
+
+module Scorm2004
+  module Manifest
+    class ResourcesTest < ActiveSupport::TestCase
+      include PartialManifest
+      
+      setup do
+        @v = Resources.new
+      end
+      
+      context 'a resources visitor' do
+        should 'support xml:base' do
+          assert @v.respond_to? :base
+        end
+      end
+
+      context 'a resources visitor visiting an empty element' do
+        should 'not raise exceptoin' do
+          assert_nothing_raised do
+            el('<dummy />').accept(@v)
+          end
+        end
+      end
+
+      context 'a resources visitor visiting an element with resource elements' do
+        should 'visit these elements' do
+          v = mock()
+          v.expects(:visit).twice
+          @v.expects(:resource_visitor).twice.returns(v)
+          el(<<-XML).accept(@v)
+            <dummy>
+              <resource />
+              <resource />
+            </dummy>
+          XML
+        end
+      end
+    end
+  end
+end

data/test/scorm2004/manifest/rollup_action_test.rb

@@ -0,0 +1,33 @@
+require_relative '../../helper'
+
+module Scorm2004
+  module Manifest
+    class RollupActionTest < ActiveSupport::TestCase
+      include PartialManifest
+      
+      setup do
+        @v = RollupAction.new
+      end
+      
+      test 'an empty element causes error' do
+        assert_error { el.accept(@v) }
+      end
+
+      RollupAction::ACTIONS.each do |action|
+        tag = "<dummy action='#{action}' />"
+        test tag do
+          el(tag).accept(@v)
+          assert_equal action, @v.action
+        end
+      end
+
+      test 'invalid action' do
+        assert_error { el('<dummy action="invalid" />').accept(@v) }
+      end
+
+      def assert_error(&block)
+        assert_raise RollupAction::Error, &block
+      end
+    end
+  end
+end

data/test/scorm2004/manifest/rollup_condition_test.rb

@@ -0,0 +1,42 @@
+require_relative '../../helper'
+
+module Scorm2004
+  module Manifest
+    class RollupConditionTest < ActiveSupport::TestCase
+      include PartialManifest
+      
+      setup do
+        @v = RollupCondition.new
+      end
+      
+      test 'an empty element causes error' do
+        assert_error { el.accept(@v) }
+      end
+
+      test 'the operator attribute defaults noOp' do
+        el('<dummy condition="satisfied" />').accept(@v)
+        assert_equal 'noOp', @v.operator
+      end
+
+      RollupCondition::CONDITIONS.each do |condition|
+        tag = "<dummy condition='#{condition}' />"
+        test tag do
+          el(tag).accept(@v)
+          assert_equal condition, @v.condition
+        end
+      end
+
+      test 'an invalid operator causes error' do
+        assert_error { el('<dummy condition="satisfied" operator="invalid" />').accept(@v) }
+      end
+
+      test 'an invalid condition causes error' do
+        assert_error { el('<dummy condition="invalid" />').accept(@v) }
+      end
+
+      def assert_error(&block)
+        assert_raise RollupCondition::Error, &block
+      end
+    end
+  end
+end

data/test/scorm2004/manifest/rollup_conditions_test.rb

@@ -0,0 +1,53 @@
+require_relative '../../helper'
+
+module Scorm2004
+  module Manifest
+    class RollupConditionsTest < ActiveSupport::TestCase
+      include PartialManifest
+      
+      setup do
+        @v = RollupConditions.new
+        @v.stubs(:rollup_condition_visitor).returns(stub(:visit))
+      end
+      
+      test 'an empty element causes error' do
+        assert_error { el.accept(@v) }
+      end
+
+      test 'default conditionCombination' do
+        el('<dummy><imsss:rollupCondition /></dummy>').accept(@v)
+        assert_equal 'any', @v.condition_combination
+      end
+
+      %w( all any ).each do |valid_condition_combination|
+        tag = "<dummy conditionCombination='#{valid_condition_combination}'><imsss:rollupCondition /></dummy>"
+        test tag do
+          el(tag).accept(@v)
+          assert_equal valid_condition_combination, @v.condition_combination
+        end
+      end
+
+      test 'invalid conditionCombination' do
+        assert_error do
+          el('<dummy conditionCombination="invalid"><imsss:rollupCondition /></dummy>').accept(@v)
+        end
+      end
+
+      test 'a visitor visit multiple children' do
+        rollup_condition_visitor = mock()
+        rollup_condition_visitor.expects(:visit).twice
+        @v.expects(:rollup_condition_visitor).twice.returns(rollup_condition_visitor)
+        el(<<-XML).accept(@v)
+          <dummy>
+            <imsss:rollupCondition />
+            <imsss:rollupCondition />
+          </dummy>
+        XML
+      end
+
+      def assert_error(&block)
+        assert_raise RollupConditions::Error, &block
+      end
+    end
+  end
+end

data/test/scorm2004/manifest/rollup_considerations_test.rb

@@ -0,0 +1,42 @@
+require_relative '../../helper'
+
+module Scorm2004
+  module Manifest
+    class RollupConsiderationsTest < ActiveSupport::TestCase
+      include PartialManifest
+      
+      def self.token_attributes
+        RollupConsiderations.attributes - [:measure_satisfaction_if_active]
+      end
+
+      setup do
+        @v = RollupConsiderations.new
+      end
+
+      test 'default value of measureSatisfactionIfActive' do
+        el.accept @v
+        assert_equal true, @v.measure_satisfaction_if_active
+      end
+
+      token_attributes.each do |attr|
+        test "default value of #{attr}" do
+          el.accept @v
+          assert_equal 'always', @v.send(attr)
+        end
+      end
+
+      token_attributes.product(RollupConsiderations::CONDITIONS).each do |attr, condition|
+        tag = "<dummy #{attr.to_s.camelize :lower}='#{condition}' />"
+        test tag do
+          el(tag).accept @v
+          assert_equal condition, @v.send(attr)
+        end
+      end
+
+      test 'false measureSatisfactionIfActive' do
+        el('<dummy measureSatisfactionIfActive="0" />').accept @v
+        assert_equal false, @v.measure_satisfaction_if_active
+      end
+    end
+  end
+end

data/test/scorm2004/manifest/rollup_rule_test.rb

@@ -0,0 +1,87 @@
+require_relative '../../helper'
+
+module Scorm2004
+  module Manifest
+    class RollupRuleTest < ActiveSupport::TestCase
+      include PartialManifest
+      
+      setup do
+        @v = RollupRule.new
+        @v.stubs(:rollup_conditions_visitor).returns(stub(:visit))
+        @v.stubs(:rollup_action_visitor).returns(stub(:visit))
+      end
+      
+      test 'an empty element causes error' do
+        assert_error { el.accept @v }
+      end
+
+      test 'a visitor should visit children' do
+        @v = RollupRule.new
+        rollup_conditions_visitor = mock()
+        rollup_conditions_visitor.expects(:visit)
+        @v.expects(:rollup_conditions_visitor).returns(rollup_conditions_visitor)
+        rollup_action_visitor = mock()
+        rollup_action_visitor.expects(:visit)
+        @v.expects(:rollup_action_visitor).returns(rollup_action_visitor)
+        el(<<-XML).accept @v
+          <dummy>
+            <imsss:rollupConditions />
+            <imsss:rollupAction />
+          </dummy>
+        XML
+      end
+
+      test 'a visitor sets default values' do
+        el(<<-XML).accept @v
+          <dummy>
+            <imsss:rollupConditions />
+            <imsss:rollupAction />
+          </dummy>
+        XML
+        assert_equal 'all', @v.child_activity_set
+        assert_equal 0, @v.minimum_count 
+        assert_equal 0.0, @v.minimum_percent
+      end
+
+      RollupRule::CONDITIONS.each do |token|
+        test "childActivitySet = '#{token}'" do
+          el(<<-XML).accept @v
+            <dummy childActivitySet='#{token}'>
+              <imsss:rollupConditions />
+              <imsss:rollupAction />
+            </dummy>
+          XML
+          assert_equal token, @v.child_activity_set
+        end
+      end
+
+      0.upto(10) do |n|
+        test "minimumCount = '#{n}'" do
+          el(<<-XML).accept @v
+            <dummy minimumCount='#{n}'>
+              <imsss:rollupConditions />
+              <imsss:rollupAction />
+            </dummy>
+          XML
+          assert_equal n, @v.minimum_count
+        end
+      end
+
+      [0.0, 0.5, 1.0].each do |percent|
+        test "minimumPercent = '#{percent}'" do
+          el(<<-XML).accept @v
+            <dummy minimumPercent='#{percent}'>
+              <imsss:rollupConditions />
+              <imsss:rollupAction />
+            </dummy>
+          XML
+          assert_equal percent, @v.minimum_percent
+        end
+      end
+
+      def assert_error(&block)
+        assert_raise RollupRule::Error, &block
+      end
+    end
+  end
+end

data/test/scorm2004/manifest/rollup_rules_test.rb

@@ -0,0 +1,60 @@
+require_relative '../../helper'
+
+module Scorm2004
+  module Manifest
+    class RollupRulesTest < ActiveSupport::TestCase
+      include PartialManifest
+      
+      setup do
+        @v = RollupRules.new
+        @v.stubs(:rollup_rule_visitor).returns(stub(:visit))
+      end
+
+      test 'a visitor sets default values as its attribute' do
+        el.accept @v
+        assert_equal true, @v.rollup_objective_satisfied
+        assert_equal true, @v.rollup_progress_completion
+        assert_equal 1.0,  @v.objective_measure_weight
+      end
+
+      test 'a fully-equipped element' do
+        rollup_rule_visitor = mock()
+        rollup_rule_visitor.expects(:visit).twice
+        @v.expects(:rollup_rule_visitor).twice.returns(rollup_rule_visitor)
+        el(<<-XML).accept(@v)
+          <dummy>
+            <imsss:rollupRule />
+            <imsss:rollupRule />
+          </dummy>
+        XML
+      end
+
+      [0.0, 0.5, 1.0].each do |valid_objective_measure_weight|
+        tag = <<-XML
+          <dummy objectiveMeasureWeight="#{valid_objective_measure_weight}">
+            <imsss:rollupRule />
+          </dummy>
+        XML
+        test tag do
+          el(tag).accept(@v)
+          assert_equal valid_objective_measure_weight, @v.objective_measure_weight
+        end
+      end
+
+      [-0.0001, 1.0001].each do |invalid_objective_measure_weight|
+        tag = <<-XML
+          <dummy objectiveMeasureWeight="#{invalid_objective_measure_weight}">
+            <imsss:rollupRule />
+          </dummy>
+        XML
+        test tag do
+          assert_error { el(tag).accept(@v) }
+        end
+      end
+
+      def assert_error &block
+        assert_raise RollupRules::Error, &block
+      end
+    end
+  end
+end