xmlss 1.0.0.rc.4 → 1.0.0

data/test/unit/element/cell_tests.rb

@@ -0,0 +1,124 @@
+require "assert"
+require 'xmlss/element/cell'
+
+require 'enumeration/assert_macros'
+
+class Xmlss::Element::Cell
+
+  class CellTests < Assert::Context
+    include Enumeration::AssertMacros
+
+    desc "Xmlss::Element::Cell"
+    before { @c = Xmlss::Element::Cell.new }
+    subject { @c }
+
+    should be_styled
+    should have_class_method :writer
+    should have_accessor :index, :formula, :href, :merge_across, :merge_down
+
+    should have_enum :type, {
+      :number => "Number",
+      :date_time => "DateTime",
+      :boolean => "Boolean",
+      :string => "String",
+      :error => "Error"
+    }
+
+    should have_accessor :data
+    should have_instance_method :data_xml_value
+
+    should "know its writer hook" do
+      assert_equal :cell, subject.class.writer
+    end
+
+    should "set it's defaults" do
+      assert_nil subject.formula
+      assert_nil subject.href
+      assert_nil subject.merge_across
+      assert_nil subject.merge_down
+
+      assert_equal Xmlss::Element::Cell.type(:string), subject.type
+      assert_equal "", subject.data
+    end
+
+    should "bark when setting non Fixnum indices" do
+      assert_raises ArgumentError do
+        Xmlss::Element::Cell.new({:index => "do it"})
+      end
+
+      assert_raises ArgumentError do
+        Xmlss::Element::Cell.new({:index => 2.5})
+      end
+
+      assert_nothing_raised do
+        Xmlss::Element::Cell.new({:index => 2})
+      end
+    end
+
+    should "bark when setting non Fixnum merge attrs" do
+      assert_raises ArgumentError do
+        Xmlss::Element::Cell.new({:merge_across => "do it"})
+      end
+
+      assert_raises ArgumentError do
+        Xmlss::Element::Cell.new({:merge_down => 2.5})
+      end
+
+      assert_nothing_raised do
+        Xmlss::Element::Cell.new({:merge_across => 2})
+      end
+
+      assert_nothing_raised do
+        Xmlss::Element::Cell.new({:merge_down => 3})
+      end
+    end
+
+    should "nil out merge/index values that are <= 0" do
+      [:index, :merge_across, :merge_down].each do |a|
+        assert_equal nil, Xmlss::Element::Cell.new({a => -1}).send(a)
+        assert_equal nil, Xmlss::Element::Cell.new({a => 0}).send(a)
+        assert_equal 1,   Xmlss::Element::Cell.new({a => 1}).send(a)
+      end
+    end
+
+    should "generate it's data xml value" do
+      assert_equal "12", Xmlss::Element::Cell.new(12).data_xml_value
+      assert_equal "string", Xmlss::Element::Cell.new(:data => "string").data_xml_value
+      assert_equal "2011-03-01T00:00:00", Xmlss::Element::Cell.new(DateTime.parse('2011/03/01')).data_xml_value
+      assert_equal "2011-03-01T00:00:00", Xmlss::Element::Cell.new(Date.parse('2011/03/01')).data_xml_value
+      time = Time.now
+      assert_equal time.strftime("%Y-%m-%dT%H:%M:%S"), Xmlss::Element::Cell.new(time).data_xml_value
+      assert_equal 1, Xmlss::Element::Cell.new(true).data_xml_value
+      assert_equal 0, Xmlss::Element::Cell.new(false).data_xml_value
+    end
+
+  end
+
+  class ExplicitDataTest < CellTests
+    desc "when using explicit data type"
+    subject do
+      Xmlss::Element::Cell.new(12, {:type => :string})
+    end
+
+    should "should ignore the data value's implied type" do
+      assert_equal Xmlss::Element::Cell.type(:string), subject.type
+    end
+
+  end
+
+  class NoTypeDataTest < CellTests
+    desc "when no data type is specified"
+
+    should "cast types for Number, DateTime, Boolean, String" do
+      assert_equal Xmlss::Element::Cell.type(:number),    Xmlss::Element::Cell.new(12).type
+      assert_equal Xmlss::Element::Cell.type(:number),    Xmlss::Element::Cell.new(:data => 123.45).type
+      assert_equal Xmlss::Element::Cell.type(:date_time), Xmlss::Element::Cell.new(Time.now).type
+      assert_equal Xmlss::Element::Cell.type(:boolean),   Xmlss::Element::Cell.new(true).type
+      assert_equal Xmlss::Element::Cell.type(:boolean),   Xmlss::Element::Cell.new(false).type
+      assert_equal Xmlss::Element::Cell.type(:string),    Xmlss::Element::Cell.new("a string").type
+      assert_equal Xmlss::Element::Cell.type(:string),    Xmlss::Element::Cell.new(:data => :symbol).type
+    end
+
+  end
+
+end

data/test/{element/column_test.rb → unit/element/column_tests.rb}

@@ -1,11 +1,11 @@
 require "assert"
-
 require 'xmlss/element/column'
 
-module Xmlss::Element
-  class ColumnTest < Assert::Context
-    desc "Xmlss::Column"
-    before { @c = Column.new }
+class Xmlss::Element::Column
+
+  class UnitTests < Assert::Context
+    desc "Xmlss::Element::Column"
+    before { @c = Xmlss::Element::Column.new }
     subject { @c }
 
     should be_styled
@@ -25,21 +25,23 @@ module Xmlss::Element
 
     should "bark when setting non Numeric width" do
       assert_raises ArgumentError do
-        Column.new({:width => "do it"})
+        Xmlss::Element::Column.new({:width => "do it"})
       end
+
       assert_nothing_raised do
-        Column.new({:width => 2})
+        Xmlss::Element::Column.new({:width => 2})
       end
+
       assert_nothing_raised do
-        Column.new({:width => 3.5})
+        Xmlss::Element::Column.new({:width => 3.5})
       end
     end
 
     should "nil out height values that are < 0" do
-      assert_equal nil, Column.new({:width => -1.2}).width
-      assert_equal nil, Column.new({:width => -1}).width
-      assert_equal 0, Column.new({:width => 0}).width
-      assert_equal 1.2, Column.new({:width => 1.2}).width
+      assert_equal nil, Xmlss::Element::Column.new({:width => -1.2}).width
+      assert_equal nil, Xmlss::Element::Column.new({:width => -1}).width
+      assert_equal 0,   Xmlss::Element::Column.new({:width => 0}).width
+      assert_equal 1.2, Xmlss::Element::Column.new({:width => 1.2}).width
     end
 
   end

data/test/{element/row_test.rb → unit/element/row_tests.rb}

@@ -1,11 +1,11 @@
 require "assert"
-
 require 'xmlss/element/row'
 
-module Xmlss::Element
-  class RowTest < Assert::Context
-    desc "Xmlss::Row"
-    before { @row = Row.new }
+class Xmlss::Element::Row
+
+  class UnitTests < Assert::Context
+    desc "Xmlss::Element::Row"
+    before { @row = Xmlss::Element::Row.new }
     subject { @row }
 
     should be_styled
@@ -13,7 +13,6 @@ module Xmlss::Element
     should have_accessors :height, :auto_fit_height, :autofit, :hidden
     should have_readers   :autofit?, :hidden?
 
-
     should "know its writer hook" do
       assert_equal :row, subject.class.writer
     end
@@ -26,21 +25,23 @@ module Xmlss::Element
 
     should "bark when setting non Numeric height" do
       assert_raises ArgumentError do
-        Row.new({:height => "do it"})
+        Xmlss::Element::Row.new({:height => "do it"})
       end
+
       assert_nothing_raised do
-        Row.new({:height => 2})
+        Xmlss::Element::Row.new({:height => 2})
       end
+
       assert_nothing_raised do
-        Row.new({:height => 3.5})
+        Xmlss::Element::Row.new({:height => 3.5})
       end
     end
 
     should "nil out height values that are < 0" do
-      assert_equal nil, Row.new({:height => -1.2}).height
-      assert_equal nil, Row.new({:height => -1}).height
-      assert_equal 0, Row.new({:height => 0}).height
-      assert_equal 1.2, Row.new({:height => 1.2}).height
+      assert_equal nil, Xmlss::Element::Row.new({:height => -1.2}).height
+      assert_equal nil, Xmlss::Element::Row.new({:height => -1}).height
+      assert_equal 0,   Xmlss::Element::Row.new({:height => 0}).height
+      assert_equal 1.2, Xmlss::Element::Row.new({:height => 1.2}).height
     end
   end
 

data/test/{element/worksheet_test.rb → unit/element/worksheet_tests.rb}

@@ -1,11 +1,11 @@
 require "assert"
-
 require 'xmlss/element/worksheet'
 
-module Xmlss::Element
-  class WorksheetTest < Assert::Context
-    desc "Xmlss::Worksheet"
-    before { @wksht = Worksheet.new('sheet') }
+class Xmlss::Element::Worksheet
+
+  class UnitTests < Assert::Context
+    desc "Xmlss::Element::Worksheet"
+    before { @wksht = Xmlss::Element::Worksheet.new('sheet') }
     subject { @wksht }
 
     should have_class_method :writer
@@ -21,25 +21,30 @@ module Xmlss::Element
 
     should "filter name chars" do
       # worksheet name cannot contain: /, \, :, ;, * or start with '['
-      assert_equal "test test", Worksheet.new("test/ test").name
-      assert_equal "test test", Worksheet.new("tes\\t test").name
-      assert_equal "test test", Worksheet.new("te:st test:").name
-      ws = Worksheet.new("te;st ;test")
+      assert_equal "test test", Xmlss::Element::Worksheet.new("test/ test").name
+      assert_equal "test test", Xmlss::Element::Worksheet.new("tes\\t test").name
+      assert_equal "test test", Xmlss::Element::Worksheet.new("te:st test:").name
+
+      ws = Xmlss::Element::Worksheet.new("te;st ;test")
       assert_equal "test test", ws.name
+
       ws.name = "t*est test"
       assert_equal "test test", ws.name
+
       ws.name = "[te]st test"
       assert_equal "te]st test", ws.name
+
       ws.name = "t[e]st test"
       assert_equal "t[e]st test", ws.name
     end
 
     should "complain if given a name longer than 31 chars" do
       assert_raises ArgumentError do
-        Worksheet.new('a'*32)
+        Xmlss::Element::Worksheet.new('a'*32)
       end
+
       assert_nothing_raised do
-        Worksheet.new('a'*31)
+        Xmlss::Element::Worksheet.new('a'*31)
       end
     end
 

data/test/{element_stack_test.rb → unit/element_stack_tests.rb}

@@ -1,12 +1,10 @@
 require 'assert'
-
 require 'xmlss/element_stack'
+
 require 'xmlss/element/cell'
 require 'xmlss/writer'
 
-module Xmlss
-
-
+class Xmlss::ElementStack
 
   class ElementStackTests < Assert::Context
 
@@ -19,9 +17,9 @@ module Xmlss
 
     desc "an element stack"
     before do
-      @cell1 = Element::Cell.new("1")
-      @cell2 = Element::Cell.new("2")
-      @es = ElementStack.new(TestWriter.new(@test_io = ''), 'tests')
+      @cell1 = Xmlss::Element::Cell.new("1")
+      @cell2 = Xmlss::Element::Cell.new("2")
+      @es    = Xmlss::ElementStack.new(TestWriter.new(@test_io = ''), 'tests')
     end
     subject { @es }
 
@@ -39,8 +37,6 @@ module Xmlss
 
   end
 
-
-
   class StackTests < ElementStackTests
 
     should "push elements onto the stack" do
@@ -77,8 +73,6 @@ module Xmlss
 
   end
 
-
-
   class WriterTests < ElementStackTests
     should "open the current element element when a new element is pushed" do
       expected =  "|written: Xmlss::Element::Cell #{@cell1.object_id}"
@@ -112,6 +106,4 @@ module Xmlss
 
   end
 
-
-
 end

data/test/{style/alignment_test.rb → unit/style/alignment_tests.rb}

@@ -1,14 +1,15 @@
 require "assert"
+require 'xmlss/style/alignment'
+
 require 'enumeration/assert_macros'
 
-require 'xmlss/style/alignment'
+class Xmlss::Style::Alignment
 
-module Xmlss::Style
-  class AlignmentTest < Assert::Context
+  class UnitTests < Assert::Context
     include Enumeration::AssertMacros
 
     desc "Xmlss::Style::Alignment"
-    before { @a = Alignment.new }
+    before { @a = Xmlss::Style::Alignment.new }
     subject { @a }
 
     should have_enum :horizontal, {
@@ -41,15 +42,15 @@ module Xmlss::Style
     end
 
     should "reject invalid rotate alignments" do
-      assert_equal nil, Alignment.new({:rotate => 100}).rotate
-      assert_equal 90,  Alignment.new({:rotate => 90}).rotate
-      assert_equal 0,   Alignment.new({:rotate => 0}).rotate
-      assert_equal -90, Alignment.new({:rotate => -90}).rotate
-      assert_equal nil, Alignment.new({:rotate => -100}).rotate
-      assert_equal 0,   Alignment.new({:rotate => 0.2}).rotate
-      assert_equal 1,   Alignment.new({:rotate => 0.5}).rotate
-      assert_equal nil, Alignment.new({:rotate => "poo"}).rotate
-      assert_equal nil, Alignment.new({:rotate => :poo}).rotate
+      assert_equal nil, Xmlss::Style::Alignment.new({:rotate => 100}).rotate
+      assert_equal 90,  Xmlss::Style::Alignment.new({:rotate => 90}).rotate
+      assert_equal 0,   Xmlss::Style::Alignment.new({:rotate => 0}).rotate
+      assert_equal -90, Xmlss::Style::Alignment.new({:rotate => -90}).rotate
+      assert_equal nil, Xmlss::Style::Alignment.new({:rotate => -100}).rotate
+      assert_equal 0,   Xmlss::Style::Alignment.new({:rotate => 0.2}).rotate
+      assert_equal 1,   Xmlss::Style::Alignment.new({:rotate => 0.5}).rotate
+      assert_equal nil, Xmlss::Style::Alignment.new({:rotate => "poo"}).rotate
+      assert_equal nil, Xmlss::Style::Alignment.new({:rotate => :poo}).rotate
     end
 
     should "set build with values correctly" do
@@ -59,13 +60,13 @@ module Xmlss::Style
         :vertical => :bottom,
         :rotate => 90
       }
-      alignment = Alignment.new(attrs)
+      alignment = Xmlss::Style::Alignment.new(attrs)
 
       attrs.reject{|a, v| [:horizontal, :vertical].include?(a)}.each do |a,v|
         assert_equal v, alignment.send(a)
       end
-      assert_equal Alignment.horizontal(:center), alignment.horizontal
-      assert_equal Alignment.vertical(:bottom), alignment.vertical
+      assert_equal Xmlss::Style::Alignment.horizontal(:center), alignment.horizontal
+      assert_equal Xmlss::Style::Alignment.vertical(:bottom), alignment.vertical
     end
 
   end

data/test/{style/base_test.rb → unit/style/base_tests.rb}

@@ -1,11 +1,11 @@
 require "assert"
 require 'xmlss/style/base'
 
-module Xmlss::Style
+class Xmlss::Style::Base
 
-  class BaseTest < Assert::Context
+  class UnitTests < Assert::Context
     desc "Xmlss::Style::Base"
-    before { @bs = Base.new(:test) }
+    before { @bs = Xmlss::Style::Base.new(:test) }
     subject { @bs }
 
     should have_class_method :writer
@@ -17,14 +17,14 @@ module Xmlss::Style
 
     should "bark if you don't init with an id" do
       assert_raises ArgumentError do
-        Base.new(nil)
+        Xmlss::Style::Base.new(nil)
       end
     end
 
     should "force string ids" do
-      assert_equal 'string', Base.new('string').id
-      assert_equal 'symbol', Base.new(:symbol).id
-      assert_equal '123', Base.new(123).id
+      assert_equal 'string', Xmlss::Style::Base.new('string').id
+      assert_equal 'symbol', Xmlss::Style::Base.new(:symbol).id
+      assert_equal '123',    Xmlss::Style::Base.new(123).id
     end
 
     should "set it's defaults" do

data/test/{style/border_test.rb → unit/style/border_tests.rb}

@@ -1,13 +1,11 @@
 require "assert"
-require 'enumeration/assert_macros'
-
 require 'xmlss/style/border'
 
-module Xmlss::Style
-
+require 'enumeration/assert_macros'
 
+class Xmlss::Style::Border
 
-  class BorderTests < Assert::Context
+  class UnitTests < Assert::Context
     include Enumeration::AssertMacros
 
     desc "Xmlss::Style::Border"
@@ -49,8 +47,8 @@ module Xmlss::Style
     should "set it's defaults" do
       assert_equal nil, subject.color
       assert_equal nil, subject.position
-      assert_equal Border.weight(:thin), subject.weight
-      assert_equal Border.line_style(:continuous), subject.line_style
+      assert_equal Xmlss::Style::Border.weight(:thin), subject.weight
+      assert_equal Xmlss::Style::Border.line_style(:continuous), subject.line_style
     end
 
     should "set attrs at init" do
@@ -60,14 +58,14 @@ module Xmlss::Style
         :weight => :thick,
         :line_style => :dot
       }
-      border = Border.new(attrs)
+      border = Xmlss::Style::Border.new(attrs)
 
       attrs.reject{|a, v| [:position, :weight, :line_style].include?(a)}.each do |a,v|
         assert_equal v, border.send(a)
       end
-      assert_equal Border.position(:top), border.position
-      assert_equal Border.weight(:thick), border.weight
-      assert_equal Border.line_style(:dot), border.line_style
+      assert_equal Xmlss::Style::Border.position(:top), border.position
+      assert_equal Xmlss::Style::Border.weight(:thick), border.weight
+      assert_equal Xmlss::Style::Border.line_style(:dot), border.line_style
     end
 
     should "set attrs by key" do
@@ -75,25 +73,23 @@ module Xmlss::Style
       subject.weight = :medium
       subject.line_style = :dash_dot
 
-      assert_equal Border.position(:bottom), subject.position
-      assert_equal Border.weight(:medium), subject.weight
-      assert_equal Border.line_style(:dash_dot), subject.line_style
+      assert_equal Xmlss::Style::Border.position(:bottom), subject.position
+      assert_equal Xmlss::Style::Border.weight(:medium), subject.weight
+      assert_equal Xmlss::Style::Border.line_style(:dash_dot), subject.line_style
     end
 
     should "set attrs by value" do
-      subject.position = Border.position(:bottom)
-      subject.weight = Border.weight(:medium)
-      subject.line_style = Border.line_style(:dash_dot)
+      subject.position   = Xmlss::Style::Border.position(:bottom)
+      subject.weight     = Xmlss::Style::Border.weight(:medium)
+      subject.line_style = Xmlss::Style::Border.line_style(:dash_dot)
 
-      assert_equal Border.position(:bottom), subject.position
-      assert_equal Border.weight(:medium), subject.weight
-      assert_equal Border.line_style(:dash_dot), subject.line_style
+      assert_equal Xmlss::Style::Border.position(:bottom), subject.position
+      assert_equal Xmlss::Style::Border.weight(:medium), subject.weight
+      assert_equal Xmlss::Style::Border.line_style(:dash_dot), subject.line_style
     end
 
   end
 
-
-
   class BordersTests < Assert::Context
     desc "Xmlss::Style::Borders"
     before { @bs = Xmlss::Style::Borders.new }
@@ -107,6 +103,4 @@ module Xmlss::Style
 
   end
 
-
-
 end