ackbar 0.1.0

data/test/connection.rb

@@ -0,0 +1,27 @@
+print "Using native KirbyBase\n"
+require_dependency 'fixtures/course'
+require 'logger'
+require 'create_dbs_for_ar_tests'
+
+db1_path = File.expand_path File.join(File.dirname(__FILE__), 'db/activerecord_unittest') 
+db2_path = File.expand_path File.join(File.dirname(__FILE__), 'db/activerecord_unittest2')
+
+[db1_path, db2_path].each_with_index do |path, idx|
+  FileUtils.rm_rf(path) rescue nil
+  FileUtils.mkdir(path) rescue Errno::EEXIST nil
+end
+
+db = KirbyBase.new :local, nil, nil, db1_path
+create_and_init db
+db2 = KirbyBase.new :local, nil, nil, db2_path
+create_and_init_2 db2
+
+ActiveRecord::Base.establish_connection(
+  :adapter  => "kirbybase",
+  :database => db1_path
+)
+
+Course.establish_connection(
+  :adapter  => "kirbybase",
+  :database => db2_path
+)

data/test/create_dbs_for_ar_tests.rb

@@ -0,0 +1,171 @@
+require 'kirbybase'
+
+def create_and_init db
+  db.create_table(:accounts,
+    :firm_id, { :DataType => :Integer, :Default => nil },
+    :credit_limit, { :DataType => :Integer, :Default => nil }
+  )
+  
+  db.create_table(:companies,
+    :type, { :DataType => :String, :Default => nil },
+    :ruby_type, { :DataType => :String, :Default => nil },
+    :firm_id, { :DataType => :Integer, :Default => nil },
+    :name, { :DataType => :String, :Default => nil },
+    :client_of, { :DataType => :Integer, :Default => nil },
+    :rating, { :DataType => :Integer, :Default => 1 }
+  )
+  
+  
+  db.create_table(:topics,
+    :title, { :DataType => :String, :Default => nil },
+    :author_name, { :DataType => :String, :Default => nil },
+    :author_email_address, { :DataType => :String, :Default => nil },
+    :written_on, { :DataType => :Time, :Default => nil },
+    :bonus_time, { :DataType => :Time, :Default => nil },
+    :last_read, { :DataType => :Date, :Default => nil },
+    :content, { :DataType => :String },
+    :approved, { :DataType => :Boolean, :Default => true },
+    :replies_count, { :DataType => :Integer, :Default => 0 },
+    :parent_id, { :DataType => :Integer, :Default => nil },
+    :type, { :DataType => :String, :Default => nil }
+  )
+  
+  db.create_table(:developers,
+    :name, { :DataType => :String, :Default => nil },
+    :salary, { :DataType => :Integer, :Default => 70000 },
+    :created_at, { :DataType => :Time, :Default => nil },
+    :updated_at, { :DataType => :Time, :Default => nil }
+  )
+  
+  db.create_table(:projects,
+    :name, { :DataType => :String, :Default => nil },
+    :type, { :DataType => :String, :Default => nil }
+  )
+  
+  db.create_table(:developers_projects,
+    :developer_id, { :DataType => :Integer, :Required => true },
+    :project_id, { :DataType => :Integer, :Required => true },
+    :joined_on, { :DataType => :Date, :Default => nil },
+    :access_level, { :DataType => :Integer, :Default => 1 }
+  )
+  
+  
+  db.create_table(:orders,
+    :name, { :DataType => :String, :Default => nil },
+    :billing_customer_id, { :DataType => :Integer, :Default => nil },
+    :shipping_customer_id, { :DataType => :Integer, :Default => nil }
+  )
+  
+  db.create_table(:customers,
+    :name, { :DataType => :String, :Default => nil },
+    :balance, { :DataType => :Integer, :Default => 0 },
+    :address_street, { :DataType => :String, :Default => nil },
+    :address_city, { :DataType => :String, :Default => nil },
+    :address_country, { :DataType => :String, :Default => nil },
+    :gps_location, { :DataType => :String, :Default => nil }
+  )
+  
+  db.create_table(:movies,
+    :movieid, { :DataType => :Integer, :Required => true },
+    :name, { :DataType => :String, :Default => nil }
+  )
+  
+  db.create_table(:subscribers,
+   :nick, { :DataType => :String, :Required => true },
+   :name, { :DataType => :String, :Default => nil }
+  )
+  
+  db.create_table(:booleantests,
+    :value, { :DataType => :Boolean, :Default => nil }
+  )
+  
+  db.create_table(:auto_id_tests,
+    :auto_id, { :DataType => :Integer, :Calculated => "recno" }, # emulate the primary key in the adapter
+    :value, { :DataType => :Integer, :Default => nil }
+  )
+  
+  db.create_table(:entrants,
+    :name, { :DataType => :String, :Required => true },
+    :course_id, { :DataType => :Integer, :Required => true }
+  )
+  
+  db.create_table(:colnametests,
+    :references, { :DataType => :Integer, :Required => true }
+  )
+  
+  db.create_table(:mixins,
+    :parent_id, { :DataType => :Integer, :Default => nil },
+    :type, { :DataType => :String, :Default => nil },
+    :pos, { :DataType => :Integer, :Default => nil },
+    :lft, { :DataType => :Integer, :Default => nil },
+    :rgt, { :DataType => :Integer, :Default => nil },
+    :root_id, { :DataType => :Integer, :Default => nil },
+    :created_at, { :DataType => :Time, :Default => nil },
+    :updated_at, { :DataType => :Time, :Default => nil }
+  )
+  
+  db.create_table(:people,
+    :first_name, { :DataType => :String, :Default => nil },
+    :lock_version, { :DataType => :Integer, :Required => true, :Default => 0 }
+  )
+  
+  db.create_table(:binaries,
+    :data, { :DataType => :String }
+  )
+  
+  db.create_table(:computers,
+    :developer, { :DataType => :Integer, :Required => true },
+    :extendedWarranty, { :DataType => :Integer, :Required => true }
+  )
+  
+  db.create_table(:posts,
+    :author_id, { :DataType => :Integer },
+    :title, { :DataType => :String, :Required => true },
+    :type, { :DataType => :String, :Required => true },
+    :body, { :DataType => :String, :Required => true }
+  )
+  
+  db.create_table(:comments,
+    :post_id, { :DataType => :Integer, :Required => true },
+    :type, { :DataType => :String, :Required => true },
+    :body, { :DataType => :String, :Required => true }
+  )
+  
+  db.create_table(:authors,
+    :name, { :DataType => :String, :Required => true }
+  )
+  
+  db.create_table(:tasks,
+    :starting, { :DataType => :Time, :Default => nil },
+    :ending, { :DataType => :Time, :Default => nil }
+  )
+  
+  db.create_table(:categories,
+    :name, { :DataType => :String, :Required => true },
+    :type, { :DataType => :String, :Default => nil }
+  )
+  
+  db.create_table(:categories_posts,
+    :category_id, { :DataType => :Integer, :Required => true },
+    :post_id, { :DataType => :Integer, :Required => true }
+  )
+  
+  db.create_table(:fk_test_has_pk
+  )
+  
+  db.create_table(:fk_test_has_fk,
+    :fk_id, { :DataType => :Integer, :Required => true }
+    # FOREIGN KEY ('fk_id') REFERENCES 'fk_test_has_pk'('id')
+  )
+  
+  db.create_table(:keyboards,
+    :key_number, { :DataType => :Integer, :Calculated => "recno" },
+    :name, { :DataType => :String, :Default => nil }
+  )
+end
+
+def create_and_init_2 db2
+  db2.create_table(:courses,
+   :name, { :DataType => :String, :Required => true }
+  )
+end

data/test/fixtures/authors.yml

@@ -0,0 +1,6 @@
+--- !omap
+- andy:
+    name: Andy Hunt
+
+- dave:
+    name: Dave Thomas

data/test/fixtures/authors_books.yml

@@ -0,0 +1,8 @@
+--- !omap
+- pr_andy:
+    author_id: 1
+    book_id: 1
+
+- pr_dave:
+    author_id: 2
+    book_id: 1

data/test/fixtures/books.yml

@@ -0,0 +1,4 @@
+pickaxe:
+  name: Programming Ruby (1st Edition)
+  published: 2000-01-01
+  publisher_id: 2

data/test/fixtures/pages.yml

@@ -0,0 +1,98 @@
+front:
+  content: front cover
+  book_id: 1
+chap1:
+  content: chapter 1 text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+  book_id: 1
+chap2:
+  content: chapter 2 text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+           text text text text text text text text text text text text text text text text text text text text
+  book_id: 1
+annex:
+  content: annex
+  book_id: 1
+back:
+  content: back cover
+  book_id: 1
+

data/test/fixtures/publishers.yml

@@ -0,0 +1,7 @@
+aw:
+  name: Addison Wesley
+  address: 
+pragprog:
+  name: "Pragmatic Programmers' Bookshelf"
+  address: 
+  

data/test/kb_associations_test.rb

@@ -0,0 +1,107 @@
+require 'test_helper'
+
+class KBAssociationsTest < Test::Unit::TestCase
+
+  self.fixture_path = File.expand_path(File.dirname(__FILE__)) + '/fixtures'
+  use_transactional_fixtures = false
+  fixtures :publishers, :authors, :books, :pages, :authors_books
+
+  def setup
+    # recreate_kb_database
+    # load_kb_fixtures
+  end
+
+  def tear_down
+    # unload_kb_fixtures
+  end
+
+  def test_has_one
+    @err = Errata.create :book_id => 1, :contents => 'page 1: no text'
+
+    assert_equal @pickaxe, Errata.find(:first).book
+    assert_equal @err, Book.find(:first).errata
+
+    @cvs = Book.create :name => 'Pragmatic CVS', :published => 1.year.ago.to_date, :publisher => @pragprogs
+    @err = Errata.create :book => @cvs, :contents => 'use SVN'
+    @cvs.reload; @err.reload
+    assert_equal @cvs, Errata.find(:first, :conditions => lambda{|r| r.book_id == @cvs.id}).book
+    assert_equal @err, Book.find(:first, :conditions => lambda{|r| r.name =~ /CVS/}).errata
+  end
+
+  def test_belongs_to
+    @cvs = Book.create :publisher_id => @pragprog.id, :name => 'Pragmatic CVS', :published => Date.today
+    assert_equal @pragprog, @cvs.publisher
+    assert_equal @pragprog.id, $db.get_table(:books).select{|b|b.name =~ /CVS/}[0].publisher_id
+
+    @svn = Book.create :publisher => @pragprog, :name => 'Pragmatic SVN', :published => Date.today
+    assert_equal @pragprog, @svn.publisher
+    assert_equal @pragprog.id, $db.get_table(:books).select{|b|b.name =~ /SVN/}[0].publisher_id
+    
+    assert_equal @pragprog.id, $db.get_table(:books).select{|b| b.name =~ /ruby/i}[0].publisher_id
+    book = Book.find(:first) {|b| b.name =~ /ruby/i}
+    assert_equal @pickaxe, book
+    assert_equal @pragprog, book.publisher
+    
+    book.publisher = nil
+    book.save
+    
+    assert_equal nil, $db.get_table(:books).select{|b|b.name =~ /ruby/i}[0].publisher_id
+    assert_equal nil, book.publisher
+    assert_equal nil, Book.find(:first).publisher
+  end
+
+  def test_has_many
+    assert_equal 5, Book.find(:first).pages.size
+    assert_equal [@front, @chap1, @chap2, @annex, @back].sort_by(:id), @pickaxe.pages.sort_by(:id)
+    
+    assert_equal [@chap1, @chap2].sort_by(:id), @pickaxe.pages.find(:all, :conditions => lambda{|rec| rec.book_id == @pickaxe.id and rec.content =~ /text/}).sort_by(:id)
+  end
+
+  def test_has_many_destroy_dependents
+    book = Book.create :name => 'pulp fiction', :published => Date.today
+    page1 = Page.create :book => book, :page_num => 1, :content => 'text 1'
+    page2 = Page.create :book => book, :page_num => 2, :content => 'text 2'
+    page3 = Page.create :book => book, :page_num => 3, :content => 'text 3'
+
+    book.pages << page1
+    book.pages << [page2, page3]
+    assert_equal 2, book.id
+
+    assert_equal 2, Book.find(:all).size
+    assert_equal 8, Page.find(:all).size
+    assert_equal 5, Book.find(1).pages.size
+    assert_equal 3, Book.find(2).pages.size
+    
+    Book.destroy(2)
+    assert_raise(ActiveRecord::RecordNotFound) { Book.find(2) }
+    assert_raise(ActiveRecord::RecordNotFound) { Page.find(page1.id) }
+    assert_raise(ActiveRecord::RecordNotFound) { Page.find(page2.id) }
+    assert_raise(ActiveRecord::RecordNotFound) { Page.find(page3.id) }
+
+    assert_equal 1, Book.find(:all).size
+    assert_equal 5, Page.find(:all).size
+    assert_equal 5, Book.find(1).pages.size
+  end
+
+  def test_has_and_belongs_to_many
+    assert_equal 2, $db.get_table(:authors_books).select.size
+    assert_equal [@andy, @dave], @pickaxe.author
+    assert_equal 2, @pickaxe.author.size
+
+    assert_equal [@pickaxe], @andy.book
+    assert_equal [@pickaxe], @dave.book
+    assert_equal 1, @andy.book.size
+    assert_equal 1, @dave.book.size
+
+    @cvs = Book.create :publisher_id => @pragprog.id, :name => 'Pragmatic CVS', :published => Date.today
+    @cvs.author << @andy
+    @svn = Book.create :publisher => @pragprog, :name => 'Pragmatic SVN', :published => Date.today
+    @svn.author << @dave
+
+    assert_equal [@andy], @cvs.author
+    assert_equal [@dave], @svn.author
+    @andy.reload; @dave.reload
+    assert_equal [@pickaxe, @cvs], @andy.book
+    assert_equal [@pickaxe, @svn], @dave.book
+  end
+end

data/test/kb_basics_test.rb

@@ -0,0 +1,204 @@
+
+require 'test_helper'
+
+class KBBasicsTest < Test::Unit::TestCase
+  
+  self.fixture_path = File.expand_path(File.dirname(__FILE__)) + '/fixtures'
+  use_transactional_fixtures = false 	 
+  fixtures :publishers, :authors, :books, :pages, :authors_books
+
+  def setup
+    # recreate_kb_database
+    # load_kb_fixtures
+  end
+
+  def tear_down
+    # unload_kb_fixtures
+  end
+
+  def test_add_records
+    # Start with a clean slate - Fixture insert directly to DB; here we test
+    # insertion through AR::Base.create
+    recreate_kb_database
+
+    # Plain Inserts:
+    authors = $db.get_table :authors
+    assert [], authors.select
+    
+    Author.create :name => 'Andy Hunt'
+    Author.create :name => 'Dave Thomas'
+    assert_equal ['Andy Hunt', 'Dave Thomas'], authors.select.map { |a| a.name }.sort
+    
+    publishers = $db.get_table :publishers
+    assert [], publishers.select
+    pragprog = Publisher.create :name => "Pragmatic Programmers' Bookshelf"
+    assert_equal ["Pragmatic Programmers' Bookshelf"], publishers.select.map { |a| a.name }
+
+    # Inserts with a belongs_to association:
+    books = $db.get_table :books
+    assert_equal [], books.select
+    pickaxe = Book.create :name => 'Programming Ruby (1st Edition)', :published => Date.parse('2000-01-01'), 
+                :publisher => pragprog
+    assert_equal [['Programming Ruby (1st Edition)', Date.parse('2000-01-01'), pragprog.id]],
+                 books.select.map {|b| [b.name, b.published, b.publisher_id] }
+    
+    # Inserts with a belongs_to association:
+    pages = $db.get_table :pages
+    assert_equal 0, pages.select.size
+    Page.create :book => pickaxe, :page_num => 0, :content => 'front cover'
+    Page.create :book => pickaxe, :page_num => 1, :content => 'chapter 1'*256
+    Page.create :book => pickaxe, :page_num => 2, :content => 'chapter 2'*512
+    Page.create :book => pickaxe, :page_num => 3, :content => 'chapter 3'*513
+    Page.create :book => pickaxe, :page_num => 4, :content => 'back cover'
+    assert_equal 5, pages.select.size
+    assert pages.select.all? { |page| page.book_id == pickaxe.id }
+  end
+
+  def test_find
+    # test plain find :all
+    assert_equal [@andy, @dave], Author.find(:all)
+
+    # test plain find :first
+    assert_equal @andy, Author.find(:first)
+
+    # test find with block on :conditions parameter:
+    assert_equal [@andy].map{|a| a.name}, Author.find(:all, :conditions => lambda{ |rec| rec.name =~ /andy/i }).map{|a| a.name}
+
+    # test find with block:
+    assert_equal [@dave].map{|a| a.name}, Author.find(:all) { |rec| rec.name =~ /Thomas/ }.map{|a| a.name}
+
+    # test find_by_<property> methods:
+    assert_equal @dave.name, Author.find_by_name('Dave Thomas').name
+  end
+
+  def test_find_by_ids
+    # find by IDs
+    assert_equal @andy, Author.find(1)
+    assert_equal [@andy, @dave], Author.find(1,2)
+    assert_equal [@andy, @dave], Author.find([1,2])
+    pickaxe_id = $db.get_table(:books).select[0].recno
+    assert_equal @pickaxe, Book.find_by_id(pickaxe_id)
+  end
+
+  def test_find_with_sql_fragments
+    # basic SQL strings should work:
+    assert_equal [@andy], Author.find(:all, :conditions => "name = 'Andy Hunt'")
+
+    # guess find with basic SQL fragment:
+    assert_nothing_raised() { Author.find(:all, :conditions => ['name =?', 'Andy Hunt']) }
+    assert_equal [@andy], Author.find(:all, :conditions => ['name =?', 'Andy Hunt'])
+    assert_equal @dave, Author.find(:first, :conditions => ['name =?', 'Dave Thomas'])
+
+    # test more complex SQL fragments:
+    assert_equal [@back], Page.find(:all, :conditions => ["book_id = ? AND content = ?", 1, 'back cover'])
+  end
+  
+  def test_update
+    tbl = $db.get_table(:books)
+    assert_equal 'Programming Ruby (1st Edition)', tbl.select.first.name
+    
+    pickaxe = Book.find :first
+    pickaxe.name = 'Programming Ruby (2nd Edition)'
+    pickaxe.publisher_id = 1
+    pickaxe.save
+
+    assert_equal 1, tbl.select.size
+    assert_equal 'Programming Ruby (2nd Edition)', tbl.select.first.name
+  end
+ 
+  def test_update_all
+    tbl = $db.get_table(:authors)
+    assert_equal ['Andy Hunt', 'Dave Thomas'], tbl.select.map{|r| r.name}
+    
+    Author.update_all lambda{|rec| rec.name = rec.name.upcase}
+    assert_equal ['ANDY HUNT', 'DAVE THOMAS'], tbl.select.map{|r| r.name}
+    
+    Author.update_all lambda{|rec| rec.name = rec.name.downcase}, lambda{|rec| rec.name =~ /Andy/i}
+    assert_equal ['andy hunt', 'DAVE THOMAS'], tbl.select.map{|r| r.name}
+
+    Author.update_all "name = 'Andy'", lambda{|rec| rec.name =~ /Andy/i}
+    assert_equal ['Andy', 'DAVE THOMAS'], tbl.select.map{|r| r.name}
+
+    Author.update_all ['name = ?', 'Mr. Hunt'], lambda{|rec| rec.name =~ /Andy/i}
+    assert_equal ['Mr. Hunt', 'DAVE THOMAS'], tbl.select.map{|r| r.name}
+
+    Author.update_all ['name = ?', 'Dave'], ['name = ?', 'DAVE THOMAS']
+    assert_equal ['Mr. Hunt', 'Dave'], tbl.select.map{|r| r.name}
+
+    # We can handle simple SQL fragments in conditions
+    Author.update_all ['num_books = ?', 1], "name = 'Dave'"
+    assert_equal ['Mr. Hunt', 'Dave'], tbl.select.map{|r| r.name}
+    assert_equal [0, 1], tbl.select.map{|r| r.num_books}
+    
+    assert_nothing_raised { Author.update_all ['name = ?', 'Dave Thomas'], "name = 'Dave' and num_books = 1" }
+    assert_equal ['Mr. Hunt', 'Dave Thomas'], tbl.select.map{|r| r.name}
+    
+    Author.update_all ['name = ?', 'Pragmatic']
+    assert_equal ['Pragmatic', 'Pragmatic'], tbl.select.map{|r| r.name}
+
+    # Check updates of non-strings
+    tbl.drop_column :num_books rescue nil
+    tbl.add_column :num_books, :Integer
+
+    Author.update_all ['num_books = ?', 1]
+    assert_equal [1, 1], tbl.select.map{|r| r.num_books}
+
+    Author.update_all "num_books = 2"
+    assert_equal [2, 2], tbl.select.map{|r| r.num_books}
+  end
+  
+  def test_destroy
+    authors = $db.get_table(:authors)
+    assert_equal 2, authors.total_recs
+    assert_equal 2, Author.find(:all).size
+    # class level destroy
+    Author.destroy(1)
+    assert_equal 1, authors.total_recs
+    assert_equal 1, Author.find(:all).size
+    # object destroy
+    Author.find(:first).destroy
+    assert_equal 0, authors.total_recs
+    assert_equal 0, Author.find(:all).size
+    assert_raise(ActiveRecord::RecordNotFound) { Author.find(1) }
+
+    pages = $db.get_table(:pages)
+    assert_equal 5, pages.total_recs
+    Page.destroy [1,2,3]
+    assert_equal 2, pages.total_recs
+    Page.destroy [4,5]
+    assert_equal 0, pages.total_recs
+    assert_raise(ActiveRecord::RecordNotFound) { Page.destroy(1) }
+  end
+
+  def test_increment_counter
+    tbl = $db.get_table(:authors)
+    tbl.drop_column :num_books rescue nil
+    tbl.add_column :num_books, { :DataType => :Integer, :Default => 0 }
+    tbl.update_all :num_books => 1
+
+    assert_equal [1, 1], tbl.select.map{|a| a.num_books}
+    assert_equal [1, 1], Author.find(:all).map{|a| a.num_books}
+
+    Author.increment_counter 'num_books', 1
+    assert_equal [2, 1], tbl.select.map{|r| r.num_books}
+
+    Author.increment_counter 'num_books', [1, 2]
+    assert_equal [3, 2], tbl.select.map{|r| r.num_books}
+  end
+
+  def test_decrement_counter
+    tbl = $db.get_table(:authors)
+    tbl.drop_column :num_books rescue nil
+    tbl.add_column :num_books, { :DataType => :Integer, :Default => 2 }
+    tbl.update_all :num_books => 2
+
+    assert_equal [2, 2], tbl.select.map{|a| a.num_books}
+    assert_equal [2, 2], Author.find(:all).map{|a| a.num_books}
+
+    Author.decrement_counter 'num_books', 1
+    assert_equal [1, 2], tbl.select.map{|r| r.num_books}
+
+    Author.decrement_counter 'num_books', [1, 2]
+    assert_equal [0, 1], tbl.select.map{|r| r.num_books}
+  end
+end