scorm2004-manifest 0.1.0

data/test/scorm2004/manifest/rule_action_test.rb

@@ -0,0 +1,79 @@
+require_relative '../../helper'
+
+module Scorm2004
+  module Manifest
+    class RuleActionTest < ActiveSupport::TestCase
+      include PartialManifest
+      
+      setup do
+        @v = RuleAction.new
+      end
+      
+      test 'an empty element causes error' do
+        assert_error do
+          el('<dummy />').accept(@v)
+        end
+      end
+
+      Scorm2004::Manifest::RuleAction::PRE.each do |token|
+        tag = "<imsss:ruleAction action='#{token}' />"
+        context tag do
+          should 'be accepted if it is within <preConditionRule>.' do
+            assert pre_el(tag).accept(@v)
+          end
+
+          should 'cause error if it is within either <postConditionRule> or <exitConditionRule>' do
+            assert_error { post_el(tag).accept(@v) }
+            assert_error { exit_el(tag).accept(@v) }
+          end
+        end
+      end
+
+      Scorm2004::Manifest::RuleAction::POST.each do |token|
+        tag = "<imsss:ruleAction action='#{token}' />"
+        context tag do
+          should 'be accepted if it is within <postConditionRule>.' do
+            assert post_el(tag).accept(@v)
+          end
+
+          should 'cause error if it is within either <preConditionRule> or <exitConditionRule>' do
+            assert_error { pre_el(tag).accept(@v) }
+            assert_error { exit_el(tag).accept(@v) }
+          end
+        end
+      end
+
+      Scorm2004::Manifest::RuleAction::EXIT.each do |token|
+        tag = "<imsss:ruleAction action='#{token}' />"
+        context tag do
+          should 'be accepted if it is within <exitConditionRule>.' do
+            assert exit_el(tag).accept(@v)
+          end
+
+          should 'cause error if it is within either <preConditionRule> or <postConditionRule>' do
+            assert_error { pre_el(tag).accept(@v) }
+            assert_error { post_el(tag).accept(@v) }
+          end
+        end
+      end
+
+      private
+
+      def assert_error(&block)
+        assert_raise RuleAction::Error, &block
+      end
+
+      def pre_el(xml)
+        el("<imsss:preConditionRule>#{xml}</imsss:preConditionRule").at('./*')
+      end
+
+      def post_el(xml)
+        el("<imsss:postConditionRule>#{xml}</imsss:postConditionRule").at('./*')
+      end
+
+      def exit_el(xml)
+        el("<imsss:exitConditionRule>#{xml}</imsss:exitConditionRule").at('./*')
+      end
+    end
+  end
+end

data/test/scorm2004/manifest/rule_condition_test.rb

@@ -0,0 +1,70 @@
+require_relative '../../helper'
+
+module Scorm2004
+  module Manifest
+    class RuleConditionTest < ActiveSupport::TestCase
+      include PartialManifest
+      
+      setup do
+        @v = RuleCondition.new
+      end
+      
+      test 'an empty element causes error' do
+        assert_error do
+          el('<dummy />').accept(@v)
+        end
+      end
+
+      test 'a visitor sets default operator value' do
+        el('<dummy condition="always" />').accept(@v)
+        assert_equal 'noOp', @v.operator
+      end
+
+      [-1.0, 0.0, 1.0].each do |valid_measure_threshold|
+        test "valid measure threshold: #{valid_measure_threshold}" do
+          el("<dummy measureThreshold='#{valid_measure_threshold}' condition='always' />").accept(@v)
+          assert_equal valid_measure_threshold, @v.measure_threshold
+        end
+      end
+
+      [-1.0001, 1.0001].each do |invalid_measure_threshold|
+        test "invalid measure threshold: #{invalid_measure_threshold}" do
+          assert_error do
+            el("<dummy measureThreshold='#{invalid_measure_threshold}' condition='always' />").accept(@v)
+          end
+        end
+      end
+
+      Scorm2004::Manifest::RuleCondition::CONDITIONS.each do |token|
+        test "valid condition token: #{token}" do
+          el("<dummy condition='#{token}' />").accept(@v)
+          assert_equal token, @v.condition
+        end
+      end
+
+      test 'invalid condition token causes error' do
+        assert_error do
+          el('<dummy condition="invalid" />').accept(@v)
+        end
+      end
+
+      test 'The referencedObjective attribute cannot be an empty string' do
+        assert_error do
+          el('<dummy referencedObjective="" condition="always" />').accept(@v)
+        end
+      end
+
+      [" ", "\t", "\n", "\r" ].each do |whitespace|
+        test "The referencedObjective cannot contain #{whitespace.dump}" do
+          assert_error do
+            el("<dummy referencedObjective='foo#{whitespace}bar' condition='always' />").accept(@v)
+          end
+        end
+      end
+
+      def assert_error(&block)
+        assert_raise RuleCondition::Error, &block
+      end
+    end
+  end
+end

data/test/scorm2004/manifest/rule_conditions_test.rb

@@ -0,0 +1,37 @@
+require_relative '../../helper'
+
+module Scorm2004
+  module Manifest
+    class RuleConditionsTest < ActiveSupport::TestCase
+      include PartialManifest
+      
+      setup do
+        @v = RuleConditions.new
+        @v.stubs(:rule_condition_visitor).returns(stub(:visit))
+      end
+      
+      test 'a visitor set the default value as its attribute' do
+        el('<dummy><imsss:ruleCondition /></dummy>').accept(@v)
+        assert_equal 'all', @v.condition_combination
+      end
+
+      test 'a visitor visits its children' do
+        rule_condition_visitor = mock()
+        rule_condition_visitor.expects(:visit).twice
+        @v.expects(:rule_condition_visitor).twice.returns(rule_condition_visitor)
+        assert el(<<-XML).accept(@v)
+          <dummy>
+            <imsss:ruleCondition />
+            <imsss:ruleCondition />
+          </dummy>  
+        XML
+      end
+
+      test 'an element without any <ruleCondition>s causes error' do
+        assert_raise RuleConditions::Error do
+          el('<dummy />').accept(@v)
+        end
+      end
+    end
+  end
+end

data/test/scorm2004/manifest/schema_test.rb

@@ -0,0 +1,29 @@
+require_relative '../../helper'
+
+module Scorm2004
+  module Manifest
+    class SchemaTest < ActiveSupport::TestCase
+      include PartialManifest
+      
+      setup do
+        @v = Schema.new
+      end
+      
+      context 'a schema visitor visiting a valid element' do
+        should 'not raise exception' do
+          assert_nothing_raised do
+            el('<dummy>ADL SCORM</dummy>').accept(@v)
+          end
+        end
+      end
+
+      context 'a schema visitor visiting an element with invalid schema' do
+        should 'raise exception' do
+          assert_raise Schema::Error do
+            el('<dummy>SCORM</dummy>').accept(@v)
+          end
+        end
+      end
+    end
+  end
+end

data/test/scorm2004/manifest/schemaversion_test.rb

@@ -0,0 +1,29 @@
+require_relative '../../helper'
+
+module Scorm2004
+  module Manifest
+    class SchemaversionTest < ActiveSupport::TestCase
+      include PartialManifest
+      
+      setup do
+        @v = Schemaversion.new
+      end
+      
+      context 'a schemaversion visitor visiting a valid element' do
+        should 'not raise exceptoin' do
+          assert_nothing_raised do
+            el('<dummy>2004 4th Edition</dummy>').accept(@v)
+          end
+        end
+      end
+
+      context 'a schemaversion visitor visiting an element with invalid schemaversion' do
+        should 'raise exception' do
+          assert_raise Schemaversion::Error do
+            el('<dummy>2004 3rd Edition</dummy>').accept(@v)
+          end
+        end
+      end
+    end
+  end
+end

data/test/scorm2004/manifest/sequencing_collection_test.rb

@@ -0,0 +1,31 @@
+require_relative '../../helper'
+
+module Scorm2004
+  module Manifest
+    class SequencingCollectionTest < ActiveSupport::TestCase
+      include PartialManifest
+      
+      setup do
+        @v = SequencingCollection.new
+      end
+      
+      test 'an empety element' do
+        assert_raise SequencingCollection::Error do
+          el('<dummy />').accept(@v)
+        end
+      end
+
+      test 'an elemeent with two sequencings' do
+        sequencing_visitor = mock()
+        sequencing_visitor.expects(:visit).twice
+        @v.expects(:sequencing_visitor).twice.returns(sequencing_visitor)
+        assert el(<<-XML).accept(@v)
+          <dummy>
+            <imsss:sequencing />
+            <imsss:sequencing />
+          </dummy>
+        XML
+      end
+    end
+  end
+end

data/test/scorm2004/manifest/sequencing_rules_test.rb

@@ -0,0 +1,36 @@
+require_relative '../../helper'
+
+module Scorm2004
+  module Manifest
+    class SequencingRulesTest < ActiveSupport::TestCase
+      include PartialManifest
+      
+      setup do
+        @v = SequencingRules.new
+      end
+      
+      test 'an empty element' do
+        assert el('<dummy />').accept(@v)
+      end
+
+      test 'an element with children' do
+        condition_rule_visitor = mock()
+        condition_rule_visitor.expects(:visit).times(6)
+        @v.expects(:condition_rule_visitor).times(6).returns(condition_rule_visitor)
+        el(<<-XML).accept(@v)
+          <dummy>
+            <imsss:preConditionRule /><imsss:preConditionRule />
+            <imsss:postConditionRule /><imsss:postConditionRule />
+            <imsss:exitConditionRule /><imsss:exitConditionRule />
+          </dummy>
+        XML
+      end
+
+      %w( pre_condition_rules post_condition_rules exit_condition_rules ).each do |children|
+        test "a visitor responds to :#{children}" do
+          assert @v.respond_to? children.intern
+        end
+      end
+    end
+  end
+end

data/test/scorm2004/manifest/sequencing_test.rb

@@ -0,0 +1,42 @@
+require_relative '../../helper'
+
+module Scorm2004
+  module Manifest
+    class SequencingTest < ActiveSupport::TestCase
+      include PartialManifest
+      
+      setup do
+        @v = Sequencing.new
+      end
+      
+      test 'an empty element' do
+        assert el('<dummy />').accept(@v)
+      end
+
+      test 'ID attribute' do
+        el('<dummy ID="foo" />').accept(@v)
+        assert_equal 'foo', @v.id
+      end
+
+      test 'an element with children' do
+        %w( control_mode sequencing_rules limit_conditions rollup_rules objectives randomization_controls delivery_controls constrained_choice_considerations rollup_considerations adlseq_objectives ).each do |child|
+          @v.expects("#{child}_visitor".intern).once.returns(mock(:visit))
+        end
+        assert el(<<-XML).accept(@v)
+          <dummy>
+            <imsss:controlMode />
+            <imsss:sequencingRules />
+            <imsss:limitConditions />
+            <imsss:rollupRules />
+            <imsss:objectives />
+            <imsss:randomizationControls />
+            <imsss:deliveryControls />
+            <adlseq:constrainedChoiceConsiderations />
+            <adlseq:rollupConsiderations />
+            <adlseq:objectives />
+          </dummy>
+        XML
+      end
+    end
+  end
+end

data/test/scorm2004/manifest/string_attribute_test.rb

@@ -0,0 +1,68 @@
+require_relative '../../helper'
+
+module Scorm2004
+  module Manifest
+    class StringAttributeTest < ActiveSupport::TestCase
+      include PartialManifest
+      
+      context 'a visitor for an element with a string attribute' do
+        class SimpleVisitor
+          include VisitorPattern
+          include CustomError
+          include Attributes
+
+          attribute :string, 'foo'
+        end
+
+        setup do
+          @v = SimpleVisitor.new
+        end
+
+        should 'set the string value as its attribute' do
+          el('<dummy foo="bar baz" />').accept(@v)
+          assert_equal 'bar baz', @v.foo
+        end
+
+        should 'raise exception if the attribute does not exist' do
+          assert_raise SimpleVisitor::Error do
+            el('<dummy />').accept(@v)
+          end
+        end
+      end
+
+      context 'a visitor having SPM' do
+        class SpmVisitor
+          include VisitorPattern
+          include CustomError
+          include Attributes
+
+          attribute :string, 'foo', spm: 10
+        end
+
+        should 'raise exception if the value exceeds the SPM' do
+          @v = SpmVisitor.new
+          assert_raise SpmVisitor::Error do
+            el('<dummy foo="' + 'x' * 11 + '" />').accept(@v)
+          end
+        end
+      end
+
+      context 'a visitor for an element with a string attribute optional' do
+        class OptionalVisitor
+          include VisitorPattern
+          include CustomError
+          include Attributes
+
+          attribute :string, 'foo', allow_nil: true
+        end
+
+        should 'not raise exception' do
+          @v = OptionalVisitor.new
+          assert_nothing_raised do
+            el('<dummy />').accept(@v)
+          end
+        end
+      end
+    end
+  end
+end

data/test/scorm2004/manifest/text_node_test.rb

@@ -0,0 +1,37 @@
+require_relative '../../helper'
+
+module Scorm2004
+  module Manifest
+    class TextNodeTest < ActiveSupport::TestCase
+      include PartialManifest
+      
+      class Visitor
+        include VisitorPattern
+        include TextNode
+      end
+
+      setup do
+        @v = Visitor.new
+        el('<dummy>hello world</dummy>').accept(@v)
+      end
+
+      context 'a visitor that includes the TextNode module' do
+        should 'respond_to :content' do
+          assert @v.respond_to? :content
+        end
+
+        should 'respond_to :to_s' do
+          assert @v.respond_to? :to_s
+        end
+
+        should 'alias :to_s :content' do
+          assert_equal @v.to_s, @v.content
+        end
+
+        should 'alias :to_str :content'do
+          assert_equal @v.to_str, @v.content
+        end
+      end
+    end
+  end
+end

data/test/scorm2004/manifest/time_limit_action_test.rb

@@ -0,0 +1,51 @@
+require_relative '../../helper'
+
+module Scorm2004
+  module Manifest
+    class TimeLimitActionTest < ActiveSupport::TestCase
+      include PartialManifest
+      
+      setup do
+        @v = TimeLimitAction.new
+      end
+      
+      context 'a <adlcp:timeLimitAction> visitor' do
+        should 'respond to :content' do
+          @v.respond_to? :content
+        end
+
+        should 'respond to :to_s' do
+          @v.respond_to? :to_s
+        end
+      end
+
+      TimeLimitAction.vocabulary.each do |token|
+        test "<adlcp:timeLimitAction>#{token}</adlcp:timieLimitAction>" do
+          assert_nothing_raised do
+            el("<dummy>#{token}</dummy").accept(@v)
+          end
+          assert_equal token, @v.content
+          assert_equal @v.content, @v.to_s
+        end
+      end
+
+      test 'an empty element causes error' do
+        assert_error do
+          el('<dummy />').accept(@v)
+        end
+      end
+
+      test 'an invalid token causes error' do
+        assert_error do
+          el('<dummy>invalid token, error</dummy>').accept(@v)
+        end
+      end
+
+      private
+
+      def assert_error(&block)
+        assert_raise TimeLimitAction::Error, &block
+      end
+    end
+  end
+end

data/test/scorm2004/manifest/title_test.rb

@@ -0,0 +1,59 @@
+require_relative '../../helper'
+
+module Scorm2004
+  module Manifest
+    class TitleTest < ActiveSupport::TestCase
+      include PartialManifest
+      
+      context 'a title visitor' do
+        setup do
+          @v = Title.new
+        end
+
+        context 'visiting a title' do
+          setup do
+            @title_content = 'a sample title'
+            el("<title>#{@title_content}</title>").accept(@v)
+          end
+
+          should 'respond to content' do
+            assert @v.respond_to? :content
+          end
+
+          should 'also respond to to_s that aliases content' do
+            assert @v.respond_to? :to_s
+            assert_equal @v.content, @v.to_s
+          end
+
+          should 'set a content as its attribute' do
+            assert_equal @title_content, @v.content
+          end
+        end
+
+        context 'visiting a too long title' do
+          should 'raise exception' do
+            assert_error do
+              el('<title>' + 'x' * 201 + '</title').accept(@v)
+            end
+          end
+        end
+
+        context 'visiting an empty title element' do
+          should 'raise exception' do
+            assert_error do
+              el('<title />').accept(@v)
+            end
+          end
+        end
+      end
+
+      private
+
+      def assert_error(&block)
+        assert_raise Title::Error, &block
+      end
+    end
+  end
+end
+
+#  LocalWords:  TitleTest PartialManifest el

data/test/scorm2004/manifest/token_attribute_test.rb

@@ -0,0 +1,53 @@
+require_relative '../../helper'
+
+module Scorm2004
+  module Manifest
+    class TokenAttributeTest < ActiveSupport::TestCase
+      include PartialManifest
+      
+      context 'visitor having a token attribute' do
+        class VisitorHavingTokenAttribute
+          include VisitorPattern
+          include CustomError
+          include Attributes
+
+          attribute :token, 'foo', vocabulary: ['foo', 'bar', 'foo bar']
+        end
+        
+        setup do
+          @v = VisitorHavingTokenAttribute.new
+        end
+
+        context 'visiting an element without the attribute' do
+          should 'raise exception' do
+            assert_raise VisitorHavingTokenAttribute::Error do
+              el('<dummy />').accept(@v)
+            end
+          end
+        end
+
+        context 'visiting an element with a valid token attribute' do
+          should 'set the token as the value of the attribute' do
+            el('<dummy foo="bar" />').accept(@v)
+            assert_equal 'bar', @v.foo
+          end
+        end
+
+        context 'visiting an element with an invalid token attribute' do
+          should 'raise exception' do
+            assert_raise VisitorHavingTokenAttribute::Error do
+              el('<dummy foo="hoge" />').accept(@v)
+            end
+          end
+        end
+
+        context 'visiting an element with token attribute having leading and trailing spaces' do
+          should 'remove these spaces' do
+            el('<dummy foo=" 	 foo 	 bar	   " />').accept(@v)
+            assert_equal 'foo bar', @v.foo
+          end
+        end
+      end
+    end
+  end
+end