git-ds 0.9.2

data/doc/examples/test_suite/ts_add_test_suite.rb

@@ -0,0 +1,65 @@
+#!/usr/bin/env ruby
+# Add a TestSuite to a TestSuite database repo
+# Copyright 2011 Thoughtgang <http://www.thoughtgang.org>
+
+# Add examples dir and lib/git-ds to ruby path
+BASE=File.dirname(File.expand_path(__FILE__)\
+                 ).split(File::SEPARATOR)[0..-4].join(File::SEPARATOR)
+$: << BASE + File::SEPARATOR + 'lib'
+$: << BASE + File::SEPARATOR + 'doc' + File::SEPARATOR + 'examples'
+
+require 'test_suite/model'
+require 'optparse'
+require 'ostruct'
+
+def get_options(args)
+  options = OpenStruct.new
+
+  options.db = nil
+  options.auto = false
+  options.ident = nil
+  options.descr = ''
+
+  opts = OptionParser.new do |opts|
+    opts.banner = "Usage: #{$0} [-p db_path] IDENT [DESCR]"
+    opts.separator 'Add a TestSuite to database'
+    opts.separator 'Options:'
+
+    opts.on( '-p', '--db-path PATH', 'Path to TestSuite GitDS' ) do |path| 
+      options.db = path
+      options.auto = true
+    end
+
+    opts.on_tail( '-?', '--help', 'Show this message') do
+      puts opts
+      exit -1
+    end
+  end
+
+  opts.parse!(args)
+
+  options.db = GitDS::Database.top_level if not options.db
+  raise "Invalid database" if not options.db
+
+  if args.count >= 1
+    options.ident = args.shift
+    options.descr = args.shift if args.count > 0
+  else
+    puts opts.banner
+    exit -2
+  end
+
+  options
+end
+
+# ----------------------------------------------------------------------
+if __FILE__ == $0
+  options = get_options(ARGV)
+
+  model = TestSuiteModel.new(GitDS::Database.connect(options.db, options.auto))
+  raise "Could not connect to Model!" if not model
+
+  model.add_test_suite(options.ident, options.descr)
+
+  exit 0
+end

data/doc/examples/test_suite/ts_add_test_to_bug.rb

@@ -0,0 +1,76 @@
+#!/usr/bin/env ruby
+# Add a Test to a Bug in a TestSuite database repo
+# Copyright 2011 Thoughtgang <http://www.thoughtgang.org>
+
+# Add examples dir and lib/git-ds to ruby path
+BASE=File.dirname(File.expand_path(__FILE__)\
+                 ).split(File::SEPARATOR)[0..-4].join(File::SEPARATOR)
+$: << BASE + File::SEPARATOR + 'lib'
+$: << BASE + File::SEPARATOR + 'doc' + File::SEPARATOR + 'examples'
+
+require 'test_suite/model'
+require 'optparse'
+require 'ostruct'
+
+def get_options(args)
+  options = OpenStruct.new
+
+  options.db = nil
+  options.auto = false
+  options.bug = nil
+  options.suite = nil
+  options.ident = nil
+
+  opts = OptionParser.new do |opts|
+    opts.banner = "Usage: #{$0} [-p db_path] BUG_IDENT SUITE_IDENT TEST_IDENT"
+    opts.separator 'Add a Test to Bug Report in database'
+    opts.separator 'Options:'
+
+    opts.on( '-p', '--db-path PATH', 'Path to TestSuite GitDS' ) do |path| 
+      options.db = path
+      options.auto = true
+    end
+
+    opts.on_tail( '-?', '--help', 'Show this message') do
+      puts opts
+      exit -1
+    end
+  end
+
+  opts.parse!(args)
+
+  options.db = GitDS::Database.top_level if not options.db
+  raise "Invalid database" if not options.db
+
+  if args.count == 3
+    options.bug = args.shift
+    options.suite = args.shift
+    options.ident = args.shift
+  else
+    puts opts.banner
+    exit -2
+  end
+
+  options
+end
+
+# ----------------------------------------------------------------------
+if __FILE__ == $0
+  options = get_options(ARGV)
+
+  model = TestSuiteModel.new(GitDS::Database.connect(options.db, options.auto))
+  raise "Could not connect to Model!" if not model
+
+  b = model.bug(options.bug)
+  raise "Could not find Bug #{options.bug}" if not b
+
+  s = model.test_suite(options.suite)
+  raise "Could not find TestSuite #{options.suite}" if not s
+
+  t = s.test(options.ident)
+  raise "Could not find Test #{options.ident}" if not t
+
+  b.add_test(t)
+
+  exit 0
+end

data/doc/examples/test_suite/ts_init.rb

@@ -0,0 +1,20 @@
+#!/usr/bin/env ruby
+# Initialize a user/group database repo
+# Copyright 2011 Thoughtgang <http://www.thoughtgang.org>
+
+BASE=File.dirname(File.expand_path(__FILE__)\
+                 ).split(File::SEPARATOR)[0..-4].join(File::SEPARATOR)
+$: << BASE + File::SEPARATOR + 'lib'
+$: << BASE + File::SEPARATOR + 'doc' + File::SEPARATOR + 'examples'
+
+require 'test_suite/model'
+
+if __FILE__ == $0
+  if ARGV.count != 1 
+    puts "Usage : #{$0} FILENAME"
+    exit -1
+  end 
+
+  TestSuiteModel.new(GitDS::Database.connect(ARGV.shift, true))
+  exit 0
+end

data/doc/examples/test_suite/ts_list.rb

@@ -0,0 +1,118 @@
+#!/usr/bin/env ruby
+# List contents of a TestSuite database repo
+# Copyright 2011 Thoughtgang <http://www.thoughtgang.org>
+
+# Add examples dir and lib/git-ds to ruby path
+BASE=File.dirname(File.expand_path(__FILE__)\
+                 ).split(File::SEPARATOR)[0..-4].join(File::SEPARATOR)
+$: << BASE + File::SEPARATOR + 'lib'
+$: << BASE + File::SEPARATOR + 'doc' + File::SEPARATOR + 'examples'
+
+require 'test_suite/model'
+require 'optparse'
+require 'ostruct'
+
+def get_options(args)
+  options = OpenStruct.new
+
+  options.db = nil
+  options.suites = false
+  options.modules = false
+  options.bugs = false
+  options.details = false
+
+  opts = OptionParser.new do |opts|
+    opts.banner = "Usage: #{$0} [-p db_path] [-bdsm]"
+    opts.separator 'Add a TestSuite to database'
+    opts.separator 'Options:'
+
+    opts.on( '-p', '--db-path PATH', 'Path to TestSuite GitDS' ) do |path| 
+      options.db = path
+    end
+
+    opts.on( '-b', '--bugs', 'List bugs' ) { options.bugs = true }
+    opts.on( '-d', '--details', 'Show details' ) { options.details = true }
+    opts.on( '-s', '--suites', 'List test suites' ) { options.suites = true }
+    opts.on( '-m', '--modules', 'List modules' ) { options.modules = true }
+
+    opts.on_tail( '-?', '--help', 'Show this message') do
+      puts opts
+      exit -1
+    end
+  end
+
+  opts.parse!(args)
+
+  options.db = GitDS::Database.top_level if not options.db
+  raise "Invalid database" if not options.db
+
+  # by default show all
+  if (! options.bugs) && (! options.modules) && (! options.suites)
+    options.bugs = options.modules = options.suites = true
+  end
+
+  options
+end
+
+def list_modules(model, details)
+  puts "Modules:"
+  model.modules.each do |ident|
+    puts "\t" + ident
+    if details
+      m = model.module(ident)
+      puts "\t\t" + m.name
+      puts "\t\t" + m.path
+      puts "\t\tContents:"
+      puts "\t\t" + m.data[0,60] + (m.data.length > 60 ? '...' : '')
+    end
+  end
+end
+
+def list_suites(model, details)
+  puts "Test Suites:"
+  model.test_suites.each do |ident|
+    puts "\t" + ident
+    if details
+      s = model.test_suite(ident)
+      puts "\t\t" + s.description
+      puts "\t\tTests:"
+      s.tests.each do |ident|
+        t = s.test(ident)
+        puts "\t\t\t" + ident
+        puts "\t\t\t" + ((t.pass?) ? 'Passed' : 'Failed')
+        puts "\t\t\t" + t.timestamp.to_s
+        puts "\t\t\tModules:"
+        t.modules.each { |ident| puts "\t\t\t\t" + ident }
+        puts "\t\t\tLog:\n" + t.log
+      end
+    end
+  end
+end
+
+def list_bugs(model, details)
+  puts "Bugs:"
+  model.bugs.each do |ident|
+    puts "\t" + ident
+    if details
+      b = model.bug(ident)
+      puts "\t\t" + b.description
+      puts "\t\t" + ((b.open?) ? 'Open' : 'Closed')
+      puts "\t\tTests:"
+      b.tests.each { |ident| puts "\t\t\t" + ident }
+    end
+  end
+end
+
+# ----------------------------------------------------------------------
+if __FILE__ == $0
+  options = get_options(ARGV)
+
+  model = TestSuiteModel.new(GitDS::Database.connect(options.db, options.auto))
+  raise "Could not connect to Model!" if not model
+
+  list_modules(model, options.details) if options.modules
+  list_suites(model, options.details) if options.suites
+  list_bugs(model, options.details) if options.bugs
+
+  exit 0
+end

data/doc/examples/test_suite/ts_perform_test.rb

@@ -0,0 +1,104 @@
+#!/usr/bin/env ruby
+# Set results for performing a Test in a TestSuite database repo
+# Copyright 2011 Thoughtgang <http://www.thoughtgang.org>
+
+# Add examples dir and lib/git-ds to ruby path
+BASE=File.dirname(File.expand_path(__FILE__)\
+                 ).split(File::SEPARATOR)[0..-4].join(File::SEPARATOR)
+$: << BASE + File::SEPARATOR + 'lib'
+$: << BASE + File::SEPARATOR + 'doc' + File::SEPARATOR + 'examples'
+
+require 'test_suite/model'
+require 'optparse'
+require 'ostruct'
+
+def get_options(args)
+  options = OpenStruct.new
+
+  options.db = nil
+  options.auto = false
+  options.user = nil
+  options.email = nil
+  options.ident = nil
+  options.suite = nil
+  options.passed = nil
+  options.log = ''
+
+  opts = OptionParser.new do |opts|
+    opts.banner = "Usage: #{$0} [-tf] [-elpu arg] SUITE_IDENT TEST_IDENT " +
+                  "[0|1]"
+    opts.separator 'Set results for performing a Test'
+    opts.separator 'Note: A trailing arg of 0 (success) or nonzero (failure)'
+    opts.separator '      is expected if neither -t nor -f is present.'
+    opts.separator 'Options:'
+
+    opts.on( '-p', '--db-path PATH', 'Path to TestSuite GitDS' ) do |path| 
+      options.db = path
+      options.auto = true
+    end
+
+    opts.on( '-l', '--log str', 'Log entry for test' ) do |str| 
+      options.log = str
+    end
+
+    opts.on( '-u', '--user name', 'Name of Git user' ) do |name| 
+      options.user = name
+    end
+
+    opts.on( '-e', '--email str', 'Email of Git user' ) do |str| 
+      options.email = str
+    end
+
+    opts.on( '-t', '--true', 'Test succeeded') { options.passed = true }
+    opts.on( '-f', '--false', 'Test failed') { options.passed = false }
+
+    opts.on_tail( '-?', '--help', 'Show this message') do
+      puts opts
+      exit -1
+    end
+  end
+
+  opts.parse!(args)
+
+  options.db = GitDS::Database.top_level if not options.db
+  raise "Invalid database" if not options.db
+
+  if args.count >= 2
+    options.suite = args.shift
+    options.ident = args.shift
+
+    if options.passed == nil
+      if args.count == 0
+        puts opts.banner
+        exit -3
+      end
+      options.passed = (args.shift.to_i == 0)
+    end
+  else
+    puts opts.banner
+    exit -2
+  end
+
+  options
+end
+
+# ----------------------------------------------------------------------
+if __FILE__ == $0
+  options = get_options(ARGV)
+
+  model = TestSuiteModel.new(GitDS::Database.connect_as(options.db, 
+                                                        options.user,
+                                                        options.email,
+                                                        options.auto))
+  raise "Could not connect to Model!" if not model
+
+  s = model.test_suite(options.suite)
+  raise "Could not find TestSuite #{options.suite}" if not s
+
+  t = s.test(options.ident)
+  raise "Could not find Test #{options.ident}" if not t
+
+  t.perform( options.passed, options.log )
+
+  exit 0
+end

data/doc/examples/test_suite/ts_update_bugs.rb

@@ -0,0 +1,58 @@
+#!/usr/bin/env ruby
+# Update Bugs in a TestSuite database repo based on status of Tests
+# Copyright 2011 Thoughtgang <http://www.thoughtgang.org>
+
+# Add examples dir and lib/git-ds to ruby path
+BASE=File.dirname(File.expand_path(__FILE__)\
+                 ).split(File::SEPARATOR)[0..-4].join(File::SEPARATOR)
+$: << BASE + File::SEPARATOR + 'lib'
+$: << BASE + File::SEPARATOR + 'doc' + File::SEPARATOR + 'examples'
+
+require 'test_suite/model'
+require 'optparse'
+require 'ostruct'
+
+def get_options(args)
+  options = OpenStruct.new
+
+  options.db = nil
+
+  opts = OptionParser.new do |opts|
+    opts.banner = "Usage: #{$0} [-p db_path]"
+    opts.separator 'Update all bugs in database'
+    opts.separator 'Options:'
+
+    opts.on( '-p', '--db-path PATH', 'Path to TestSuite GitDS' ) do |path| 
+      options.db = path
+    end
+
+    opts.on_tail( '-?', '--help', 'Show this message') do
+      puts opts
+      exit -1
+    end
+  end
+
+  opts.parse!(args)
+
+  options.db = GitDS::Database.top_level if not options.db
+  raise "Invalid database" if not options.db
+
+  # by default show all
+  if (! options.bugs) && (! options.modules) && (! options.suites)
+    options.bugs = options.modules = options.suites = true
+  end
+
+  options
+end
+
+# ----------------------------------------------------------------------
+if __FILE__ == $0
+  options = get_options(ARGV)
+
+  model = TestSuiteModel.new(GitDS::Database.connect(options.db, options.auto))
+  raise "Could not connect to Model!" if not model
+
+  model.update_bugs
+
+  exit 0
+end