vedeu 0.4.2 → 0.4.3

data/test/lib/vedeu/configuration/configuration_test.rb

@@ -4,9 +4,19 @@ module Vedeu
 
   describe Configuration do
 
+    let(:described) { Vedeu::Configuration }
+
     before { Configuration.reset! }
     after  { test_configuration }
 
+    describe 'alias_methods' do
+      it { described.must_respond_to(:debug) }
+      it { described.must_respond_to(:drb) }
+      it { described.must_respond_to(:interactive) }
+      it { described.must_respond_to(:once) }
+      it { described.must_respond_to(:trace) }
+    end
+
     describe '.default_system_keys' do
       it 'returns the default system keys' do
         Configuration.default_system_keys.must_equal({

data/test/lib/vedeu/distributed/server_test.rb

@@ -10,6 +10,11 @@ module Vedeu
       let(:instance)      { described.instance }
       let(:configuration) {}
 
+      describe 'alias_methods' do
+        it { instance.must_respond_to(:read) }
+        it { instance.must_respond_to(:write) }
+      end
+
       describe '.input' do
         let(:data) {}
 

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

@@ -28,6 +28,13 @@ module Vedeu
         end
       end
 
+      describe 'alias methods' do
+        it { instance.must_respond_to(:show_bottom) }
+        it { instance.must_respond_to(:show_left) }
+        it { instance.must_respond_to(:show_right) }
+        it { instance.must_respond_to(:show_top) }
+      end
+
       describe '#initialize' do
         it { instance.must_be_instance_of(Vedeu::DSL::Border) }
         it { instance.instance_variable_get('@model').must_equal(model) }

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

@@ -6,12 +6,17 @@ module Vedeu
 
     describe Geometry do
 
-      let(:described) { Vedeu::DSL::Geometry.new(model) }
+      let(:described) { Vedeu::DSL::Geometry }
+      let(:instance)  { described.new(model) }
       let(:model)     { Vedeu::Geometry.new }
 
+      describe 'alias methods' do
+        it { instance.must_respond_to(:centred!) }
+      end
+
       describe '#initialize' do
-        it { described.must_be_instance_of(Vedeu::DSL::Geometry) }
-        it { described.instance_variable_get('@model').must_equal(model) }
+        it { instance.must_be_instance_of(Vedeu::DSL::Geometry) }
+        it { instance.instance_variable_get('@model').must_equal(model) }
       end
 
       describe '#centred' do

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

@@ -17,6 +17,11 @@ module Vedeu
 
       before { Vedeu.interfaces.reset }
 
+      describe 'alias methods' do
+        it { instance.must_respond_to(:keys) }
+        it { instance.must_respond_to(:line) }
+      end
+
       describe '#initialize' do
         it { instance.must_be_instance_of(Vedeu::DSL::Interface) }
         it { instance.instance_variable_get('@model').must_equal(model) }

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

@@ -23,6 +23,10 @@ module Vedeu
       let(:colour)    { Vedeu::Colour.new }
       let(:style)     { Vedeu::Style.new }
 
+      describe 'alias methods' do
+        it { instance.must_respond_to(:stream) }
+      end
+
       describe '#initialize' do
         it { instance.must_be_instance_of(described) }
         it { instance.instance_variable_get('@model').must_equal(model) }

data/test/lib/vedeu/dsl/shared/colour_test.rb

@@ -7,12 +7,18 @@ module Vedeu
     describe Colour do
 
       let(:described)  { Vedeu::DSL::Colour }
-
       let(:dsl_klass)  { Vedeu::DSL::Interface.new(model) }
       let(:model)      { Vedeu::Interface.new }
       let(:background) { '#00ff00' }
       let(:foreground) { '#ff00ff' }
 
+      describe 'alias methods' do
+        it { dsl_klass.must_respond_to(:bg) }
+        it { dsl_klass.must_respond_to(:bgcolor) }
+        it { dsl_klass.must_respond_to(:fg) }
+        it { dsl_klass.must_respond_to(:fgcolor) }
+      end
+
       describe '#background' do
         subject { dsl_klass.background(background) }
 
@@ -23,9 +29,6 @@ module Vedeu
             { background: '#00ff00', foreground: '' }
           )
         end
-
-        it { dsl_klass.must_respond_to(:bg) }
-        it { dsl_klass.must_respond_to(:bgcolor) }
       end
 
       describe '#foreground' do
@@ -38,9 +41,6 @@ module Vedeu
             { background: '', foreground: '#ff00ff' }
           )
         end
-
-        it { dsl_klass.must_respond_to(:fg) }
-        it { dsl_klass.must_respond_to(:fgcolor) }
       end
 
       describe '#colour' do

data/test/lib/vedeu/dsl/shared/style_test.rb

@@ -6,11 +6,14 @@ module Vedeu
 
     describe Style do
 
+      let(:described) { Vedeu::DSL::Style }
+      let(:instance)  { Vedeu::DSL::ModelTestClass.new(model) }
+      let(:model)     { Vedeu::ModelTestClass.new({}) }
+
       describe '#style' do
-        let(:model) { Vedeu::ModelTestClass.new({}) }
         let(:args)  { :bold }
 
-        subject { Vedeu::DSL::ModelTestClass.new(model).style(args) }
+        subject { instance.style(args) }
 
         it { subject.must_be_instance_of(Vedeu::Style) }
       end

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

@@ -8,8 +8,9 @@ module Vedeu
 
       let(:described) { Vedeu::DSL::Stream }
       let(:instance)  { described.new(model) }
-      let(:model)     { Vedeu::Stream.new }
+      let(:model)     { Vedeu::Stream.new({ parent: parent }) }
       let(:client)    {}
+      let(:parent)    { Vedeu::Line.new }
 
       describe '#initialize' do
         it { instance.must_be_instance_of(Vedeu::DSL::Stream) }
@@ -20,6 +21,8 @@ module Vedeu
       describe '#stream' do
         subject { instance.stream { } }
 
+        it { subject.must_be_instance_of(Vedeu::Streams) }
+
         context 'when the block is not given' do
           subject { instance.stream }
 

data/test/lib/vedeu/events/event_test.rb

@@ -10,6 +10,12 @@ module Vedeu
     let(:options)    { {} }
     let(:closure)    { proc { :event_triggered } }
 
+    describe 'alias methods' do
+      it { described.must_respond_to(:event) }
+      it { described.must_respond_to(:register) }
+      it { described.must_respond_to(:unevent) }
+    end
+
     describe '.bind' do
       subject { described.bind(event_name, options) { :event_triggered } }
 

data/test/lib/vedeu/geometry/bounding_area_test.rb

@@ -4,118 +4,118 @@ module Vedeu
 
   describe BoundingArea do
 
-    let(:described) { BoundingArea.new(height, width) }
+    let(:described) { Vedeu::BoundingArea }
+    let(:instance)  { described.new(height, width) }
     let(:height)    { 15 }
     let(:width)     { 40 }
 
+    describe 'alias methods' do
+      it { instance.must_respond_to(:y) }
+      it { instance.must_respond_to(:yn) }
+      it { instance.must_respond_to(:x) }
+      it { instance.must_respond_to(:xn) }
+    end
+
     describe '#initialize' do
-      it { described.must_be_instance_of(BoundingArea) }
-      it { described.instance_variable_get('@height').must_equal(height) }
-      it { described.instance_variable_get('@width').must_equal(width) }
+      it { instance.must_be_instance_of(BoundingArea) }
+      it { instance.instance_variable_get('@height').must_equal(height) }
+      it { instance.instance_variable_get('@width').must_equal(width) }
     end
 
     describe '#height' do
       it 'returns the height' do
-        described.height.must_equal(height)
+        instance.height.must_equal(height)
       end
     end
 
     describe '#width' do
       it 'returns the width' do
-        described.width.must_equal(width)
+        instance.width.must_equal(width)
       end
     end
 
     describe '#top' do
       context 'when an offset is provided' do
         it 'returns the new top with the offset applied' do
-          described.top(5).must_equal(6)
+          instance.top(5).must_equal(6)
         end
 
         context 'when the offset is greater or equal to the height' do
           it 'returns the height' do
-            described.top(20).must_equal(15)
+            instance.top(20).must_equal(15)
           end
         end
 
         context 'when the offset is less than or equal to 1' do
-          it { described.top(-1).must_equal(1) }
+          it { instance.top(-1).must_equal(1) }
         end
       end
 
       context 'when an offset is not provided' do
-        it { described.top.must_equal(1) }
+        it { instance.top.must_equal(1) }
       end
-
-      it { described.must_respond_to(:y) }
     end
 
     describe '#bottom' do
       context 'when an offset is provided' do
         it 'returns the new bottom with the offset applied' do
-          described.bottom(5).must_equal(10)
+          instance.bottom(5).must_equal(10)
         end
 
         context 'when the offset is greater or equal to the height' do
-          it { described.bottom(30).must_equal(1) }
+          it { instance.bottom(30).must_equal(1) }
         end
 
         context 'when the offset is less than 0' do
-          it { described.bottom(-1).must_equal(height) }
+          it { instance.bottom(-1).must_equal(height) }
         end
       end
 
       context 'when an offset is not provided' do
-        it { described.bottom.must_equal(15) }
+        it { instance.bottom.must_equal(15) }
       end
-
-      it { described.must_respond_to(:yn) }
     end
 
     describe '#left' do
       context 'when an offset is provided' do
         it 'returns the new left with the offset applied' do
-          described.left(5).must_equal(6)
+          instance.left(5).must_equal(6)
         end
 
         context 'when the offset is greater or equal to the width' do
           it 'returns the width' do
-            described.left(50).must_equal(40)
+            instance.left(50).must_equal(40)
           end
         end
 
         context 'when the offset is less than or equal to 1' do
-          it { described.left(-1).must_equal(1) }
+          it { instance.left(-1).must_equal(1) }
         end
       end
 
       context 'when an offset is not provided' do
-        it { described.left.must_equal(1) }
+        it { instance.left.must_equal(1) }
       end
-
-      it { described.must_respond_to(:x) }
     end
 
     describe '#right' do
       context 'when an offset is provided' do
         it 'returns the new right with the offset applied' do
-          described.right(5).must_equal(35)
+          instance.right(5).must_equal(35)
         end
 
         context 'when the offset is greater or equal to the width' do
-          it { described.right(50).must_equal(1) }
+          it { instance.right(50).must_equal(1) }
         end
 
         context 'when the offset is less than 0' do
-          it { described.right(-1).must_equal(40) }
+          it { instance.right(-1).must_equal(40) }
         end
       end
 
       context 'when an offset is not provided' do
-        it { described.right.must_equal(40) }
+        it { instance.right.must_equal(40) }
       end
-
-      it { described.must_respond_to(:xn) }
     end
 
   end # BoundingArea

data/test/lib/vedeu/geometry/position_test.rb

@@ -9,6 +9,11 @@ module Vedeu
     let(:y)         { 12 }
     let(:x)         { 19 }
 
+    describe 'alias methods' do
+      it { instance.must_respond_to(:first) }
+      it { instance.must_respond_to(:last) }
+    end
+
     describe '#initialize' do
       it { instance.must_be_instance_of(described) }
       it { instance.instance_variable_get('@y').must_equal(y) }

data/test/lib/vedeu/models/view/char_test.rb

@@ -37,21 +37,8 @@ module Vedeu
       it { instance.instance_variable_get('@parent').must_equal(parent) }
       it { instance.instance_variable_get('@style').must_equal(style) }
       it { instance.instance_variable_get('@value').must_equal(value) }
-      it { instance.instance_variable_get('@position').must_equal(position) }
-    end
-
-    describe '#value' do
-      subject { instance.value }
-
-      context 'when the value is not set' do
-        let(:value) {}
 
-        it { subject.must_equal('') }
-      end
-
-      context 'when the value is set' do
-        it { subject.must_equal('a') }
-      end
+      it { instance.must_respond_to(:value) }
     end
 
     describe '#to_html' do

data/test/lib/vedeu/output/index_position_test.rb

@@ -0,0 +1,64 @@
+require 'test_helper'
+
+module Vedeu
+
+  describe IndexPosition do
+
+    let(:described) { Vedeu::IndexPosition }
+    let(:instance)  { described.new(y, x) }
+    let(:y)         { 6 }
+    let(:x)         { 17 }
+
+    describe '#initialize' do
+      it { instance.must_be_instance_of(described) }
+      it { instance.instance_variable_get('@y').must_equal(7) }
+      it { instance.instance_variable_get('@x').must_equal(18) }
+
+      context 'when y is less than 0' do
+        let(:y) { -3 }
+
+        it { instance.instance_variable_get('@y').must_equal(1) }
+      end
+
+      context 'when x is less than 0' do
+        let(:x) { -9 }
+
+        it { instance.instance_variable_get('@x').must_equal(1) }
+      end
+    end
+
+    describe '.[]' do
+      subject { described[y, x] }
+
+      it { subject.must_be_instance_of(Array) }
+      it { subject.must_equal([7, 18]) }
+    end
+
+    describe '#[]' do
+      subject { instance.[] }
+
+      it { subject.must_be_instance_of(Array) }
+      it { subject.must_equal([7, 18]) }
+    end
+
+    describe 'attr_reader' do
+      context '#y' do
+        subject { instance.y }
+
+        it { subject.must_equal(7) }
+
+        it { instance.must_respond_to(:first) }
+      end
+
+      context '#x' do
+        subject { instance.x }
+
+        it { subject.must_equal(18) }
+
+        it { instance.must_respond_to(:last) }
+      end
+    end
+
+  end # IndexPosition
+
+end # Vedeu

data/test/lib/vedeu/output/style_test.rb

@@ -8,6 +8,10 @@ module Vedeu
     let(:instance)  { described.new(value) }
     let(:value)     { 'bold' }
 
+    describe 'alias methods' do
+      it { instance.must_respond_to(:escape_sequences) }
+    end
+
     describe '#initialize' do
       it { instance.must_be_instance_of(described) }
       it { instance.instance_variable_get('@value').must_equal('bold') }