osheet 0.1.0 → 0.2.0

data/test/worksheet_test.rb

@@ -0,0 +1,77 @@
+require "test/helper"
+require 'osheet/worksheet'
+
+module Osheet
+  class WorksheetTest < Test::Unit::TestCase
+
+    context "Osheet::Worksheet" do
+      subject { Worksheet.new }
+
+      should_be_a_workbook_element(Worksheet)
+
+      should_have_instance_methods :name, :attributes
+
+      should "set it's defaults" do
+        assert_equal nil, subject.send(:instance_variable_get, "@name")
+        assert_equal [], subject.columns
+        assert_equal [], subject.rows
+      end
+
+      should_hm(Worksheet, :columns, Column)
+      should_hm(Worksheet, :rows, Row)
+
+      context "that has some columns and rows" do
+        subject do
+          Worksheet.new do
+            name "Poo!"
+
+            column
+
+            row do
+              cell do
+                format  :number
+                data    1
+              end
+            end
+          end
+        end
+
+        should "set it's name" do
+          assert_equal "Poo!", subject.send(:instance_variable_get, "@name")
+        end
+
+        should "know it's name" do
+          subject.name(false)
+          assert_equal false, subject.name
+          subject.name('la')
+          assert_equal 'la', subject.name
+          subject.name(nil)
+          assert_equal 'la', subject.name
+        end
+
+        should "know it's attribute(s)" do
+          [:name].each do |a|
+            assert subject.attributes.has_key?(a)
+          end
+          assert_equal "Poo!", subject.attributes[:name]
+        end
+        should "set it's columns" do
+          columns = subject.columns
+          assert_equal 1, columns.size
+          assert_kind_of Column, columns.first
+          assert_equal subject.columns, columns.first.columns
+        end
+
+        should "set it's rows" do
+          rows = subject.rows
+          assert_equal 1, rows.size
+          assert_kind_of Row, rows.first
+          assert_equal subject.columns, rows.first.columns
+          assert_equal subject.columns, rows.first.cells.first.columns
+        end
+      end
+
+    end
+
+  end
+end

data/test/xmlss_writer/base_test.rb

@@ -0,0 +1,92 @@
+require "test/helper"
+require 'osheet/xmlss_writer'
+
+module Osheet
+
+  class XmlssWriter::BaseTest < Test::Unit::TestCase
+    context "XmlssWriter::Base" do
+      subject { XmlssWriter::Base.new }
+
+      should_have_readers :workbook, :styles
+      should_have_writer :workbook
+
+    end
+  end
+
+  class XmlssWriter::Workbook < Test::Unit::TestCase
+    context "XmlssWriter workbook" do
+      subject { XmlssWriter::Base.new }
+      before do
+        @workbook = Workbook.new {
+          title "xmlss"
+          worksheet { name "testsheet1" }
+        }
+      end
+
+      should "allow writing an Osheet::Workbook" do
+        assert_nothing_raised do
+          subject.workbook = @workbook
+        end
+        assert_raises ArgumentError do
+          subject.workbook = "poo"
+        end
+      end
+
+      should "create an Xmlss workbook" do
+        assert_nothing_raised do
+          subject.workbook = @workbook
+        end
+        assert_kind_of ::Xmlss::Workbook, subject.workbook
+        assert_equal @workbook.worksheets.size, subject.workbook.worksheets.size
+      end
+    end
+  end
+
+  class XmlssWriter::ToData < Test::Unit::TestCase
+    context "XmlssWriter::Base" do
+      subject do
+        XmlssWriter::Base.new({
+          :workbook => Workbook.new {
+            title "written"
+            worksheet {
+              name "Poo!"
+              column
+              row {
+                cell {
+                  data 1
+                  format :number
+                }
+              }
+            }
+          }
+        })
+      end
+      after do
+        # remove any test files this creates
+      end
+
+      should_have_instance_methods :to_data, :to_file
+
+      should "return string xml data" do
+        xml_data = nil
+        assert_nothing_raised do
+          xml_data = subject.to_data
+        end
+        assert_kind_of ::String, xml_data
+        assert_match /^<\?xml/, xml_data
+      end
+
+      should "write xml data to a file path" do
+        path = nil
+        assert_nothing_raised do
+          path = subject.to_file("./tmp/base_test.xls")
+        end
+        assert_kind_of ::String, path
+        assert_equal './tmp/base_test.xls', path
+        assert File.exists?(path)
+      end
+
+    end
+  end
+
+end

data/test/xmlss_writer/elements_test.rb

@@ -0,0 +1,168 @@
+require "test/helper"
+require 'osheet/xmlss_writer'
+
+module Osheet
+
+  class XmlssWriter::WorksheetTest < Test::Unit::TestCase
+    context "when writing a worksheet" do
+      subject { XmlssWriter::Base.new }
+      before do
+        @worksheet = Worksheet.new {
+          name "testsheet2"
+          column { width 100 }
+          row { height 50 }
+        }
+      end
+
+      should "create an Xmlss worksheet" do
+        xmlss_worksheet = subject.send(:worksheet, @worksheet)
+        assert_kind_of ::Xmlss::Worksheet, xmlss_worksheet
+        assert_equal @worksheet.attributes[:name], xmlss_worksheet.name
+        assert_kind_of ::Xmlss::Table, xmlss_worksheet.table
+        assert_equal @worksheet.columns.size, xmlss_worksheet.table.columns.size
+        assert_equal @worksheet.rows.size, xmlss_worksheet.table.rows.size
+      end
+
+      should "filter invalid worksheet names" do
+        { 'valid name' => 'valid name',
+          'valid 2' => 'valid 2',
+          'invalid :' => 'invalid ',
+          'invalid ;' => 'invalid ',
+          'invalid *' => 'invalid ',
+          'invalid /' => 'invalid ',
+          'invalid \\' => 'invalid ',
+          '[invalid]' => "invalid]"
+        }.each do |k,v|
+          assert_equal v, subject.send(:worksheet, Worksheet.new { name k}).name
+        end
+      end
+    end
+  end
+
+  class XmlssWriter::ColumnTest < Test::Unit::TestCase
+    context "when writing a column" do
+      subject { XmlssWriter::Base.new }
+      before do
+        @column = Osheet::Column.new {
+          style_class "awesome"
+          width  100
+          autofit true
+          hidden true
+          meta({
+           :color => 'blue'
+          })
+        }
+        @xmlss_column = subject.send(:column, @column)
+      end
+
+      should "create an Xmlss column" do
+        assert_kind_of ::Xmlss::Column, @xmlss_column
+        assert_equal @column.attributes[:width], @xmlss_column.width
+        assert_equal @column.attributes[:autofit], @xmlss_column.auto_fit_width
+        assert_equal @column.attributes[:hidden], @xmlss_column.hidden
+      end
+
+      should "style an Xmlss column" do
+        assert_equal ".awesome", @xmlss_column.style_id
+        assert_equal 1, subject.styles.size
+        assert_kind_of ::Xmlss::Style::Base, subject.styles.first
+        assert_equal @xmlss_column.style_id, subject.styles.first.id
+      end
+    end
+  end
+
+  class XmlssWriter::RowTest < Test::Unit::TestCase
+    context "when writing a row" do
+      subject { XmlssWriter::Base.new }
+      before do
+        @row = Osheet::Row.new do
+          style_class "awesome thing"
+          height  100
+          autofit true
+          hidden true
+          cell {
+            data  'one hundred'
+          }
+        end
+        subject.workbook = Workbook.new {
+          style('.awesome') {
+            font 14
+          }
+          style('.thing') {
+            font :italic
+          }
+          style('.awesome.thing') {
+            font :bold
+          }
+        }
+        @xmlss_row = subject.send(:row, @row)
+      end
+
+      should "create an Xmlss row" do
+        assert_kind_of ::Xmlss::Row, @xmlss_row
+        assert_equal @row.attributes[:height], @xmlss_row.height
+        assert_equal @row.attributes[:autofit], @xmlss_row.auto_fit_height
+        assert_equal @row.attributes[:hidden], @xmlss_row.hidden
+        assert_equal 1, @xmlss_row.cells.size
+      end
+
+      should "style an Xmlss row" do
+        assert_equal ".awesome.thing", @xmlss_row.style_id
+        assert_equal 1, subject.styles.size
+        assert_kind_of ::Xmlss::Style::Base, subject.styles.first
+        assert_equal @xmlss_row.style_id, subject.styles.first.id
+        assert_equal 14, subject.styles.first.font.size
+        assert_equal true, subject.styles.first.font.bold?
+        assert_equal true, subject.styles.first.font.italic?
+      end
+    end
+  end
+
+  class XmlssWriter::CellTest < Test::Unit::TestCase
+    context "when writing a cell" do
+      subject { XmlssWriter::Base.new }
+      before do
+        @cell = Osheet::Cell.new do
+          style_class "awesome thing"
+          data    100
+          format  :number
+          href    'http://example.com'
+          rowspan 2
+          colspan 5
+        end
+        subject.workbook = Workbook.new {
+          style('.awesome') {
+            font 14
+          }
+          style('.thing') {
+            font :italic
+          }
+          style('.awesome.thing') {
+            font :bold
+          }
+        }
+        @xmlss_cell = subject.send(:cell, @cell)
+      end
+
+      should "create an Xmlss cell with appropriate data" do
+        assert_kind_of ::Xmlss::Cell, @xmlss_cell
+        assert_kind_of ::Xmlss::Data, @xmlss_cell.data
+        assert_equal @cell.attributes[:data], @xmlss_cell.data.value
+        assert_equal ::Xmlss::Data.type(:number), @xmlss_cell.data.type
+        assert_equal 'http://example.com', @xmlss_cell.href
+      end
+
+      should "handle rowspan and colspan" do
+        assert_equal 1, @xmlss_cell.merge_down
+        assert_equal 4, @xmlss_cell.merge_across
+      end
+
+      should "style an Xmlss cell" do
+        assert_equal ".awesome.thing..number_none_0_nocomma_black", @xmlss_cell.style_id
+        assert_equal ".awesome.thing..number_none_0_nocomma_black", subject.styles.first.id
+        assert_equal '0', subject.styles.first.number_format.format
+      end
+    end
+  end
+
+end

data/test/xmlss_writer/styles_test.rb

@@ -0,0 +1,253 @@
+require "test/helper"
+require 'osheet/xmlss_writer'
+
+module Osheet
+
+  class XmlssWriter::Style < Test::Unit::TestCase
+    context("Xmlss style writer") do
+
+      subject { XmlssWriter::Base.new }
+      before do
+        subject.workbook = Workbook.new {
+          style('.font.size') { font 14 }
+          style('.font.weight') { font :bold }
+          style('.font.style') { font :italic }
+        }
+      end
+
+      should "key styles based off class str and format" do
+        assert_equal '', subject.send(:style_key, '', nil)
+        assert_equal '.awesome', subject.send(:style_key, 'awesome', nil)
+        assert_equal '.awesome.thing', subject.send(:style_key, 'awesome thing', nil)
+        assert_equal '.awesome..something', subject.send(:style_key, 'awesome', 'something')
+        assert_equal '..something', subject.send(:style_key, '', 'something')
+      end
+
+      should "not build a style obj when writing styles with no class str or format" do
+        assert_equal nil, subject.send(:style, '')
+      end
+
+      should "build a style obj and add it to the writers styles" do
+        xmlss_style = subject.send(:style, 'awesome')
+        assert_kind_of ::Xmlss::Style::Base, xmlss_style
+        assert_equal '.awesome', xmlss_style.id
+        assert_equal 1, subject.styles.size
+        assert_equal xmlss_style, subject.styles.first
+      end
+
+      should "build a style obj from many matching osheet styles" do
+        xmlss_style = subject.send(:style, 'font size weight style')
+        assert_equal 14, xmlss_style.font.size
+        assert_equal true, xmlss_style.font.bold?
+        assert_equal true, xmlss_style.font.italic?
+      end
+
+      should "provide style ids" do
+        assert_equal '', subject.send(:style_id, '')
+        assert_equal '.awesome', subject.send(:style_id, 'awesome')
+        assert_equal '..number_none_0_nocomma_black', subject.send(:style_id, '', Osheet::Format.new(:number))
+        assert_equal 2, subject.styles.size
+      end
+
+    end
+  end
+
+  class XmlssWriter::Alignment < Test::Unit::TestCase
+    context("Alignment style writer") do
+
+      subject { XmlssWriter::Base.new }
+      before do
+        subject.workbook = Workbook.new {
+          [
+            :left, :center, :right,
+            :top, :middle, :bottom,
+            :wrap
+          ].each do |s|
+            style(".align.#{s}") { align s }
+          end
+          style('.align.rotate') { align 90 }
+        }
+      end
+
+      should "build a style obj with empty alignment settings by default" do
+        assert_equal nil, subject.send(:style, 'align').alignment
+      end
+
+      should "build style objs for horizontal alignment settings" do
+        assert_equal ::Xmlss::Style::Alignment.horizontal(:left), subject.send(:style, 'align left').alignment.horizontal
+        assert_equal ::Xmlss::Style::Alignment.horizontal(:center), subject.send(:style, 'align center').alignment.horizontal
+        assert_equal ::Xmlss::Style::Alignment.horizontal(:right), subject.send(:style, 'align right').alignment.horizontal
+      end
+
+      should "build style objs for vertical alignment settings" do
+        assert_equal ::Xmlss::Style::Alignment.vertical(:top), subject.send(:style, 'align top').alignment.vertical
+        assert_equal ::Xmlss::Style::Alignment.vertical(:center), subject.send(:style, 'align middle').alignment.vertical
+        assert_equal ::Xmlss::Style::Alignment.vertical(:bottom), subject.send(:style, 'align bottom').alignment.vertical
+      end
+
+      should "build style objs for text wrap settings" do
+        assert_equal true, subject.send(:style, 'align wrap').alignment.wrap_text?
+      end
+
+      should "build style objs for text rotation settings" do
+        assert_equal 90, subject.send(:style, 'align rotate').alignment.rotate
+      end
+
+    end
+  end
+
+  class XmlssWriter::Font < Test::Unit::TestCase
+    context("Font style writer") do
+
+      subject { XmlssWriter::Base.new }
+      before do
+        subject.workbook = Workbook.new {
+          [
+            :underline, :double_underline,
+            :subscript, :superscript,
+            :bold, :italic, :strikethrough,
+            :wrap
+          ].each do |s|
+            style(".font.#{s}") { font s }
+          end
+          style('.font.size') { font 14 }
+          style('.font.color') { font '#FF0000' }
+        }
+      end
+
+      should "build a style obj with empty font settings by default" do
+        assert_equal nil, subject.send(:style, 'font').font
+      end
+
+      should "build style objs for font underline settings" do
+        assert_equal ::Xmlss::Style::Font.underline(:single), subject.send(:style, 'font underline').font.underline
+        assert_equal ::Xmlss::Style::Font.underline(:double), subject.send(:style, 'font double_underline').font.underline
+      end
+
+      should "build style objs for font alignment settings" do
+        assert_equal ::Xmlss::Style::Font.alignment(:subscript), subject.send(:style, 'font subscript').font.alignment
+        assert_equal ::Xmlss::Style::Font.alignment(:superscript), subject.send(:style, 'font superscript').font.alignment
+      end
+
+      should "build style objs for font style settings" do
+        assert_equal true, subject.send(:style, 'font bold').font.bold?
+        assert_equal true, subject.send(:style, 'font italic').font.italic?
+        assert_equal true, subject.send(:style, 'font strikethrough').font.strike_through?
+      end
+
+      should "build style objs for font size" do
+        assert_equal 14, subject.send(:style, 'font size').font.size
+      end
+
+      should "build style objs for font color" do
+        assert_equal '#FF0000', subject.send(:style, 'font color').font.color
+      end
+
+    end
+  end
+
+  class XmlssWriter::Bg < Test::Unit::TestCase
+    context("Font bg writer") do
+
+      subject { XmlssWriter::Base.new }
+      before do
+        subject.workbook = Workbook.new {
+          style('.bg.color') { bg '#FF0000' }
+          style('.bg.pattern-only') { bg :solid }
+          style('.bg.pattern-color') { bg :horz_stripe => '#0000FF' }
+        }
+      end
+
+      should "build a style obj with empty bg settings by default" do
+        assert_equal nil, subject.send(:style, 'bg').interior
+      end
+
+      should "build style objs for bg color" do
+        assert_equal '#FF0000', subject.send(:style, 'bg color').interior.color
+      end
+
+      should "build style objs for bg pattern settings" do
+        assert_equal ::Xmlss::Style::Interior.pattern(:solid), subject.send(:style, 'bg pattern-only').interior.pattern
+        assert_equal nil, subject.send(:style, 'bg pattern-only').interior.pattern_color
+        assert_equal ::Xmlss::Style::Interior.pattern(:horz_stripe), subject.send(:style, 'bg pattern-color').interior.pattern
+        assert_equal '#0000FF', subject.send(:style, 'bg pattern-color').interior.pattern_color
+      end
+
+    end
+  end
+
+  class XmlssWriter::Border < Test::Unit::TestCase
+    context("Font border writer") do
+
+      subject { XmlssWriter::Base.new }
+      before do
+        subject.workbook = Workbook.new {
+          ::Osheet::Style::BORDER_POSITIONS.each do |p|
+            style(".border.#{p}") { send("border_#{p}", :thin) }
+          end
+          [:hairline, :thin, :medium, :thick].each do |w|
+            style(".border.#{w}") { border_top w }
+          end
+          [:none, :continuous, :dash, :dot, :dash_dot, :dash_dot_dot].each do |s|
+            style(".border.#{s}") { border_top s }
+          end
+          style('.border.color') { border_top '#FF0000' }
+          style('.border.all') { border :thick, :dash, '#FF0000' }
+        }
+      end
+
+      should "build a style obj with empty border settings by default" do
+        style = subject.send(:style, 'border')
+        assert_kind_of ::Xmlss::ItemSet, style.borders
+        assert_equal [], style.borders
+      end
+
+      should "build style objs with identical settings for all positions when using 'border'" do
+        style = subject.send(:style, 'border all')
+        assert_equal 4, style.borders.size
+        assert_equal 1, style.borders.collect{|p| p.weight}.uniq.size
+        assert_equal 1, style.borders.collect{|p| p.line_style}.uniq.size
+        assert_equal 1, style.borders.collect{|p| p.color}.uniq.size
+      end
+
+      should "build style objs for border specific positions" do
+        ::Osheet::Style::BORDER_POSITIONS.each do |p|
+          assert_equal ::Xmlss::Style::Border.position(p), subject.send(:style, "border #{p}").borders.first.position
+        end
+      end
+
+      should "build style objs for border weight settings" do
+        [:hairline, :thin, :medium, :thick].each do |w|
+          assert_equal ::Xmlss::Style::Border.weight(w), subject.send(:style, "border #{w}").borders.first.weight
+        end
+      end
+
+      should "build style objs for border style settings" do
+        [:none, :continuous, :dash, :dot, :dash_dot, :dash_dot_dot].each do |s|
+          assert_equal ::Xmlss::Style::Border.line_style(s), subject.send(:style, "border #{s}").borders.first.line_style
+        end
+      end
+
+      should "build style objs for border color" do
+        assert_equal '#FF0000', subject.send(:style, 'border color').borders.first.color
+      end
+
+    end
+  end
+
+  class XmlssWriter::NumberFormat < Test::Unit::TestCase
+    context("Xmlss style number format writer") do
+
+      subject { XmlssWriter::Base.new }
+
+      should "build a style obj with formatting" do
+        # TODO: uncomment when further styles defined
+        #assert_equal '@', subject.send(:style, '', Osheet::Format.new(:text)).number_format.format
+        #assert_equal 'mm/dd/yy', subject.send(:style, '', 'mm/dd/yy').number_format.format
+      end
+
+    end
+  end
+
+
+end