xmlss 0.0.1

data/test/style/font_test.rb

@@ -0,0 +1,100 @@
+require "test/helper"
+require 'xmlss/style/font'
+
+class Xmlss::Style::FontTest < Test::Unit::TestCase
+
+  context "Xmlss::Style::Font" do
+    subject { Xmlss::Style::Font.new }
+
+    should_have_class_method :underline
+    {
+      :none => 0,
+      :single => 1,
+      :double => 2
+    }.each do |underline, value|
+      should "provide the value for the '#{underline}' underline" do
+        assert_equal value, Xmlss::Style::Font.underline(underline)
+      end
+    end
+
+    should_have_class_method :alignment
+    {
+      :none => 0,
+      :subscript => 1,
+      :superscript => 2
+    }.each do |alignment, value|
+      should "provide the value for the '#{alignment}' alignment" do
+        assert_equal value, Xmlss::Style::Font.alignment(alignment)
+      end
+    end
+
+    should_have_accessors :bold, :color, :italic, :size, :strike_through
+    should_have_accessors :underline, :alignment
+    should_have_instance_methods :bold?, :italic?, :strike_through?
+
+    should "set it's defaults" do
+      assert_equal false, subject.bold
+      assert_equal nil, subject.color
+      assert_equal false, subject.italic
+      assert_equal nil, subject.size
+      assert_equal false, subject.strike_through
+      assert_equal Xmlss::Style::Font.underline(:default), subject.underline
+      assert_equal Xmlss::Style::Font.alignment(:default), subject.alignment
+    end
+
+    context "that sets attributes at init" do
+      before do
+        @attrs = {
+          :bold => true,
+          :color => '#FF0000',
+          :italic => true,
+          :size => 10,
+          :strike_through => true,
+          :underline => :single,
+          :alignment => :superscript
+        }
+        @font = Xmlss::Style::Font.new(@attrs)
+      end
+      subject{ @font }
+
+      should "should set them correctly" do
+        @attrs.reject{|a, v| [:underline, :alignment].include?(a)}.each do |a,v|
+          assert_equal v, subject.send(a)
+        end
+        assert_equal Xmlss::Style::Font.underline(:single), subject.underline
+        assert_equal Xmlss::Style::Font.alignment(:superscript), subject.alignment
+      end
+    end
+
+    context "that sets underline and alignment by key" do
+      before do
+        subject.underline = :double
+        subject.alignment = :subscript
+      end
+
+      should "should returm it by value" do
+        assert_equal Xmlss::Style::Font.underline(:double), subject.underline
+        assert_equal Xmlss::Style::Font.alignment(:subscript), subject.alignment
+      end
+    end
+
+    context "that sets underline and alignment by value" do
+      before do
+        subject.underline = Xmlss::Style::Font.underline(:double)
+        subject.alignment = Xmlss::Style::Font.alignment(:subscript)
+      end
+
+      should "should returm it by value" do
+        assert_equal Xmlss::Style::Font.underline(:double), subject.underline
+        assert_equal Xmlss::Style::Font.alignment(:subscript), subject.alignment
+      end
+    end
+
+    context "for generating XML" do
+      should_have_reader :xml
+      should_build_node
+      should_build_no_attributes_by_default(Xmlss::Style::Font)
+    end
+
+  end
+end

data/test/style/interior_test.rb

@@ -0,0 +1,87 @@
+require "test/helper"
+require 'xmlss/style/interior'
+
+class Xmlss::Style::InteriorTest < Test::Unit::TestCase
+
+  context "Xmlss::Style::Interior" do
+    subject { Xmlss::Style::Interior.new }
+
+    should_have_class_method :pattern
+    {
+      :none => "None",
+      :solid => "Solid",
+      :gray75 => "Gray75",
+      :gray50 => "Gray50",
+      :gray25 => "Gray25",
+      :gray125 => "Gray125",
+      :gray0625 => "Gray0625",
+      :horz_stripe => "HorzStripe",
+      :vert_stripe => "VertStripe",
+      :reverse_diag_stripe => "ReverseDiagStripe",
+      :diag_stripe => "DiagStripe",
+      :diag_cross => "DiagCross",
+      :thick_diag_cross => "ThickDiagCross",
+      :thin_horz_stripe => "ThinHorzStripe",
+      :thin_vert_stripe => "ThinVertStripe",
+      :thin_reverse_diag_stripe => "ThinReverseDiagStripe",
+      :thin_diag_stripe => "ThineDiagStripe",
+      :thin_horz_cross => "ThinHorzCross",
+      :thin_diag_cross => "ThinDiagCross"
+    }.each do |pattern, value|
+      should "provide the value for the '#{pattern}' pattern" do
+        assert_equal value, Xmlss::Style::Interior.pattern(pattern)
+      end
+    end
+
+    should_have_accessor :color, :pattern, :pattern_color
+
+    should "set it's defaults" do
+      assert_equal nil, subject.color
+      assert_equal nil, subject.pattern
+      assert_equal nil, subject.pattern_color
+    end
+
+    context "that sets attributes at init" do
+      subject do
+        Xmlss::Style::Interior.new({
+          :color => "#000000",
+          :pattern => :solid,
+          :pattern_color => "#FF0000"
+        })
+      end
+
+      should "should set them correctly" do
+        assert_equal "#000000", subject.color
+        assert_equal "Solid", subject.pattern
+        assert_equal "#FF0000", subject.pattern_color
+      end
+    end
+
+    context "that sets pattern by key" do
+      before do
+        subject.pattern = :solid
+      end
+
+      should "should returm them by value" do
+        assert_equal "Solid", subject.pattern
+      end
+    end
+
+    context "that sets attributes by value" do
+      before do
+        subject.pattern = "Solid"
+      end
+
+      should "should returm them by value" do
+        assert_equal "Solid", subject.pattern
+      end
+    end
+
+    context "for generating XML" do
+      should_have_reader :xml
+      should_build_node
+      should_build_no_attributes_by_default(Xmlss::Style::Alignment)
+    end
+
+  end
+end

data/test/style/number_format_test.rb

@@ -0,0 +1,50 @@
+require "test/helper"
+require 'xmlss/style/number_format'
+
+class Xmlss::Style::NumberFormatTest < Test::Unit::TestCase
+
+  context "Xmlss::Style::NumberFormat" do
+    subject { Xmlss::Style::NumberFormat.new }
+
+    should_have_accessor :format
+
+    context "that sets attributes at init" do
+      subject do
+        Xmlss::Style::NumberFormat.new({
+          :format => "General"
+        })
+      end
+
+      should "should set them correctly" do
+        assert_equal "General", subject.format
+      end
+    end
+
+    context "that sets format by key" do
+      before do
+        subject.format = "@"
+      end
+
+      should "should returm it by value" do
+        assert_equal "@", subject.format
+      end
+    end
+
+    context "that sets format by value" do
+      before do
+        subject.format = "True/False"
+      end
+
+      should "should returm it by value" do
+        assert_equal "True/False", subject.format
+      end
+    end
+
+    context "for generating XML" do
+      should_have_reader :xml
+      should_build_node
+      should_build_no_attributes_by_default(Xmlss::Style::Alignment)
+    end
+
+  end
+end

data/test/style/protection_test.rb

@@ -0,0 +1,45 @@
+require "test/helper"
+require 'xmlss/style/protection'
+
+class Xmlss::Style::ProtectionTest < Test::Unit::TestCase
+
+  context "Xmlss::Style::Protection" do
+    subject { Xmlss::Style::Protection.new }
+
+    should_have_instance_methods :protected?
+    should_have_accessor :protect
+
+    should "set it's defaults" do
+      assert_equal false, subject.protected?
+    end
+
+    context "that sets attributes at init" do
+      subject do
+        Xmlss::Style::Protection.new({
+          :protect => true
+        })
+      end
+
+      should "should set them correctly" do
+        assert subject.protected?
+      end
+    end
+
+    context "that sets attributes after init" do
+      before do
+        subject.protect = true
+      end
+
+      should "should set them correctly" do
+        assert subject.protected?
+      end
+    end
+
+    context "for generating XML" do
+      should_have_reader :xml
+      should_build_node
+      should_build_no_attributes_by_default(Xmlss::Style::Alignment)
+    end
+
+  end
+end

data/test/table_test.rb

@@ -0,0 +1,53 @@
+require "test/helper"
+require 'xmlss/table'
+
+module Xmlss
+  class TableTest < Test::Unit::TestCase
+
+    context "Xmlss::Table" do
+      subject { Table.new }
+
+      should_have_accessor :columns, :rows
+
+      should "set it's defaults" do
+        assert_equal [], subject.columns
+        assert_equal [], subject.rows
+      end
+
+      should "allow defining a rows/columns at init" do
+        tbl = Table.new({
+          :columns => [Column.new],
+          :rows => [Row.new]
+        })
+
+        assert_equal 1, tbl.columns.size
+        assert_kind_of Column, tbl.columns.first
+        assert_equal 1, tbl.rows.size
+        assert_kind_of Row, tbl.rows.first
+      end
+
+      context "for generating XML" do
+        should_have_reader :xml
+        should_build_node
+      end
+
+      context "when using rows/columns" do
+        before do
+          subject.columns << Column.new
+          r = Row.new
+          r.cells << Cell.new
+          subject.rows << r
+        end
+
+        should "should build a table object" do
+          assert_equal 1, subject.columns.size
+          assert_kind_of Column, subject.columns.first
+          assert_equal 1, subject.rows.size
+          assert_kind_of Row, subject.rows.first
+        end
+      end
+
+    end
+
+  end
+end

data/test/thing.rb

@@ -0,0 +1,5 @@
+class Thing
+  attr_accessor :one, :two, :three, :xml
+
+  include Xmlss::Xml
+end

data/test/workbook_test.rb

@@ -0,0 +1,59 @@
+require "test/helper"
+require 'xmlss/workbook'
+
+module Xmlss
+  class WorkbookTest < Test::Unit::TestCase
+
+    context "Xmlss::Workbook" do
+      subject { Workbook.new }
+
+      should_have_accessor :styles, :worksheets
+      should_have_instance_method :to_xml
+
+      should "set it's defaults" do
+        assert_equal [], subject.styles
+        assert_equal [], subject.worksheets
+      end
+
+      context "when initializing with attrs" do
+        subject do
+          styles = [
+            Xmlss::Style::Base.new('title') do
+              alignment({:horizontal => :left})
+              font({:size => 14, :bold => true})
+            end,
+
+            Xmlss::Style::Base.new('header') do
+              alignment({:horizontal => :left})
+              font({:bold => true})
+              [:top, :right, :bottom, :left].each do |p|
+                border({:position => :p})
+              end
+            end
+          ]
+          Workbook.new({
+            :worksheets => [Worksheet.new('sheet1')],
+            :styles => styles
+          })
+        end
+
+        should "build the attrs appropriately" do
+          [:worksheets, :styles].each do |thing|
+            assert_kind_of ItemSet, subject.send(thing)
+          end
+          assert_kind_of Worksheet, subject.worksheets.first
+          assert_equal 1, subject.worksheets.size
+
+          assert_kind_of Style::Base, subject.styles.first
+          assert_equal 2, subject.styles.size
+        end
+      end
+
+      context "for generating XML" do
+        should_have_reader :xml
+        should_build_node
+      end
+    end
+
+  end
+end

data/test/worksheet_test.rb

@@ -0,0 +1,62 @@
+require "test/helper"
+require 'xmlss/worksheet'
+
+module Xmlss
+  class WorksheetTest < Test::Unit::TestCase
+
+    context "Xmlss::Worksheet" do
+      subject { Worksheet.new('sheet') }
+
+      should_have_accessor :name, :table
+
+      should "set it's defaults" do
+        assert_equal 'sheet', subject.name
+        assert_kind_of Table, subject.table
+        assert_equal [], subject.table.columns
+        assert_equal [], subject.table.rows
+      end
+
+      should "filter name chars" do
+        # worksheet name cannot contain: /, \, ?, *, [, ]
+        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
+        assert_equal "test test", Worksheet.new("t*est test").name
+        assert_equal "test test", Worksheet.new("[te]st test").name
+      end
+
+      should "allow defining a table at init" do
+        wksht = Worksheet.new('table', {
+          :table => Table.new({
+            :columns => [Column.new]
+          })
+        })
+
+        assert_equal 1, wksht.table.columns.size
+        assert_kind_of Column, wksht.table.columns.first
+      end
+
+      should "bark when no name is given" do
+        assert_raises ArgumentError do
+          Worksheet.new(nil)
+        end
+        assert_raises ArgumentError do
+          Worksheet.new("")
+        end
+      end
+
+      should "bark when setting a table to something other" do
+        assert_raises ArgumentError do
+          subject.table = "not a table"
+        end
+      end
+
+      context "for generating XML" do
+        should_have_reader :xml
+        should_build_node
+      end
+
+    end
+
+  end
+end

data/test/xml_test.rb

@@ -0,0 +1,61 @@
+require "test/helper"
+require 'test/thing'
+
+module Xmlss
+  class XmlTest < Test::Unit::TestCase
+
+    context "Xmlss::Xml" do
+      subject { Thing.new }
+
+      should "should provide proper namespace constants" do
+        assert_equal "xmlns", Xmlss::XML_NS
+        assert_equal "ss", Xmlss::SHEET_NS
+        assert_equal "urn:schemas-microsoft-com:office:spreadsheet", Xmlss::NS_URI
+      end
+
+      should "bark if you use xml generation without configuring" do
+        assert_raises ArgumentError do
+          ::Nokogiri::XML::Builder.new do |builder|
+            subject.build_node(builder)
+          end
+        end
+      end
+
+      context "with config" do
+        before do
+          subject.xml = {
+            :node => :thing,
+            :attributes => [:one, :two, :three]
+          }
+          subject.one = true
+          subject.two = "two"
+          subject.three = ""
+        end
+
+        should "build it's node" do
+          assert_nothing_raised do
+            ::Nokogiri::XML::Builder.new do |builder|
+              subject.build_node(builder)
+            end
+          end
+        end
+
+        should "generate build attributes based on it's own attributes" do
+          assert_nothing_raised do
+            subject.send :build_attributes
+          end
+          attrs = subject.send :build_attributes
+
+          assert_kind_of ::Hash, attrs
+          assert attrs.has_key?("#{Xmlss::SHEET_NS}:One")
+          assert_equal 1, attrs["#{Xmlss::SHEET_NS}:One"]
+          assert attrs.has_key?("#{Xmlss::SHEET_NS}:Two")
+          assert_equal 'two', attrs["#{Xmlss::SHEET_NS}:Two"]
+          assert !attrs.has_key?("#{Xmlss::SHEET_NS}:Three")
+        end
+      end
+
+    end
+
+  end
+end

data/test/xmlss_test.rb

@@ -0,0 +1,29 @@
+require "test/helper"
+
+class XmlssTest < Test::Unit::TestCase
+
+  context "Xmlss helpers" do
+    should "be provided" do
+      assert_respond_to Xmlss, :classify
+      assert_respond_to Xmlss, :xmlify
+    end
+
+    should "classify underscored strings" do
+      assert_nothing_raised do
+        subject.send(:classify, 'poo')
+      end
+      assert_equal "Poo", subject.send(:classify, 'poo')
+      assert_equal "MorePoo", subject.send(:classify, 'more_poo')
+    end
+
+    should "filter values for use in XML" do
+      assert_nothing_raised do
+        subject.send(:xmlify, 'poo')
+      end
+      assert_equal 1, subject.send(:xmlify, true)
+      assert_equal nil, subject.send(:xmlify, false)
+      assert_equal nil, subject.send(:xmlify, "")
+      assert_equal "poo", subject.send(:xmlify, 'poo')
+    end
+  end
+end

data/xmlss.gemspec

@@ -0,0 +1,23 @@
+# -*- encoding: utf-8 -*-
+$:.push File.expand_path("../lib", __FILE__)
+require "xmlss/version"
+
+Gem::Specification.new do |s|
+  s.name        = "xmlss"
+  s.version     = Xmlss::VERSION
+  s.platform    = Gem::Platform::RUBY
+  s.authors     = ["Kelly Redding"]
+  s.email       = ["kelly@kelredd.com"]
+  s.homepage    = "http://github.com/kelredd/xmlss"
+  s.summary     = %q{Generate spreadsheet docs for MS Excel using XML Spreedsheet}
+  s.description = %q{This gem provides an api for constructing spreadsheet data and then uses that data to generate xml that can be interpreted by MS Excel.  The xml conforms to the XML Spreadsheet spec (http://msdn.microsoft.com/en-us/library/aa140066(office.10).aspx).}
+
+  s.files         = `git ls-files`.split("\n")
+  s.test_files    = `git ls-files -- {test,spec,features}/*`.split("\n")
+  s.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
+  s.require_paths = ["lib"]
+
+  s.add_development_dependency("bundler", ["~> 1.0"])
+  s.add_development_dependency("test-belt", ["= 0.2.1"]) # locked to a specific version for test stability
+  s.add_dependency("nokogiri", ["~> 1.4.0"])
+end