Some infrastructure for AR and accompanying unit tests

script/create_db

@@ -0,0 +1,24 @@
+#!/usr/bin/env ruby
+
+APP_ROOT = File.expand_path(File.dirname(__FILE__)) + '/../'
+
+require APP_ROOT + 'config/environment'
+require 'db_structure'
+
+config = ActiveRecord::Base.configurations
+
+['production', 'test', 'development'].each do |target|
+  begin
+    ENV['RAILS_ENV'] = target
+    load APP_ROOT + 'config/environment.rb'
+    puts "Creating tables for #{target}..."
+
+    db_structure(config[target]['adapter']).split(/\s*;\s*/).each do |sql|
+      ActiveRecord::Base.connection.execute(sql)
+    end
+
+    puts "done."
+  rescue => e
+    puts "failed: " + e.inspect
+  end
+end

script/debug_storage

@@ -1,97 +0,0 @@
-#!/usr/bin/ruby
-
-=begin
-The purpose of this script is to help people poke around in the Madeleine storage. 
-
-Two caveats:
-1. You MUST be a reasonably good Ruby programmer to use it successfully for anything non-trivial.
-2. It's very easy to screw up something by poking in the storage internals. If you do, please 
-   undo your changes by deleting the most recent snapshot(s) and don't ask for help.
-
-Usage example:
-
-E:\eclipse\workspace\instiki\script>irb
-irb(main):001:0> load 'debug_storage'
-Enter path to storage [E:/eclipse/workspace/instiki/storage/2500]:
-Loading storage from the default storage path (E:/eclipse/workspace/instiki/storage/2500)
-Instiki storage from E:/eclipse/workspace/instiki/storage/2500 is loaded.
-Access it via global variable $wiki.
-Happy poking!
-=> true
-irb(main):003:0> $wiki.system
-=> {"password"=>"foo"}
-irb(main):005:0> $wiki.system['password'] = 'bar'
-=> "bar"
-irb(main):006:0> $wiki.webs.keys
-=> ["wiki1", "wiki2"]
-irb(main):007:0> $wiki.webs['wiki1'].password = 'the_password'
-=> "the_password"
-irb(main):008:0> WikiService::snapshot
-=> []
-
-
-Things that are possible:
-
-# cleaning old revisions
-$wiki.webs['wiki'].pages['HomePage'].revisions = $wiki.webs['wiki'].pages['HomePage'].revisions[-1..-1]
-
-# Changing contents of a revision
-$wiki.webs['wiki'].pages['HomePage'].revisions[-1] = 'new content'
-
-# Checking that all pages can be rendered by the markup engine
-$wiki.webs['wiki'].pages.each_pair do |name, page|
-  page.revisions.each_with_index do |revision, i|
-    begin
-      revision.display_content
-    rescue =>
-      puts "Error when rendering revision ##{i} of page #{name.inspect}:"
-      puts e.message
-      puts e.backtrace.join("\n")
-    end
-end
-=end
-
-require 'fileutils'
-require 'optparse'
-require 'webrick'
-
-default_storage_path = File.expand_path(File.dirname(__FILE__) + "/../storage/2500")
-
-print "Enter path to storage [#{default_storage_path}]: "
-storage_path = gets.chomp
-if storage_path.empty?
-  storage_path = default_storage_path
-  puts "Loading storage from the default storage path (#{storage_path})"
-else
-  puts "Loading storage from the path you entered (#{storage_path})"
-end
-
-unless File.directory?(storage_path) and not 
-    (Dir["#{storage_path}/*.snapshot"] + Dir["#{storage_path}/*.command_log"]).empty?
-  raise "Found no storage at #{storage_path}" 
-end
-
-RAILS_ROOT = File.expand_path(File.dirname(__FILE__) + '/../') unless defined? RAILS_ROOT
-
-unless defined? ADDITIONAL_LOAD_PATHS
-  ADDITIONAL_LOAD_PATHS = %w(
-    app/models 
-    lib 
-    vendor/madeleine-0.7.1/lib
-    vendor/RedCloth-3.0.3/lib
-    vendor/rubyzip-0.5.8/lib
-  ).map { |dir| "#{File.expand_path(File.join(RAILS_ROOT, dir))}"
-  }.delete_if { |dir| not File.exist?(dir) }
-
-  # Prepend to $LOAD_PATH
-  ADDITIONAL_LOAD_PATHS.reverse.each { |dir| $:.unshift(dir) if File.directory?(dir) }
-end
-
-require 'wiki_service'
-
-WikiService.storage_path = storage_path
-$wiki = WikiService.instance
-puts "Instiki storage from #{storage_path} is loaded."
-puts 'Access it via global variable $wiki.'
-puts 'Happy poking!'
-nil