xlsxwriter 0.0.2

data/test/test-gridlines.rb

@@ -0,0 +1,15 @@
+require_relative './xlsx-func-testcase'
+
+class TestGridlines < XlsxWriterTestCase
+  test 'gridlines01' do |wb, t|
+    t.ignore_elements = { 'xl/worksheets/sheet1.xml' => [ '<pageMargins' ] }
+    ws = wb.add_worksheet
+
+    ws.paper = 9
+    ws.vertical_dpi = 200
+
+    ws.gridlines = XlsxWriter::Worksheet::GRIDLINES_HIDE_ALL
+
+    ws.write_string(0, 'A', 'Foo' , nil)
+  end
+end

data/test/test-hyperlink.rb

@@ -0,0 +1,67 @@
+require_relative './xlsx-func-testcase'
+
+class TestHyperlink < XlsxWriterTestCase
+  test 'hyperlink03' do |wb|
+    ws1 = wb.add_worksheet
+    ws2 = wb.add_worksheet
+
+    ws1
+      .write_url(0,  'A', 'http://www.perl.org/')
+      .write_url(3,  'D', 'http://www.perl.org/')
+      .write_url(7,  'A', 'http://www.perl.org/')
+      .write_url(5,  'B', 'http://www.cpan.org/')
+      .write_url(11, 'F', 'http://www.cpan.org/')
+
+    ws2
+      .write_url(1,  'C', 'http://www.google.com/')
+      .write_url(4,  'C', 'http://www.cpan.org/')
+      .write_url(6,  'C', 'http://www.perl.org/')
+  end
+
+  test 'hyperlink05' do |wb|
+    wb.add_worksheet
+      .write_url(0, 'A', 'http://www.perl.org/')
+      .write_url(2, 'A', 'http://www.perl.org/', nil, string: 'Perl home')
+      .write_url(4, 'A', 'http://www.perl.org/', string: 'Perl home', tooltip: 'Tool Tip')
+      .write_url(6, 'A', 'http://www.cpan.org/', string: 'CPAN', tooltip: 'Download')
+  end
+
+  test 'hyperlink09' do |wb|
+    wb.add_worksheet
+      .write_url(0, 'A', 'external:..\\foo.xlsx')
+      .write_url(2, 'A', 'external:..\\foo.xlsx#Sheet1!A1')
+      .write_url(4, 'A', 'external:\\\\VBOXSVR\\share\\foo.xlsx#Sheet1!B2',
+                 string: 'J:\\foo.xlsx#Sheet1!B2')
+  end
+
+  test 'hyperlink14' do |wb, t|
+    t.ignore_files = %w(xl/sharedStrings.xml)
+
+    wb.add_format(:f, align: XlsxWriter::Format::ALIGN_CENTER)
+    ws = wb.add_worksheet
+    ws
+      .write_string(0, 0, 'Perl Home', nil)
+      .merge_range(3, 2, 4, 4, 'http://www.perl.org/', :f)
+      .write_url(3, 2, 'http://www.perl.org/', format: :f, string: 'Perl Home')
+  end
+
+  test 'hyperlink18' do |wb|
+    wb.add_worksheet
+      .write_url(0, 0, 'http://google.com/00000000001111111111222222222233333333334444444444555555555566666666666777777777778888888888999999999990000000000111111111122222222223333333333444444444455555555556666666666677777777777888888888899999999999000000000011111111112222222222x')
+      .write_url(0, 0, 'http://google.com/00000000001111111111222222222233333333334444444444555555555566666666666777777777778888888888999999999990000000000111111111122222222223333333333444444444455555555556666666666677777777777888888888899999999999000000000011111111112222222222xy')
+  end
+
+  test 'hyperlink20' do |wb, t|
+    t.ignore_files = %w(xl/styles.xml)
+
+    wb
+      .add_format(:f1, underline:  XlsxWriter::Format::UNDERLINE_SINGLE,
+                       font_color: XlsxWriter::Format::COLOR_BLUE)
+      .add_format(:f2, underline:  XlsxWriter::Format::UNDERLINE_SINGLE,
+                       font_color: XlsxWriter::Format::COLOR_RED)
+      .add_worksheet
+      .write_url(0, 0, 'http://www.python.org/1', :f1)
+      .write_url(1, 0, 'http://www.python.org/2', :f2)
+
+  end
+end

data/test/test-image.rb

@@ -0,0 +1,84 @@
+require_relative './xlsx-func-testcase'
+
+class TestImage < XlsxWriterTestCase
+  test 'image01' do |wb|
+    wb.add_worksheet.insert_image(8, 'E', image_path('red.png'), {})
+  end
+
+  test 'image02' do |wb|
+    wb.add_worksheet.insert_image(6, 'D', image_path('yellow.png'), x_offset: 1, y_offset: 2)
+  end
+
+  test 'image03' do |wb|
+    wb.add_worksheet.insert_image(8, 'E', image_path('red.jpg'), {})
+  end
+
+  test 'image04' do |wb|
+    wb.add_worksheet.insert_image(8, 'E', image_path('red.bmp'), {})
+  end
+
+  test 'image05' do |wb|
+    ws = wb.add_worksheet
+    ws.insert_image(0, 'A', image_path('blue.png'), {})
+    ws.insert_image(2, 'B', image_path('red.jpg'), {})
+    ws.insert_image(4, 'D', image_path('yellow.jpg'), {})
+    ws.insert_image(8, 'F', image_path('grey.png'), {})
+  end
+
+  test 'image07' do |wb|
+    wb.add_worksheet.insert_image(8, 'E', image_path('red.png'), {})
+    wb.add_worksheet.insert_image(8, 'E', image_path('yellow.png'), {})
+  end
+
+  test 'image08' do |wb|
+    wb.add_worksheet.insert_image(2, 'B', image_path('grey.png'), scale: 0.5)
+  end
+
+  test 'image09' do |wb|
+    wb.add_worksheet.insert_image(8, 'E', image_path('red_64x20.png'), {})
+  end
+
+  test 'image10' do |wb|
+    wb.add_worksheet.insert_image(1, 'C', image_path('logo.png'), {})
+  end
+
+  test 'image11' do |wb|
+    wb.add_worksheet.insert_image(1, 'C', image_path('logo.png'), x_offset: 8, y_offset: 5)
+  end
+
+  test 'image12' do |wb|
+    ws = wb.add_worksheet
+    ws.set_row(1, height: 75)
+    ws.set_column(2, 2, width: 32)
+    ws.insert_image(1, 'C', image_path('logo.png'), {})
+  end
+
+  test 'image13' do |wb|
+    ws = wb.add_worksheet
+    ws.set_row(1, height: 75)
+    ws.set_column(2, 2, width: 32)
+    ws.insert_image(1, 'C', image_path('logo.png'), x_offset: 8, y_offset: 5)
+  end
+
+  test 'image14' do |wb|
+    ws = wb.add_worksheet
+    ws.set_row(1, height: 4.5)
+    ws.set_row(2, height: 35.25)
+    ws.set_column(2, 4, width: 3.29)
+    ws.set_column(5, 5, width: 10.71)
+    ws.insert_image(1, 'C', image_path('logo.png'), {})
+  end
+
+  test 'image15' do |wb|
+    ws = wb.add_worksheet
+    ws.set_row(1, height: 4.5)
+    ws.set_row(2, height: 35.25)
+    ws.set_column(2, 4, width: 3.29)
+    ws.set_column(5, 5, width: 10.71)
+    ws.insert_image(1, 'C', image_path('logo.png'), x_offset: 13, y_offset: 2)
+  end
+
+  test 'image29' do |wb|
+    wb.add_worksheet.insert_image(0, 10, image_path('red_208.png'), x_offset: -210, y_offset: 1)
+  end
+end

data/test/test-merge-range.rb

@@ -0,0 +1,18 @@
+require_relative './xlsx-func-testcase'
+
+class TestMergeRange < XlsxWriterTestCase
+  test 'merge_range03' do |wb|
+    wb.add_format(:f, align: XlsxWriter::Format::ALIGN_CENTER)
+    wb.add_worksheet
+      .merge_range(1, 1, 1, 2, 'Foo', :f)
+      .merge_range('D2:E2',    'Foo', :f)
+      .merge_range('F2', 'G2', 'Foo', :f)
+  end
+
+  test 'merge_range05' do |wb|
+    wb.add_format(:f, align: XlsxWriter::Format::ALIGN_CENTER)
+    wb.add_worksheet
+      .merge_range('B2:D2', '', :f)
+      .write_number(1, 1, 123, :f)
+  end
+end

data/test/test-misc.rb

@@ -0,0 +1,29 @@
+require_relative './xlsx-func-testcase'
+
+class TestMisc < XlsxWriterTestCase
+  test 'tab_color01' do |wb|
+    wb.add_worksheet
+      .write_string(0, 0, 'Foo', nil)
+      .tab_color = XlsxWriter::Format::COLOR_RED
+  end
+
+  test 'firstsheet01' do |wb|
+    wss = 20.times.map { wb.add_worksheet }
+    wss[7].set_first_sheet
+    wss[19].activate
+  end
+
+  test 'hide01' do |wb|
+    wb.add_worksheet
+    wb.add_worksheet.hide
+    wb.add_worksheet
+  end
+
+  test 'gh42_01' do |wb|
+    wb.add_worksheet.write_string(0, 0, "\xe5\x9b\xbe\x14\xe5\x9b\xbe", nil)
+  end
+
+  test 'gh42_02' do |wb|
+    wb.add_worksheet.write_string(0, 0, "\xe5\x9b\xbe\x20\xe5\x9b\xbe", nil)
+  end
+end

data/test/test-optimize.rb

@@ -0,0 +1,32 @@
+require_relative './xlsx-func-testcase'
+
+class TestOptimize < XlsxWriterTestCase
+  test('optimize01', constant_memory: true) do |wb|
+    wb.add_worksheet
+      .write_string(0, 0, 'Hello', nil)
+      .write_string(0, 0, 'Hello', nil)
+      .write_number(1, 0, 123, nil)
+  end
+
+  test('optimize02', constant_memory: true) do |wb|
+    wb.add_worksheet
+      .write_string(0, 0, 'Hello', nil)
+      .write_number(1, 0, 123, nil)
+      .write_string(0, 'G', 'World', nil)
+    # G1 should be ignored since a later row has already been written.
+  end
+
+  test('optimize06', constant_memory: true) do |wb|
+    ws = wb.add_worksheet
+    ws.write_string(0, 0, '_x0000_', nil)
+    (1..127).each { |i| ws.write_string(i, 0, i.chr, nil) unless i == 34 }
+  end
+
+  test('optimize21', constant_memory: true) do |wb|
+    wb.add_worksheet
+      .write_string(0, 'A', 'Foo', nil)
+      .write_string(2, 'C', ' Foo', nil)
+      .write_string(4, 'E', 'Foo ', nil)
+      .write_string(6, 'A', "\tFoo\t", nil)
+  end
+end

data/test/test-page-breaks.rb

@@ -0,0 +1,13 @@
+require_relative './xlsx-func-testcase'
+
+class TestpageBreaks < XlsxWriterTestCase
+  test 'page_breaks06' do |wb, t|
+    t.ignore_elements = { 'xl/worksheets/sheet1.xml' => [ '<pageMargins' ] }
+    ws = wb.add_worksheet
+    ws.paper = 9
+    ws.vertical_dpi = 200
+    ws.h_pagebreaks = [1, 5, 8, 13]
+    ws.v_pagebreaks = [1, 3, 8]
+    ws.write_string(0, 'A', 'Foo', nil)
+  end
+end

data/test/test-page-setup.rb

@@ -0,0 +1,28 @@
+require_relative './xlsx-func-testcase'
+
+class TestPageSetup < XlsxWriterTestCase
+  test 'page_view01' do |wb|
+    ws = wb.add_worksheet
+    ws.set_page_view
+    ws.write_string(0, 'A', 'Foo', nil)
+    ws.paper = 9
+    ws.vertical_dpi = 200
+  end
+
+  test 'landscape01' do |wb|
+    ws = wb.add_worksheet
+    ws.write_string(0, 'A', 'Foo', nil)
+    ws.set_landscape
+    ws.paper = 9
+    ws.vertical_dpi = 200
+  end
+
+  test 'print_across01' do |wb, t|
+    t.ignore_elements = { 'xl/worksheets/sheet1.xml' => [ '<pageMargins'] }
+    ws = wb.add_worksheet
+    ws.print_across
+    ws.paper = 9
+    ws.vertical_dpi = 200
+    ws.write_string 0, 0, 'Foo', nil
+  end
+end

data/test/test-panes.rb

@@ -0,0 +1,45 @@
+require_relative './xlsx-func-testcase'
+
+class TestPanes < XlsxWriterTestCase
+  test 'panes01' do |wb|
+    wb.add_worksheet
+      .write_string(0, 'A', 'Foo', nil)
+      .freeze_panes(1, 'A')
+    wb.add_worksheet
+      .write_string(0, 'A', 'Foo', nil)
+      .freeze_panes(2, 'A')
+    wb.add_worksheet
+      .write_string(0, 'A', 'Foo', nil)
+      .freeze_panes(0, 'B')
+    wb.add_worksheet
+      .write_string(0, 'A', 'Foo', nil)
+      .freeze_panes(0, 'C')
+    wb.add_worksheet
+      .write_string(0, 'A', 'Foo', nil)
+      .freeze_panes(1, 'B')
+    wb.add_worksheet
+      .write_string(0, 'A', 'Foo', nil)
+      .freeze_panes(3, 'G')
+    wb.add_worksheet
+      .write_string(0, 'A', 'Foo', nil)
+      .freeze_panes(3, 6, 3, 6, 1)
+    wb.add_worksheet
+      .write_string(0, 'A', 'Foo', nil)
+      .split_panes(15, 0)
+    wb.add_worksheet
+      .write_string(0, 'A', 'Foo', nil)
+      .split_panes(30, 0)
+    wb.add_worksheet
+      .write_string(0, 'A', 'Foo', nil)
+      .split_panes(0, 8.46)
+    wb.add_worksheet
+      .write_string(0, 'A', 'Foo', nil)
+      .split_panes(0, 17.57)
+    wb.add_worksheet
+      .write_string(0, 'A', 'Foo', nil)
+      .split_panes(15, 8.46)
+    wb.add_worksheet
+      .write_string(0, 'A', 'Foo', nil)
+      .split_panes(45, 54.14)
+  end
+end

data/test/test-print-area.rb

@@ -0,0 +1,19 @@
+require_relative './xlsx-func-testcase'
+
+class TestPrintArea < XlsxWriterTestCase
+  test 'print_area06' do |wb, t|
+    t.ignore_elements = { 'xl/worksheets/sheet1.xml' => [ '<pageMargins' ] }
+    ws = wb.add_worksheet
+    ws.paper = 9
+    ws.vertical_dpi = 200
+    ws.print_area(0, 'A', 8, 'F')
+    ws.write_string(0, 'A', 'Foo', nil)
+  end
+
+  test 'print_area07' do |wb, t|
+    t.ignore_elements = { 'xl/worksheets/sheet1.xml' => [ '<pageMargins' ] }
+    ws = wb.add_worksheet
+    ws.print_area('A1:XFD1048576')
+    ws.write_string('A1', 'Foo', nil)
+  end
+end

data/test/test-print-options.rb

@@ -0,0 +1,61 @@
+require_relative './xlsx-func-testcase'
+
+class TestPrintOptions < XlsxWriterTestCase
+  test 'print_options01' do |wb, t|
+    t.ignore_elements = { 'xl/worksheets/sheet1.xml' => [ '<pageMargins' ] }
+    ws = wb.add_worksheet
+    ws.paper = 9
+    ws.vertical_dpi = 200
+    ws.gridlines = XlsxWriter::Worksheet::GRIDLINES_SHOW_PRINT
+    ws.write_string(0, 'A', 'Foo', nil)
+  end
+
+  test 'print_options02' do |wb, t|
+    t.ignore_elements = { 'xl/worksheets/sheet1.xml' => [ '<pageMargins' ] }
+    ws = wb.add_worksheet
+    ws.paper = 9
+    ws.vertical_dpi = 200
+    ws.center_horizontally
+    ws.write_string(0, 'A', 'Foo', nil)
+  end
+
+  test 'print_options03' do |wb, t|
+    t.ignore_elements = { 'xl/worksheets/sheet1.xml' => [ '<pageMargins' ] }
+    ws = wb.add_worksheet
+    ws.paper = 9
+    ws.vertical_dpi = 200
+    ws.center_vertically
+    ws.write_string(0, 'A', 'Foo', nil)
+  end
+
+  test 'print_options04' do |wb, t|
+    t.ignore_elements = { 'xl/worksheets/sheet1.xml' => [ '<pageMargins' ] }
+    ws = wb.add_worksheet
+    ws.paper = 9
+    ws.vertical_dpi = 200
+    ws.print_row_col_headers
+    ws.write_string(0, 'A', 'Foo', nil)
+  end
+
+  test 'print_options05' do |wb, t|
+    t.ignore_elements = { 'xl/worksheets/sheet1.xml' => [ '<pageMargins' ] }
+    ws = wb.add_worksheet
+    ws.paper = 9
+    ws.vertical_dpi = 200
+    ws.gridlines = XlsxWriter::Worksheet::GRIDLINES_SHOW_PRINT
+    ws.center_horizontally
+    ws.center_vertically
+    ws.print_row_col_headers
+    ws.write_string(0, 'A', 'Foo', nil)
+  end
+
+  test 'print_options06' do |wb, t|
+    t.ignore_elements = { 'xl/worksheets/sheet1.xml' => [ '<pageMargins' ] }
+    ws = wb.add_worksheet
+    ws.paper = 9
+    ws.vertical_dpi = 200
+    ws.print_area(0, 'A', 19, 'G')
+    ws.repeat_rows(0, 0)
+    ws.write_string(0, 'A', 'Foo', nil)
+  end
+end

data/test/test-print-scale.rb

@@ -0,0 +1,12 @@
+require_relative './xlsx-func-testcase'
+
+class TestPrintScale < XlsxWriterTestCase
+  test 'print_scale01' do |wb, t|
+    t.ignore_elements = { 'xl/worksheets/sheet1.xml' => [ '<pageMargins' ] }
+    ws = wb.add_worksheet
+    ws.print_scale = 75
+    ws.paper = 9
+    ws.vertical_dpi = 200
+    ws.write_string(0, 'A', 'Foo', nil)
+  end
+end

data/test/test-properties.rb

@@ -0,0 +1,51 @@
+require_relative './xlsx-func-testcase'
+
+class TestProperties < XlsxWriterTestCase
+  test 'properties01' do |wb|
+    wb.properties do |p|
+      p.title    = 'This is an example spreadsheet'
+      p.subject  = 'With document properties'
+      p.author   = 'Someone'
+      p.manager  = 'Dr. Heinz Doofenshmirtz'
+      p.company  = 'of Wolves'
+      p.category = 'Example spreadsheets'
+      p.keywords = 'Sample, Example, Properties'
+      p.comments = 'Created with Perl and Excel::Writer::XLSX'
+      p.status   = 'Quo'
+    end
+
+    wb.add_worksheet do |ws|
+      ws.set_column(0, 0, width: 70)
+      ws.write_string(0, 0, 'Select \'Office Button -> Prepare -> Properties\' to see the file properties.', nil)
+    end
+  end
+
+  test 'properties02' do |wb|
+    wb.properties.hyperlink_base = 'C:\\'
+    wb.add_worksheet
+  end
+
+  test 'properties04' do |wb|
+    wb.properties['Checked by'] = 'Adam'
+    wb.properties['Date completed'] = Time.new(2016, 12, 12, 23)
+    wb.properties['Document number'] = 12345
+    wb.properties['Reference'] = 1.2345
+    wb.properties['Source'] = true
+    wb.properties['Status'] = false
+    wb.properties['Department'] = 'Finance'
+    wb.properties['Group'] = 1.2345678901234
+
+    wb.add_worksheet do |ws|
+      ws.set_column 0, 0, width: 70
+      ws.write_string 0, 'A', 'Select \'Office Button -> Prepare -> Properties\' to see the file properties.', nil
+    end
+  end
+
+  test 'properties05' do |wb|
+    wb.properties['Location'] = "Caf\xc3\xa9"
+    wb.add_worksheet do |ws|
+      ws.set_column 0, 0, width: 70
+      ws.write_string 0, 'A', 'Select \'Office Button -> Prepare -> Properties\' to see the file properties.', nil
+    end
+  end
+end