lean-ruport 0.3.8

data/test/tc_data_row.rb

@@ -0,0 +1,36 @@
+#!/usr/local/bin/ruby -w
+
+require "test/unit"
+require "ruport"
+
+class TestDataRow < Test::Unit::TestCase
+
+  include Ruport
+  
+  def setup
+    @rows = DataSet.new
+    @rows.fields = %w[ foo bar ]
+    @rows << [ 1 , 2 ]
+    @rows << [ 3 , 4 ]
+    @rows << [ 5 , 6 ]
+    @rows << { "foo" => 7, "bar" => 8 }
+    @rows << [ 9, 10 ]
+  end
+
+  def test_to_s
+    assert_equal("[1,2]",@rows[0].to_s)
+  end
+
+  def test_tagging
+    @rows[0].tag_as :foo
+    assert_equal(true, @rows[0].has_tag?(:foo) )
+    assert_equal( false,@rows[1].has_tag?(:foo) )
+    assert_equal(false,@rows[0].has_tag?(:bar) )
+    assert_equal({:foo => true},@rows[0].tags)
+    @rows[0].tag_as :apple
+    assert_equal({:foo => true, :apple => true},@rows[0].tags)
+    assert_equal({},@rows[2].tags)
+  end
+
+end
+    

data/test/tc_data_set.rb

@@ -0,0 +1,141 @@
+#!/usr/local/bin/ruby -w
+
+require "test/unit"
+require "ruport"
+
+class TestDataSet < Test::Unit::TestCase
+  
+  include Ruport
+    
+  def setup
+    @data = DataSet.new
+    @data.fields = %w[ col1 col2 col3 ]
+    @data.default = ""
+    @data << %w[ a b c ]
+    @data << { "col1" => "d", "col3" => "e"}
+  end
+
+  def test_new
+    fields = %w[ col1 col2 col3 ]
+    my_data = DataSet.new(fields)
+    assert_equal(fields,my_data.fields)
+
+    my_filled_data = DataSet.new( fields, [[1,2,3],[4,5,6]] )
+    
+    assert_equal( [[1,2,3],[4,5,6]], my_filled_data.map { |r| r.to_a } )
+
+    hash_filling = [ { "col1" => 9, "col2" => 6, "col3" => 0 },
+                     { "col1" => 54, "col3" => 1 } ]
+    
+    my_filled_data = DataSet.new(fields,hash_filling)
+    
+    assert_equal( [[9,6,0],[54,nil,1]], my_filled_data.map { |r| r.to_a } )
+   
+    cloned_set = @data.clone
+   
+    assert_equal( [ %w[a b c], ["d","","e"] ], cloned_set.map { |r| r.to_a } )
+  end
+  
+  def test_fields 
+    assert_equal(%w[ col1 col2 col3 ], @data.fields )
+  end
+
+  def test_default
+    @data.default = "x"
+    @data << { }
+    assert_equal(  ['x','x','x'],
+                    @data[2].to_a )
+  end
+      
+  def test_brackets
+    row0 = { "col1" => "a", "col2" => "b", "col3" => "c" }
+    row1 = { "col1" => "d", "col2" => "", "col3" => "e" }
+    row0.each do |key,value|
+      assert_equal( value, @data[0][key] )
+    end
+    row1.each do |key,value|
+      assert_equal( value, @data[1][key] )
+    end       
+  end
+
+  def test_eql?
+    data2 = DataSet.new
+    data2.fields = %w[ col1 col2 col3 ]
+    data2.default = ""
+    data2 << %w[ a b c ]
+    data2 << { "col1" => "d", "col3" => "e" }
+
+    #FIXME: This looks like some shady discrete math assignment
+    assert(@data.eql?(data2) && data2.eql?(@data)) 
+    data2 << [2, 3, 4]
+    assert(!( @data.eql?(data2) || data2.eql?(@data) ))
+    @data << [2, 3, 4]
+    assert(@data.eql?(data2) && data2.eql?(@data))
+    @data << [8, 9, 10]
+    assert(!( @data.eql?(data2) || data2.eql?(@data) ))
+    data2 << [8, 9, 10]
+    assert(@data.eql?(data2) && data2.eql?(@data)) 
+  end
+
+  def test_empty?
+    a = DataSet.new
+    a.fields = %w[a b c]
+    assert_equal(true,a.empty?)
+    assert_equal(false,@data.empty?)
+    
+    a << [1,2,3]
+    assert_equal(false,a.empty?)
+  end
+
+  def test_load
+    loaded_data = DataSet.load("test/samples/data.csv")
+    @data.each_with_index do |row,r_index|
+      row.each_with_index do |field,f_index|
+        assert_equal(field,loaded_data[r_index][f_index])
+      end
+    end
+  end
+
+  def test_to_csv
+    loaded_data = DataSet.load("test/samples/data.csv" )
+    csv = loaded_data.to_csv
+    assert_equal("col1,col2,col3\na,b,c\nd,\"\",e\n",csv)
+  end
+
+  def test_to_html
+    assert_equal("<table>\n  <tr>\n    <th>col1</th><th>col2</th>" +
+                 "<th>col3</th>\n  </tr>\n" +
+                 "  <tr>\n    <td>a</td><td>b</td><td>c</td>\n  </tr>\n" +
+                 "  <tr>\n    <td>d</td><td></td><td>e</td>\n  </tr>\n" +
+                 "</table>", @data.to_html )
+  end
+
+  def test_select_columns
+    assert_equal( [["a"],["d"]],
+                  @data.select_columns("col1").map { |r| r.to_a } )
+    assert_equal( [["b"],[""]] , 
+                  @data.select_columns("col2").map { |r| r.to_a } )
+    assert_equal( [["c"],["e"]],
+                  @data.select_columns("col3").map { |r| r.to_a } )
+    assert_equal( [["a","b","c"],["d","","e"]],
+                  @data.select_columns("col1","col2","col3").map { |r| r.to_a })
+    assert_equal( [["c","a"],["e","d"]],
+                  @data.select_columns("col3","col1").map { |r| r.to_a } )
+  end
+
+  def test_render
+    data = DataSet.new
+    data.fields = %w[ col1 col2 col3]
+    data << %w[ a b c]
+    data << %w[ d e f]
+    assert_equal("col1,col2,col3\na,b,c\nd,e,f\n", 
+                 data.as(:csv) )
+
+    assert_equal("<table>\n  <tr>\n    <th>col1</th><th>col2</th>" +
+                 "<th>col3</th>\n  </tr>\n" +
+                 "  <tr>\n    <td>a</td><td>b</td><td>c</td>\n  </tr>\n" +
+                 "  <tr>\n    <td>d</td><td>e</td><td>f</td>\n  </tr>\n" +
+                 "</table>", data.as(:html) )
+  end
+          
+end

data/test/tc_database.rb

@@ -0,0 +1,25 @@
+require "test/unit"
+require "ruportlib"
+
+class TestSqlSplit < Test::Unit::TestCase
+	def teardown
+		FileUtils.rm '/tmp/compare.sql' if File.exist?( '/tmp/compare.sql' )
+	end
+	
+	def test_stonecodeblog_sql
+		user = 'test'
+		password = 'password'
+		dbh = DBI.connect( "dbi:Mysql:test:localhost", user, password )
+		dbh.do 'drop database if exists stonecodeblog'
+		orig_sql = 'test/samples/stonecodeblog.sql'
+		sql = File.read orig_sql
+		split = Ruport::Report::SqlSplit.new sql
+		split.each do |sql| dbh.do( sql ); end
+		tmp_sql = '/tmp/compare.sql'
+		md_command =
+			"mysqldump -u#{ user } -p#{ password } --databases stonecodeblog"
+		`#{ md_command } > #{ tmp_sql }`
+		diff = `diff #{ orig_sql } #{ tmp_sql }`
+		assert( diff == '', diff[0..500] ) 
+	end
+end

data/test/tc_document.rb

@@ -0,0 +1,42 @@
+require "test/unit"
+require "ruport"
+
+class TestDocument < Test::Unit::TestCase
+
+  include Ruport
+  
+  def setup
+    @empty_doc = Format::Document.new :test_doc1
+    many_pages = [:p1,:p2,:p3,:p4].map { |p| Format::Page.new(p) }
+    @populated_doc = Format::Document.new :test_doc2, :pages => many_pages
+  end
+
+  def test_basics
+    assert_equal(:test_doc1,@empty_doc.name)
+    assert_equal(:test_doc2,@populated_doc.name)
+    assert_equal([],@empty_doc.pages)
+    assert_equal([:p1,:p2,:p3,:p4],@populated_doc.pages.map { |p| p.name })
+  end
+
+  def test_each
+    page_names = [:p1,:p2,:p3,:p4]
+    
+    @populated_doc.each { |p| assert_equal(page_names.shift,p.name) } 
+    assert_equal([],page_names)
+    
+    @populated_doc.pages << Format::Page.new(:p5)
+    page_names = [:p1,:p2,:p3,:p4,:p5]
+    
+    @populated_doc.each { |p| assert_equal(page_names.shift,p.name) }
+    assert_equal([],page_names)
+  end
+
+  def test_add_page
+    @empty_doc.add_page :p1
+    @populated_doc.add_page :p5, :some_trait => "cool"
+    assert(@empty_doc.find { |p| p.name.eql?(:p1) })
+    assert(@populated_doc.find { |p| p.name.eql?(:p5) and 
+                                     p.some_trait.eql?("cool") })
+  end
+
+end

data/test/tc_element.rb

@@ -0,0 +1,18 @@
+require "test/unit"
+require "ruport"
+
+class TestElement < Test::Unit::TestCase
+  include Ruport
+  def setup
+    @empty_element     = Format::Element.new :test_element
+    @populated_element = Format::Element.new :test_element2, 
+                                             :content => "Hello, Element!"
+  end
+
+  def test_basics
+    assert_equal(:test_element,     @empty_element.name)
+    assert_equal(:test_element2,    @populated_element.name)
+    assert_equal("Hello, Element!", @populated_element.content)
+  end
+
+end

data/test/tc_page.rb

@@ -0,0 +1,42 @@
+require "test/unit"
+require "ruport"
+
+class TestPage < Test::Unit::TestCase
+  include Ruport
+  def setup
+    @empty_page = Format::Page.new :test_page1
+    sections = { :s1 => Format::Section.new(:s1), :s2 => Format::Section.new(:s2) }
+    @populated_page = Format::Page.new :test_page2, 
+                                       :sections => sections
+  end
+  
+  def test_basics
+    assert_equal(:test_page1, @empty_page.name)
+    assert_equal(:test_page2, @populated_page.name)
+    assert_equal([],[:s1,:s2]-@populated_page.map { |s| s.name })
+    assert_equal({},@empty_page.sections)
+  end
+
+  def test_each
+    section_names = [:s1,:s2]
+    @populated_page.each { |s| section_names -= [s.name] } 
+    assert_equal([],section_names)
+    @populated_page <<  Format::Section.new(:s3) 
+    section_names = [:s1,:s2,:s3]
+    @populated_page.each { |s| section_names -= [s.name] } 
+    assert_equal([],section_names)
+  end
+
+  def test_add_function
+    @populated_page.add_section :s3
+    @populated_page.add_section :s4, :content => "Hello from Section!"
+    assert(@populated_page.find { |s| s.name.eql?(:s3) })
+    assert(@populated_page.find { |s| s.name.eql?(:s4) and
+                                      s.content.eql?("Hello from Section!")} )
+ 
+  end
+  def test_brackets
+    assert_equal(:s1,@populated_page[:s1].name)
+    assert_equal(:s2,@populated_page[:s2].name)
+  end
+end

data/test/tc_query.rb

@@ -0,0 +1,55 @@
+require "test/unit"
+require "ruport"
+class TestQuery < Test::Unit::TestCase
+  
+  
+  def setup
+    Ruport::Config.source :default,
+      :dsn => "ruport:test", :user => "greg", :password => "apple"
+
+    Ruport::Config.source :alternate,
+      :dsn => "ruport:test2", :user => "sandal", :password => "harmonix"
+    
+    @query1 = Ruport::Query.new "select * from foo", :cache_enabled => true 
+    @query1.cached_data = [[1,2,3],[4,5,6],[7,8,9]] 
+  end
+  
+  
+  def test_result
+    assert_nothing_raised { @query1.result }
+    assert_equal([[1,2,3],[4,5,6],[7,8,9]],@query1.result)
+  end
+  
+  def test_each
+    data = [[1,2,3],[4,5,6],[7,8,9]]
+    @query1.each do |r|
+      assert_equal(data.shift,r)
+    end
+    data = [1,4,7]
+    @query1.each do |r|
+      assert_equal(data.shift,r.first)
+    end
+    assert_raise (LocalJumpError) { @query1.each }
+  end
+
+  def test_select_source
+    
+    assert_equal( "ruport:test", @query1.instance_eval("@dsn")  )
+    assert_equal( "greg",        @query1.instance_eval("@user") )
+    assert_equal( "apple",       @query1.instance_eval("@password") )
+
+    @query1.select_source :alternate
+  
+    assert_equal( "ruport:test2", @query1.instance_eval("@dsn")  )
+    assert_equal( "sandal",        @query1.instance_eval("@user") )
+    assert_equal( "harmonix",       @query1.instance_eval("@password") ) 
+    
+    @query1.select_source :default
+
+    assert_equal( "ruport:test", @query1.instance_eval("@dsn")  )
+    assert_equal( "greg",        @query1.instance_eval("@user") )
+    assert_equal( "apple",       @query1.instance_eval("@password") )
+     
+  end
+
+end

data/test/tc_reading.rb

@@ -0,0 +1,60 @@
+#!/usr/local/bin/ruby -w
+
+# tc_reading.rb
+#
+#  Created by James Edward Gray II on 2005-08-14.
+#  Copyright 2005 Gray Productions. All rights reserved.
+
+require "test/unit"
+
+require "ruport/parser"
+
+class TestReading < Test::Unit::TestCase
+	def test_line_by_line_read
+		path  = File.join(File.dirname(__FILE__), "samples/five_lines.txt")
+		lines = File.readlines(path)
+		test  = self
+		
+		Ruport::Parser.new(path) do
+			read { |line| test.assert_equal(lines.shift, line) }
+		end
+	end
+	
+	def test_paragraph_read
+		path       = File.join(File.dirname(__FILE__), "samples/five_paragraphs.txt")
+		paragraphs = File.readlines(path, "")
+		test       = self
+
+		Ruport::Parser.new(path, "") do
+			read { |paragraph| test.assert_equal(paragraphs.shift, paragraph) }
+		end
+	end
+
+	def test_restricted_reading
+		path    = File.join(File.dirname(__FILE__), "samples/five_lines.txt")
+		numbers = %w{two three}
+		test    = self
+
+		Ruport::Parser.new(path) do
+			read(/ (t\w+)\./) do |number|
+				test.assert_equal("This is line #{numbers.first}.\n", @read)
+				test.assert_equal(numbers.shift, number)
+			end
+		end
+	end
+	
+	def test_data_saving_and_retrieving
+		path    = File.join(File.dirname(__FILE__), "samples/five_lines.txt")
+
+		data = Ruport::Parser.new( path ) do
+			read(/ (o\w+)\./) { |number| @number = number }
+			read { |line| (@lines ||= Array.new) << line }
+		end
+		
+		assert_equal("one", data[:number])
+		assert_equal("one", data.number)
+		assert_equal(path, data.path)
+		assert_equal(5, data.lines.size)
+		assert_equal(File.readlines(path), data.lines)
+	end
+end

data/test/tc_report.rb

@@ -0,0 +1,31 @@
+#tc_report.rb
+#
+#  Created by Gregory Thomas Brown on 2005-08-09
+#  Copyright 2005 (Gregory Brown) All rights reserved.
+
+require "test/unit"
+require "ruport"
+class TestReport < Test::Unit::TestCase
+  include Ruport
+
+  def setup
+      @report = Report.new
+  end
+  
+  def test_render
+    result = @report.render "<%= 2 + 3%>", 
+                            :filters => [:erb]
+    assert_equal("5",result)
+    
+    if defined? RedCloth
+      result = @report.render '"foo":http://foo.com', 
+                               :filters => [:red_cloth]
+                            
+      assert_equal('<p><a href="http://foo.com">foo</a></p>',result)
+      result = @report.render %{"<%= 2 + 3%>":http://foo.com },
+                              :filters => [:erb, :red_cloth]
+      assert_equal('<p><a href="http://foo.com">5</a></p>',result)
+    end
+  end
+
+end