vedeu 0.6.4 → 0.6.5

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

@@ -2,208 +2,333 @@ require 'test_helper'
 
 module Vedeu
 
-  describe Geometry do
-
-    let(:described)  { Vedeu::Geometry }
-    let(:instance)   { described.new(attributes) }
-    let(:attributes) {
-      {
-        centred:    centred,
-        height:     height,
-        maximised:  maximised,
-        name:       _name,
-        repository: Vedeu.geometries,
-        width:      width,
-        x:          x,
-        xn:         xn,
-        y:          y,
-        yn:         yn,
-      }
-    }
-    let(:centred)   { false }
-    let(:height)    {}
-    let(:maximised) { false }
-    let(:_name)     {}
-    let(:width)     {}
-    let(:x)         {}
-    let(:xn)        {}
-    let(:y)         {}
-    let(:yn)        {}
-
-    describe '#initialize' do
-      it { instance.must_be_instance_of(described) }
-      it {
-        instance.instance_variable_get('@attributes').must_equal(attributes)
-      }
-      it { instance.instance_variable_get('@centred').must_equal(centred) }
-      it { instance.instance_variable_get('@height').must_equal(height) }
-      it { instance.instance_variable_get('@maximised').must_equal(maximised) }
-      it { instance.instance_variable_get('@name').must_equal(_name) }
-      it { instance.instance_variable_get('@width').must_equal(width) }
-      it { instance.instance_variable_get('@x').must_equal(x) }
-      it { instance.instance_variable_get('@xn').must_equal(xn) }
-      it { instance.instance_variable_get('@y').must_equal(y) }
-      it { instance.instance_variable_get('@yn').must_equal(yn) }
-      it do
-        instance.instance_variable_get('@repository').
-          must_equal(Vedeu.geometries)
-      end
-    end
-
-    describe 'accessors' do
-      it { instance.must_respond_to(:centred) }
-      it { instance.must_respond_to(:centred=) }
-      it { instance.must_respond_to(:attributes) }
-      it { instance.must_respond_to(:name) }
-      it { instance.must_respond_to(:name=) }
-      it { instance.must_respond_to(:height=) }
-      it { instance.must_respond_to(:maximised) }
-      it { instance.must_respond_to(:maximised?) }
-      it { instance.must_respond_to(:maximised=) }
-      it { instance.must_respond_to(:width=) }
-      it { instance.must_respond_to(:x=) }
-      it { instance.must_respond_to(:xn=) }
-      it { instance.must_respond_to(:y=) }
-      it { instance.must_respond_to(:yn=) }
-    end
-
-    describe '#maximise' do
+  module Geometry
+
+    describe Geometry do
+
+      let(:described)  { Vedeu::Geometry::Geometry }
+      let(:instance)   { described.new(attributes) }
       let(:attributes) {
         {
-          height:    6,
-          maximised: false,
-          name:      'maximise',
-          width:     18
+          centred:    centred,
+          height:     height,
+          maximised:  maximised,
+          name:       _name,
+          repository: Vedeu.geometries,
+          width:      width,
+          x:          x,
+          xn:         xn,
+          y:          y,
+          yn:         yn,
         }
       }
+      let(:centred)   { false }
+      let(:height)    {}
+      let(:maximised) { false }
+      let(:_name)     { 'vedeu_geometry_geometry' }
+      let(:width)     {}
+      let(:x)         {}
+      let(:xn)        {}
+      let(:y)         {}
+      let(:yn)        {}
+
+      describe '#initialize' do
+        it { instance.must_be_instance_of(described) }
+        it {
+          instance.instance_variable_get('@attributes').must_equal(attributes)
+        }
+        it { instance.instance_variable_get('@centred').must_equal(centred) }
+        it { instance.instance_variable_get('@height').must_equal(height) }
+        it { instance.instance_variable_get('@maximised').must_equal(maximised) }
+        it { instance.instance_variable_get('@name').must_equal(_name) }
+        it { instance.instance_variable_get('@width').must_equal(width) }
+        it { instance.instance_variable_get('@x').must_equal(x) }
+        it { instance.instance_variable_get('@xn').must_equal(xn) }
+        it { instance.instance_variable_get('@y').must_equal(y) }
+        it { instance.instance_variable_get('@yn').must_equal(yn) }
+        it do
+          instance.instance_variable_get('@repository').
+            must_equal(Vedeu.geometries)
+        end
+      end
 
-      before { Vedeu.stubs(:trigger) }
+      describe 'accessors' do
+        it { instance.must_respond_to(:centred) }
+        it { instance.must_respond_to(:centred=) }
+        it { instance.must_respond_to(:attributes) }
+        it { instance.must_respond_to(:name) }
+        it { instance.must_respond_to(:name=) }
+        it { instance.must_respond_to(:height=) }
+        it { instance.must_respond_to(:maximised) }
+        it { instance.must_respond_to(:maximised?) }
+        it { instance.must_respond_to(:maximised=) }
+        it { instance.must_respond_to(:width=) }
+        it { instance.must_respond_to(:x=) }
+        it { instance.must_respond_to(:xn=) }
+        it { instance.must_respond_to(:y=) }
+        it { instance.must_respond_to(:yn=) }
+      end
 
-      subject { instance.maximise }
+      describe '#maximise' do
+        let(:attributes) {
+          {
+            height:    6,
+            maximised: false,
+            name:      'maximise',
+            width:     18
+          }
+        }
 
-      it { subject.must_be_instance_of(described) }
-      it { subject.maximised.must_equal(true) }
-    end
+        before { Vedeu.stubs(:trigger) }
 
-    describe '#unmaximise' do
-      let(:attributes) {
-        {
-          height:    6,
-          maximised: true,
-          name:      'unmaximise',
-          width:     18
-        }
-      }
+        subject { instance.maximise }
+
+        it { subject.must_be_instance_of(described) }
+        it { subject.maximised.must_equal(true) }
+      end
 
-      before { Vedeu.stubs(:trigger) }
+      describe '#move_down' do
+        let(:x)  { 15 }
+        let(:xn) { 25 }
+        let(:y)  { 4 }
+        let(:yn) { 8 }
 
-      subject { instance.unmaximise }
+        before { Terminal.stubs(:size).returns([12, 40]) }
 
-      it { subject.must_be_instance_of(described) }
-      it { subject.maximised.must_equal(false) }
-    end
+        subject { instance.move_down }
 
-    describe '#top, #right, #bottom, #left' do
-      before { Terminal.stubs(:size).returns([12, 40]) }
+        it { subject.must_be_instance_of(described) }
 
-      context 'maximised is true' do
-        let(:attributes) { { maximised: true } }
+        it { subject.y.must_equal(5) }
+        it { subject.yn.must_equal(9) }
 
-        it { instance.top.must_equal(1) }
-        it { instance.right.must_equal(40) }
-        it { instance.bottom.must_equal(12) }
-        it { instance.left.must_equal(1) }
+        context 'when the move will make the geometry out of bounds' do
+          let(:x)  { 15 }
+          let(:xn) { 25 }
+          let(:y)  { 8 }
+          let(:yn) { 12 }
+
+          it { subject.y.must_equal(8) }
+          it { subject.yn.must_equal(12) }
+        end
       end
 
-      context 'centred is true' do
-        let(:attributes) { { height: 6, width: 18, centred: true } }
+      describe '#move_left' do
+        let(:x)  { 15 }
+        let(:xn) { 25 }
+        let(:y)  { 4 }
+        let(:yn) { 8 }
 
-        it { instance.top.must_equal(3) }
-        it { instance.right.must_equal(29) }
-        it { instance.bottom.must_equal(9) }
-        it { instance.left.must_equal(11) }
-      end
+        before { Terminal.stubs(:size).returns([12, 40]) }
+
+        subject { instance.move_left }
+
+        it { subject.must_be_instance_of(described) }
+
+        it { subject.x.must_equal(14) }
+        it { subject.xn.must_equal(24) }
 
-      context 'centred is true and y is set, y is ignored' do
-        let(:attributes) { { height: 6, width: 18, centred: true, y: 4 } }
+        context 'when the move will make the geometry out of bounds' do
+          let(:x)  { 1 }
+          let(:xn) { 11 }
+          let(:y)  { 4 }
+          let(:yn) { 8 }
 
-        it { instance.top.must_equal(3) }
-        it { instance.right.must_equal(29) }
-        it { instance.bottom.must_equal(9) }
-        it { instance.left.must_equal(11) }
+          it { subject.x.must_equal(1) }
+          it { subject.xn.must_equal(11) }
+        end
       end
 
-      context 'centred is true and x is set, x is ignored' do
-        let(:attributes) { { height: 6, width: 18, centred: true, x: 4 } }
+      describe '#move_origin' do
+        let(:x)  { 15 }
+        let(:xn) { 25 }
+        let(:y)  { 4 }
+        let(:yn) { 8 }
 
-        it { instance.top.must_equal(3) }
-        it { instance.right.must_equal(29) }
-        it { instance.bottom.must_equal(9) }
-        it { instance.left.must_equal(11) }
+        before { Terminal.stubs(:size).returns([12, 40]) }
+
+        subject { instance.move_origin }
+
+        it { subject.must_be_instance_of(described) }
+        it { subject.x.must_equal(1) }
+        it { subject.xn.must_equal(11) }
+        it { subject.y.must_equal(1) }
+        it { subject.yn.must_equal(5) }
       end
 
-      context 'centred is false' do
-        let(:attributes) { { height: 6, width: 18 } }
+      describe '#move_right' do
+        let(:x)  { 15 }
+        let(:xn) { 25 }
+        let(:y)  { 4 }
+        let(:yn) { 8 }
 
-        it { instance.top.must_equal(1) }
-        it { instance.right.must_equal(18) }
-        it { instance.bottom.must_equal(6) }
-        it { instance.left.must_equal(1) }
+        before { Terminal.stubs(:size).returns([12, 40]) }
+
+        subject { instance.move_right }
+
+        it { subject.must_be_instance_of(described) }
+
+        it { subject.x.must_equal(16) }
+        it { subject.xn.must_equal(26) }
+
+        context 'when the move will make the geometry out of bounds' do
+          let(:x)  { 30 }
+          let(:xn) { 40 }
+          let(:y)  { 4 }
+          let(:yn) { 8 }
+
+          it { subject.x.must_equal(30) }
+          it { subject.xn.must_equal(40) }
+        end
       end
 
-      context 'centred is false and y is set' do
-        let(:attributes) { { height: 6, width: 18, y: 4 } }
+      describe '#move_up' do
+        let(:x)  { 15 }
+        let(:xn) { 25 }
+        let(:y)  { 4 }
+        let(:yn) { 8 }
 
-        it { instance.top.must_equal(4) }
-        it { instance.right.must_equal(18) }
-        it { instance.bottom.must_equal(9) }
-        it { instance.left.must_equal(1) }
+        before { Terminal.stubs(:size).returns([12, 40]) }
+
+        subject { instance.move_up }
+
+        it { subject.must_be_instance_of(described) }
+
+        it { subject.y.must_equal(3) }
+        it { subject.yn.must_equal(7) }
+
+        context 'when the move will make the geometry out of bounds' do
+          let(:x)  { 15 }
+          let(:xn) { 25 }
+          let(:y)  { 1 }
+          let(:yn) { 5 }
+
+          it { subject.y.must_equal(1) }
+          it { subject.yn.must_equal(5) }
+        end
       end
 
-      context 'centred is false and x is set' do
-        let(:attributes) { { height: 6, width: 18, x: 4 } }
+      describe '#unmaximise' do
+        let(:attributes) {
+          {
+            height:    6,
+            maximised: true,
+            name:      'unmaximise',
+            width:     18
+          }
+        }
 
-        it { instance.top.must_equal(1) }
-        it { instance.right.must_equal(21) }
-        it { instance.bottom.must_equal(6) }
-        it { instance.left.must_equal(4) }
+        before { Vedeu.stubs(:trigger) }
+
+        subject { instance.unmaximise }
+
+        it { subject.must_be_instance_of(described) }
+        it { subject.maximised.must_equal(false) }
+      end
+
+      describe '#top, #right, #bottom, #left' do
+        before { Terminal.stubs(:size).returns([12, 40]) }
+
+        context 'maximised is true' do
+          let(:attributes) { { maximised: true } }
+
+          it { instance.top.must_equal(1) }
+          it { instance.right.must_equal(40) }
+          it { instance.bottom.must_equal(12) }
+          it { instance.left.must_equal(1) }
+        end
+
+        context 'centred is true' do
+          let(:attributes) { { height: 6, width: 18, centred: true } }
+
+          it { instance.top.must_equal(3) }
+          it { instance.right.must_equal(29) }
+          it { instance.bottom.must_equal(9) }
+          it { instance.left.must_equal(11) }
+        end
+
+        context 'centred is true and y is set, y is ignored' do
+          let(:attributes) { { height: 6, width: 18, centred: true, y: 4 } }
+
+          it { instance.top.must_equal(3) }
+          it { instance.right.must_equal(29) }
+          it { instance.bottom.must_equal(9) }
+          it { instance.left.must_equal(11) }
+        end
+
+        context 'centred is true and x is set, x is ignored' do
+          let(:attributes) { { height: 6, width: 18, centred: true, x: 4 } }
+
+          it { instance.top.must_equal(3) }
+          it { instance.right.must_equal(29) }
+          it { instance.bottom.must_equal(9) }
+          it { instance.left.must_equal(11) }
+        end
+
+        context 'centred is false' do
+          let(:attributes) { { height: 6, width: 18 } }
+
+          it { instance.top.must_equal(1) }
+          it { instance.right.must_equal(18) }
+          it { instance.bottom.must_equal(6) }
+          it { instance.left.must_equal(1) }
+        end
+
+        context 'centred is false and y is set' do
+          let(:attributes) { { height: 6, width: 18, y: 4 } }
+
+          it { instance.top.must_equal(4) }
+          it { instance.right.must_equal(18) }
+          it { instance.bottom.must_equal(9) }
+          it { instance.left.must_equal(1) }
+        end
+
+        context 'centred is false and x is set' do
+          let(:attributes) { { height: 6, width: 18, x: 4 } }
+
+          it { instance.top.must_equal(1) }
+          it { instance.right.must_equal(21) }
+          it { instance.bottom.must_equal(6) }
+          it { instance.left.must_equal(4) }
+        end
+
+        context 'maximised' do
+          let(:attributes) { { maximised: true } }
+
+          it { instance.top.must_equal(1) }
+          it { instance.right.must_equal(40) }
+          it { instance.bottom.must_equal(12) }
+          it { instance.left.must_equal(1) }
+        end
       end
 
-      context 'maximised' do
+      describe '#maximise' do
         let(:attributes) { { maximised: true } }
 
+        before { Terminal.stubs(:size).returns([12, 40]) }
+
+        subject { instance.maximise }
+
         it { instance.top.must_equal(1) }
         it { instance.right.must_equal(40) }
         it { instance.bottom.must_equal(12) }
         it { instance.left.must_equal(1) }
       end
-    end
-
-    describe '#maximise' do
-      let(:attributes) { { maximised: true } }
 
-      before { Terminal.stubs(:size).returns([12, 40]) }
+      describe '#unmaximise' do
+        let(:attributes) { { maximised: false } }
 
-      subject { instance.maximise }
+        before { Terminal.stubs(:size).returns([12, 40]) }
 
-      it { instance.top.must_equal(1) }
-      it { instance.right.must_equal(40) }
-      it { instance.bottom.must_equal(12) }
-      it { instance.left.must_equal(1) }
-    end
+        subject { instance.unmaximise }
 
-    describe '#unmaximise' do
-      let(:attributes) { { maximised: false } }
-
-      before { Terminal.stubs(:size).returns([12, 40]) }
-
-      subject { instance.unmaximise }
+        it { instance.top.must_equal(1) }
+        it { instance.right.must_equal(40) }
+        it { instance.bottom.must_equal(12) }
+        it { instance.left.must_equal(1) }
+      end
 
-      it { instance.top.must_equal(1) }
-      it { instance.right.must_equal(40) }
-      it { instance.bottom.must_equal(12) }
-      it { instance.left.must_equal(1) }
-    end
+    end # Geometry
 
   end # Geometry