git-ds 0.9.2

data/doc/examples/test_suite/test.rb

@@ -0,0 +1,173 @@
+#!/usr/bin/env ruby
+# Test the TestSuite database example
+# 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/ts_list'
+
+# ----------------------------------------------------------------------
+
+def fill_model(model)
+
+  modules = {
+    'projects/thing/include/thing.h' => "void thing();\n" ,
+    'projects/thing/include/arch/arm.h' => "#define ARM\n" ,
+    'projects/thing/include/arch/x86.h' => "#define X86\n" ,
+    'projects/thing/src/thing.c' => "void thing() { /* nop */ }\n" ,
+    'projects/thing/src/ops.c' => "void ops(){ /* nop */ }\n" ,
+    'projects/thing/src/util.c' => "void util() { /* nop */ }\n" ,
+    'projects/shared/libstuff/include/stuff.h' => "int stuff();" ,
+    'projects/shared/libstuff/src/stuff.c' => "int stuff() { return 1; }" 
+  }
+
+  test_suites = {
+    'Development' => { :description => 'Performed during active development',
+            :tests => {
+              'thing_thing' => [
+                'projects.thing.include.thing.h',
+                'projects.thing.src.thing.c'
+                               ],
+              'thing_arm' => [
+                'projects.thing.include.arch.arm.h',
+                'projects.thing.include.thing.h',
+                'projects.thing.src.thing.c'
+                             ],
+              'thing_x86' => [
+                'projects.thing.include.arch.x86.h',
+                'projects.thing.include.thing.h',
+                'projects.thing.src.thing.c'
+                             ],
+              'thing_ops' => [ 'projects.thing.src.ops.c' ],
+              'thing_util' => [ 'projects.thing.src.util.c' ]
+            } },
+    'QA' => { :description => 'Performed by QA department',
+            :tests => {
+              'thing_regression' => [
+                'projects.thing.src.thing.c',
+                'projects.thing.src.ops.c',
+                'projects.thing.src.util.c',
+                'projects.thing.include.thing.h'
+              ],
+              'stuff_regression' => [
+                'projects.shared.libstuff.include.stuff.h',
+                'projects.shared.libstuff.src.stuff.c'
+              ]
+            } },
+    'Release' => { :description => 'Performed on a release candidate',
+            :tests => {
+              'thing_integration' => [
+                'projects.thing.src.thing.c',
+                'projects.thing.src.ops.c',
+                'projects.thing.src.util.c',
+                'projects.thing.include.thing.h'
+              ],
+              'stuff_integration' => [
+                'projects.shared.libstuff.include.stuff.h',
+                'projects.shared.libstuff.src.stuff.c'
+              ]
+            } }
+  }
+
+  bugs = {
+    1200 => { :description => 'Thing calculates wrong value',
+              :tests => [
+                ['Development', 'thing_thing'],
+                ['QA', 'thing_regression'],
+                ['Release', 'thing_integration']
+              ] },
+    1201 => { :description => 'Memory leak in stuff',
+              :tests => [
+                ['QA', 'stuff_regression'],
+                ['Release', 'stuff_integration']
+              ] },
+    1202 => { :description => 'SEGV in thing',
+              :tests => [
+                ['Development', 'thing_thing'],
+                ['Development', 'thing_util'],
+                ['QA', 'thing_regression']
+              ] },
+    'v1-user-nologin' => { :description => 'User cannot log in (Version 1)',
+                           :tests => [ ['Release', 'thing_integration'] ] }
+  }
+
+  modules.each do |path, data|
+    model.add_module(path, data)
+  end
+
+  test_suites.each do |name, h|
+    s = model.add_test_suite(name, h[:description])
+    h[:tests].each do |name, arr|
+      mods = arr.inject([]) { |arr, ident| arr << model.module(ident) }
+      s.add_test(name, mods)
+    end
+  end
+
+  bugs.each do |name, h|
+    b = model.add_bug(name, h[:description])
+    h[:tests].each do |arr|
+      s = model.test_suite(arr[0])
+      t = s.test(arr[1])
+      b.add_test(t)
+    end
+  end
+
+end
+
+def run_tests(db_path)
+  db = GitDS::Database.connect_as(db_path, 'tony b', 'tony@disco.net')
+  raise "Could not connect to db!" if not db
+
+  model = TestSuiteModel.new(db)
+  model.branched_transaction('TonyTesting') {
+    model.perform_tests { |t| t.perform(true) }
+    model.update_bugs
+  }
+  db.mark('Tony testing complete')
+  db.close
+
+  db = GitDS::Database.connect_as(db_path, 'bill p', 'bill@stallynz.net')
+  raise "Could not connect to db!" if not db
+
+  model = TestSuiteModel.new(db)
+  db.unstage
+  model.branched_transaction('QATesting') {
+    s = model.test_suite('QA')
+    s.tests.each do |ident|
+      t = s.test(ident)
+      t.perform(false, 'QA deemed results unworthy')
+    end
+    model.update_bugs
+  }
+  db.mark('QA testing complete')
+  db.close
+end
+
+# ----------------------------------------------------------------------
+def list_model(model)
+  list_modules(model, true)
+  list_suites(model, true)
+  list_bugs(model, true)
+end
+
+# ----------------------------------------------------------------------
+if __FILE__ == $0
+  path = (ARGV.count > 0) ? ARGV.shift : 'ts_test.db'
+
+  db = GitDS::Database.connect(path, true)
+  model = TestSuiteModel.new(db) if db
+  raise "Could not connect to model" if not model
+
+  model.branched_transaction('FillModel') do 
+    fill_model(model)
+  end
+  db.mark('Initial data input')
+
+  run_tests(path)
+
+  list_model(model)
+end
+

data/doc/examples/test_suite/ts_add_bug.rb

@@ -0,0 +1,65 @@
+#!/usr/bin/env ruby
+# Add a Bug 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 = nil
+
+  opts = OptionParser.new do |opts|
+    opts.banner = "Usage: #{$0} [-p db_path] IDENT DESCR"
+    opts.separator 'Add a bug report 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
+  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_bug(options.ident, options.descr)
+
+  exit 0
+end

data/doc/examples/test_suite/ts_add_module.rb

@@ -0,0 +1,74 @@
+#!/usr/bin/env ruby
+# Add a Module (file) 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.path = nil
+  options.data = nil
+
+  opts = OptionParser.new do |opts|
+    opts.banner = "Usage: #{$0} [-p db_path] [-d data] MODULE_PATH"
+    opts.separator 'Add a module (source code file) 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( '-d', '--data=STR', 'Contents of module' ) do |str| 
+      options.data = str
+    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 > 0
+    options.path = args.shift
+    if not options.data
+      options.data = File.exist?(options.path) ? 
+                                (File.open(options.path){ |f| f.read }) : nil 
+    end
+  else
+    puts opts.banner
+    exit -2
+  end
+
+  raise "No data available for module '#{options.path}'" if not options.data
+
+  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_module(options.path, options.data)
+
+  exit 0
+end

data/doc/examples/test_suite/ts_add_module_to_test.rb

@@ -0,0 +1,78 @@
+#!/usr/bin/env ruby
+# Add a Module to 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.suite = nil
+  options.ident = nil
+  options.modules = []
+
+  opts = OptionParser.new do |opts|
+    opts.banner ="Usage: #{$0} [-p db_path] SUITE_IDENT TEST_IDENT MODULE [...]"
+    opts.separator 'Add Modules to a Test 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 > 2
+    options.suite = args.shift
+    options.ident = args.shift
+    args.each { |m| options.modules << m }
+  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
+
+  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
+
+  options.modules.each do |ident|
+    m = model.module(ident)
+    raise "Module #{m} not found" if not m
+
+    t.add_module(m)
+  end
+
+  exit 0
+end

data/doc/examples/test_suite/ts_add_test.rb

@@ -0,0 +1,77 @@
+#!/usr/bin/env ruby
+# Add a Test 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.suite = nil
+  options.ident = nil
+  options.modules = []
+
+  opts = OptionParser.new do |opts|
+    opts.banner = "Usage: #{$0} [-p db_path] SUITE_IDENT TEST_IDENT [MODULE...]"
+    opts.separator 'Add a Test to Test Suite 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 >= 2
+    options.suite = args.shift
+    options.ident = args.shift
+    args.each { |m| options.modules << m }
+  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
+
+  s = model.test_suite(options.suite)
+  raise "Could not find TestSuite #{options.suite}" if not s
+
+  mods = []
+  options.modules.each do |ident|
+    m = model.module(ident)
+    raise "Module #{m} not found" if not m
+    mods << m
+  end
+
+  s.add_test(options.ident, mods)
+
+  exit 0
+end