ruport 0.2.9 → 0.3.8

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  

data/test/tc_section.rb

@@ -0,0 +1,45 @@
+require "test/unit"
+require "ruport"
+
+class TestSection < Test::Unit::TestCase
+  include Ruport
+  def setup
+     elements = { :e1 =>  Format::Element.new(:e1), 
+                  :e2 =>  Format::Element.new(:e2) }
+     @empty_section     = Format::Section.new :test_section1
+     @populated_section = Format::Section.new :test_section2, 
+                                              :elements => elements
+                                              
+  end
+  
+  def test_basics
+    assert_equal( :test_section1, @empty_section.name )
+    assert_equal( :test_section2, @populated_section.name )
+    assert_equal( [], [:e1,:e2]-@populated_section.map { |e| e.name } )
+  end
+  
+  def test_each
+    element_names = [:e1,:e2]
+    @populated_section.each { |e| element_names -= [e.name] }
+    assert_equal([],element_names)
+    
+    element_names = [:e1, :e2, :e3]
+    @populated_section << Format::Element.new(:e3)
+    @populated_section.each { |e| element_names -= [e.name] }
+    assert_equal([],element_names)
+  end
+
+  def test_add_element
+    @empty_section.add_element :e1
+    @empty_section.add_element :e2, :content => "Hello from Element!"
+    assert(@empty_section[:e1])
+    assert(@empty_section[:e2])
+    assert_equal("Hello from Element!",@empty_section[:e2].content)
+  end
+
+  def test_brackets
+    assert_equal(:e1,@populated_section[:e1].name)
+    assert_equal(:e2,@populated_section[:e2].name)
+  end
+
+end

data/test/tc_sql_split.rb

@@ -0,0 +1,18 @@
+require "test/unit"
+require "ruport"
+class TestSqlSplit < Test::Unit::TestCase
+	include Ruport
+	
+	def test_sql_split1
+		sql = File.read 'test/samples/ruport_test.sql'
+		split = Query::SqlSplit.new sql
+		assert_equal( 'SELECT * FROM ruport_test', split.last )
+	end
+	
+	def test_sql_split2
+		sql = "SELECT * FROM ruport_test"
+		split = Query::SqlSplit.new sql
+		assert_equal( 1, split.size )
+		assert_equal( sql, split.first )
+	end
+end

data/test/tc_state.rb

@@ -0,0 +1,142 @@
+#!/usr/local/bin/ruby -w
+
+# tc_state.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 TestState < Test::Unit::TestCase
+	def test_single_skips
+		path  = File.join(File.dirname(__FILE__), "samples/five_lines.txt")
+		lines = File.readlines(path).values_at(0..2, 4)
+		test  = self
+
+		Ruport::Parser.new(path) do
+			skip(?u)
+
+			read { |line| test.assert_equal(lines.shift, line) }
+		end
+	end
+
+	def test_skipping_range
+		path  = File.join(File.dirname(__FILE__), "samples/five_lines.txt")
+		lines = File.readlines(path).values_at(0, 3..4)
+		test  = self
+
+		Ruport::Parser.new(path) do
+			start_skipping_at("two")
+			stop_skipping_at("three")
+
+			read { |line| test.assert_equal(lines.shift, line) }
+		end
+	end
+	
+	def test_searching_skipped
+		path  = File.join(File.dirname(__FILE__), "samples/five_lines.txt")
+
+		data = Ruport::Parser.new(path) do
+			@state = :skip
+			stop_skipping_at("four")
+			find_in_skipped(/ou/) { |line| @found_in_skip = line }
+
+			read { |line| (@lines ||= Array.new) << line }
+		end
+		
+		assert_equal("This is line four.\n", data.found_in_skip)
+		assert_equal(["This is line five.\n"], data.lines)
+	end
+	
+	def test_stop
+		path  = File.join(File.dirname(__FILE__), "samples/five_lines.txt")
+
+		data = Ruport::Parser.new(path) do
+			stop_at("three")
+
+			read { |line| @last_line = line }
+		end
+		
+		assert_equal("This is line two.\n", data.last_line)
+
+		data = Ruport::Parser.new(path) do
+			read do |line|
+				@last_line = line
+
+				@state = :stop if @read.index("three")
+			end
+		end
+
+		assert_equal("This is line three.\n", data.last_line)
+	end
+	
+	def test_pre_and_post
+		path  = File.join(File.dirname(__FILE__), "samples/five_lines.txt")
+
+		data = Ruport::Parser.new(path) do
+			@pre = @post = 0
+			
+			pre do 
+				@pre  += 1
+				@post =  0
+			end
+			read { |line| (@lines ||= Array.new) << line }
+			read(/\w+\./) { |number| (@numbers ||= Array.new) << number }
+			post { @post += 1 }
+		end
+
+		assert_equal(5, data.pre)
+		assert_equal(1, data.post)
+	end
+	
+	def test_complex
+		path  = File.join(File.dirname(__FILE__), "samples/ross_report.txt")
+		test  = self
+
+		Ruport::Parser.new(path) do
+			@state = :skip
+			start_skipping_at("\f")
+			stop_skipping_at(/\A-[- ]+-\Z/)
+			skip(/\A\s*\Z/)
+			skip(/--\Z/)
+			
+			find_in_skipped(/((?:Period|Week)\s+\d.+?)\s*\Z/) do |period|
+				test.assert_equal("Period  02/2002", period)
+			end
+
+			stop_at("*** Selection Criteria ***")
+
+			read do |line|
+				test.assert_match(/\A\s+(?:Sales|Cust|SA)|\A[-\w]+\s+/, line)
+			end
+		end
+
+		path  = File.join(File.dirname(__FILE__), "samples/car_ads.txt")
+
+		data = Ruport::Parser.new(path, "") do
+			@state = :skip
+			stop_skipping_at("Save Ad")
+			skip(/\A\s*\Z/)
+
+			pre { @price = @miles = nil }
+			read(/\$([\d,]+\d)/) { |price| @price = price.delete(",").to_i }
+			read(/([\d,]*\d)\s*m/) { |miles| @miles = miles.delete(",").to_i }
+
+			read do |ad|
+				if @price and @price < 20_000 and @miles and @miles < 40_000
+					(@ads ||= Array.new) << ad.strip
+				end
+			end
+		end
+		
+		assert_equal([<<END_AD.strip], data.ads)
+2003 Chrysler Town & Country LX
+     $16,990, green, 21,488 mi, air, pw, power locks, ps, power mirrors,
+dual air bags, keyless entry, intermittent wipers, rear defroster, alloy,
+pb, abs, cruise, am/fm stereo, CD, cassette, tinted glass
+VIN:2C4GP44363R153238, Stock No:C153238, CALL DAN PERKINS AT 1-800-432-6326
+END_AD
+	end
+end