vedeu 0.7.4 → 0.8.0

data/test/lib/vedeu/dsl/border_test.rb

@@ -0,0 +1,51 @@
+require 'test_helper'
+
+module Vedeu
+
+  module DSL
+
+    describe Border do
+
+      let(:described) { Vedeu::DSL::Border }
+      let(:instance)  { Class.include(described).new }
+      let(:_name)     { :vedeu_dsl_border }
+
+      describe '#border' do
+        subject { instance.border(_name) {} }
+
+        context 'when the name is not given' do
+          let(:_name) {}
+
+          it 'uses the name of the model' do
+            # @todo Add more tests.
+          end
+        end
+
+        context 'when the name is given' do
+          # @todo Add more tests.
+        end
+
+        context 'when the block is not given' do
+          subject { instance.border(_name) }
+
+          it { proc { subject }.must_raise(Vedeu::Error::RequiresBlock) }
+        end
+
+        context 'when the block is given' do
+          subject { instance.border { } }
+
+          # @todo Add more tests.
+        end
+      end
+
+      describe '#border!' do
+        subject { instance.border! }
+
+        # @todo Add more tests.
+      end
+
+    end # Border
+
+  end # DSL
+
+end # Vedeu

data/test/lib/vedeu/dsl/{lines_test.rb → cursors_test.rb}

@@ -4,8 +4,8 @@ module Vedeu
 
   module DSL
 
-    describe Lines do
-    end # Lines
+    describe Cursors do
+    end # Cursors
 
   end # DSL
 

data/test/lib/vedeu/dsl/dsl_test.rb

@@ -2,8 +2,52 @@ require 'test_helper'
 
 module Vedeu
 
+  class DSLModelTestClass
+
+    attr_reader :name
+
+    def initialize(name)
+      @name = name
+    end
+
+  end # DSLModelTestClass
+
+  class DSLModuleTestClass
+
+    include Vedeu::DSL
+
+  end # DSLTestClass
+
   describe DSL do
 
+    let(:described) { Vedeu::DSL }
+    let(:instance)  { Vedeu::DSLModuleTestClass.new(model, client) }
+    let(:model)     { Vedeu::DSLModelTestClass.new(_name) }
+    let(:client)    {}
+    let(:_name)     {}
+
+    describe '#name' do
+      subject { instance.name }
+
+      context 'when the model is nil' do
+        let(:model) {}
+
+        it { subject.must_equal(nil) }
+      end
+
+      context 'when the model is not nil' do
+        context 'when the model has a name' do
+          let(:_name) { :vedeu_dsl }
+
+          it { subject.must_equal(_name) }
+        end
+
+        context 'when the model has no name' do
+          it { subject.must_equal(nil) }
+        end
+      end
+    end
+
   end # DSL
 
 end # Vedeu

data/test/lib/vedeu/dsl/elements_test.rb

@@ -0,0 +1,118 @@
+require 'test_helper'
+
+module Vedeu
+
+  module DSL
+
+    class ElementsTest
+
+      include Vedeu::DSL::Elements
+
+      attr_reader :model
+
+      def initialize(model)
+        @model = model
+      end
+
+    end # ElementsTest
+
+    describe Elements do
+
+      let(:described) { Vedeu::DSL::Elements }
+      let(:instance)  {}
+
+      let(:including_described) { Vedeu::DSL::ElementsTest }
+      let(:including_instance)  { including_described.new(model) }
+      let(:model)               {}
+
+      describe '#lines' do
+        subject { including_instance.lines { } }
+
+        context 'when the block is given' do
+          context 'when a model exists' do
+            let(:model) {}
+          end
+
+          context 'when a model does not exist' do
+            it { proc { subject }.must_raise(Vedeu::Error::Fatal) }
+          end
+        end
+
+        context 'when the block is not given' do
+          subject { including_instance.lines }
+
+          it { proc { subject }.must_raise(Vedeu::Error::RequiresBlock) }
+        end
+      end
+
+      describe '#line' do
+        subject { including_instance.line { } }
+
+        context 'when a model exists' do
+          let(:model) { Vedeu::Views::View.new }
+
+          context 'when the block is given' do
+            # @todo Add more tests.
+          end
+
+          context 'when the block is not given' do
+            subject { including_instance.line }
+
+            # @todo Add more tests.
+          end
+        end
+
+        context 'when a model does not exist' do
+          it { proc { subject }.must_raise(Vedeu::Error::Fatal) }
+        end
+      end
+
+      describe '#streams' do
+        subject { including_instance.streams { } }
+
+        context 'when the block is given' do
+          context 'when a model exists' do
+            let(:model) {}
+
+            # @todo Add more tests.
+          end
+
+          context 'when a model does not exist' do
+            it { proc { subject }.must_raise(Vedeu::Error::Fatal) }
+          end
+        end
+
+        context 'when the block is not given' do
+          subject { including_instance.streams }
+
+          it { proc { subject }.must_raise(Vedeu::Error::RequiresBlock) }
+        end
+      end
+
+      describe '#stream' do
+        subject { including_instance.stream { } }
+
+        context 'when a model exists' do
+          let(:model) { Vedeu::Views::View.new }
+
+          context 'when the block is given' do
+            # @todo Add more tests.
+          end
+
+          context 'when the block is not given' do
+            subject { including_instance.stream }
+
+            # @todo Add more tests.
+          end
+        end
+
+        context 'when a model does not exist' do
+          it { proc { subject }.must_raise(Vedeu::Error::Fatal) }
+        end
+      end
+
+    end # Elements
+
+  end # DSL
+
+end # Vedeu

data/test/lib/vedeu/dsl/geometry_test.rb

@@ -0,0 +1,35 @@
+require 'test_helper'
+
+module Vedeu
+
+  module DSL
+
+    describe Geometry do
+
+      # describe '#geometry' do
+      #   context 'when the required block is not given' do
+      #     subject { instance.geometry }
+
+      #     it { proc { subject }.must_raise(Vedeu::Error::RequiresBlock) }
+      #   end
+
+      #   context 'when the block is given' do
+      #     subject { instance.geometry { } }
+
+      #     context 'when the name is not given' do
+      #       it 'uses the name of the model' do
+      #         # @todo Add more tests.
+      #       end
+      #     end
+
+      #     context 'when the name is given' do
+      #       # @todo Add more tests.
+      #     end
+      #   end
+      # end
+
+    end # Geometry
+
+  end # DSL
+
+end # Vedeu

data/test/lib/vedeu/dsl/presentation_test.rb

@@ -35,15 +35,30 @@ module Vedeu
 
         subject { instance.background(background) }
 
+        it do
+          dsl.colour.background.must_be_instance_of(Vedeu::Colours::Background)
+        end
+        it { dsl.colour.background.colour.must_equal(background) }
+      end
+
+      describe '#bg' do
         it { instance.must_respond_to(:bg) }
+      end
+
+      describe '#bgcolor' do
         it { instance.must_respond_to(:bgcolor) }
+      end
+
+      describe '#bg=' do
         it { instance.must_respond_to(:bg=) }
+      end
+
+      describe '#bgcolor=' do
         it { instance.must_respond_to(:bgcolor=) }
+      end
+
+      describe '#background=' do
         it { instance.must_respond_to(:background=) }
-        it do
-          dsl.colour.background.must_be_instance_of(Vedeu::Colours::Background)
-        end
-        it { dsl.colour.background.colour.must_equal(background) }
       end
 
       describe '#foreground' do
@@ -56,15 +71,30 @@ module Vedeu
 
         subject { instance.foreground(foreground) }
 
+        it do
+          dsl.colour.foreground.must_be_instance_of(Vedeu::Colours::Foreground)
+        end
+        it { dsl.colour.foreground.colour.must_equal(foreground) }
+      end
+
+      describe '#fg' do
         it { instance.must_respond_to(:fg) }
+      end
+
+      describe '#fgcolor' do
         it { instance.must_respond_to(:fgcolor) }
+      end
+
+      describe '#fg=' do
         it { instance.must_respond_to(:fg=) }
+      end
+
+      describe '#fgcolor=' do
         it { instance.must_respond_to(:fgcolor=) }
+      end
+
+      describe '#foreground=' do
         it { instance.must_respond_to(:foreground=) }
-        it do
-          dsl.colour.foreground.must_be_instance_of(Vedeu::Colours::Foreground)
-        end
-        it { dsl.colour.foreground.colour.must_equal(foreground) }
       end
 
       describe '#colour' do
@@ -72,7 +102,6 @@ module Vedeu
 
         subject { instance.colour(attributes) }
 
-        it { instance.must_respond_to(:colour=) }
         it { subject.must_be_instance_of(Vedeu::Colours::Colour) }
 
         context 'with an empty value' do
@@ -83,16 +112,28 @@ module Vedeu
         end
       end
 
+      describe '#colour=' do
+        it { instance.must_respond_to(:colour=) }
+      end
+
       describe '#style' do
         let(:args) { :bold }
 
         subject { instance.style(args) }
 
+        it { subject.must_be_instance_of(Vedeu::Presentation::Style) }
+      end
+
+      describe '#style=' do
         it { instance.must_respond_to(:style=) }
+      end
+
+      describe '#styles' do
         it { instance.must_respond_to(:styles) }
-        it { instance.must_respond_to(:styles=) }
+      end
 
-        it { subject.must_be_instance_of(Vedeu::Presentation::Style) }
+      describe '#styles=' do
+        it { instance.must_respond_to(:styles=) }
       end
 
     end # Presentation

data/test/lib/vedeu/dsl/string/align_test.rb

@@ -0,0 +1,147 @@
+require 'test_helper'
+
+module Vedeu
+
+  module DSL
+
+    describe Align do
+
+      let(:described) { Vedeu::DSL::Align }
+      let(:instance)  { described.new(_value, options) }
+      let(:_value)    { 'Some text...' }
+      let(:options)   {
+        {
+          align: align,
+          name:  _name,
+          pad:   pad,
+          width: width,
+        }
+      }
+      let(:align) { :right }
+      let(:_name) { :vedeu_dsl_align }
+      let(:pad)   { ' ' }
+      let(:width) { 20 }
+      let(:geometry) {
+        Vedeu::Geometries::Geometry.new(name: _name, width: 30)
+      }
+
+      before { Vedeu.geometries.stubs(:by_name).returns(geometry) }
+
+      describe '#initialize' do
+        it { instance.must_be_instance_of(described) }
+
+        context 'when the value is given' do
+          it { instance.instance_variable_get('@value').must_equal(_value) }
+        end
+
+        context 'when the value is not given' do
+          let(:_value) {}
+
+          it { instance.instance_variable_get('@value').must_equal('') }
+        end
+
+        context 'when the options are given' do
+          it { instance.instance_variable_get('@options').must_equal(options) }
+        end
+
+        context 'when the options are not given' do
+          let(:options)  { {} }
+          let(:expected) {
+            {
+              align: :left,
+              name:  nil,
+              pad:   ' ',
+              width: nil,
+            }
+          }
+
+          it { instance.instance_variable_get('@options').must_equal(expected) }
+        end
+      end
+
+      describe '#text' do
+        subject { instance.text }
+
+        context 'when the align option is not set' do
+          let(:align) {}
+
+          it { subject.must_equal(_value) }
+        end
+
+        context 'when the align option is set to :left' do
+          let(:align) { :left }
+
+          context 'when a custom pad character is given' do
+            let(:pad)      { '#' }
+            let(:expected) { 'Some text...########' }
+
+            it { subject.must_equal(expected) }
+          end
+
+          context 'when a width is given' do
+            let(:expected) { 'Some text...        ' }
+
+            it { subject.must_equal(expected) }
+          end
+
+          context 'when a width is not given' do
+            let(:width)    {}
+            let(:expected) { 'Some text...                  ' }
+
+            it 'uses the width of the named geometry' do
+              subject.must_equal(expected)
+            end
+          end
+        end
+
+        context 'when the align option is set to :centre' do
+          let(:align) { :centre }
+
+          context 'when a width is given' do
+            let(:expected) { '    Some text...    ' }
+
+            it { subject.must_equal(expected) }
+          end
+
+          context 'when a width is not given' do
+            let(:width)    {}
+            let(:expected) { '         Some text...         ' }
+
+            it 'uses the width of the named geometry' do
+              subject.must_equal(expected)
+            end
+          end
+        end
+
+        context 'when the align option is set to :right' do
+          let(:align) { :right }
+
+          context 'when a width is given' do
+            let(:expected) { '        Some text...' }
+
+            it { subject.must_equal(expected) }
+          end
+
+          context 'when a width is not given' do
+            let(:width)    {}
+            let(:expected) { '                  Some text...' }
+
+            it 'uses the width of the named geometry' do
+              subject.must_equal(expected)
+            end
+          end
+        end
+
+        context 'when the align option is invalid' do
+          let(:align)    { :invalid }
+          let(:expected) { 'Some text...' }
+
+          it { subject.must_equal(expected) }
+        end
+      end
+
+    end # Align
+
+  end # DSL
+
+end # Vedeu