invoicing 0.1.0

data/test/find_subclasses_test.rb

@@ -0,0 +1,120 @@
+require File.join(File.dirname(__FILE__), 'test_helper.rb')
+
+# Associated with TestBaseclass
+
+class FindSubclassesAssociate < ActiveRecord::Base
+end
+
+
+# Primary hierarchy of classes for testing.
+
+class TestBaseclass < ActiveRecord::Base
+  set_table_name 'find_subclasses_records'
+  set_inheritance_column 'type_name' # usually left as default 'type'. rename to test renaming
+  belongs_to :associate, :foreign_key => 'associate_id', :class_name => 'FindSubclassesAssociate'
+  named_scope :with_coolness, lambda{|factor| {:conditions => {:coolness_factor => factor}}}
+  extend Invoicing::FindSubclasses
+  def self.coolness_factor; 3; end
+end
+
+class TestSubclass < TestBaseclass
+
+end
+
+class TestSubSubclass < TestSubclass
+  def self.coolness_factor; 5; end
+end
+
+module TestModule
+  class TestInsideModuleSubclass < TestBaseclass
+    def self.coolness_factor; nil; end
+  end
+end
+
+class TestOutsideModuleSubSubclass < TestModule::TestInsideModuleSubclass
+  def self.coolness_factor; 999; end
+end
+
+
+# This class' table contains non-existent subclass names, to test errors
+
+class SomeSillySuperclass < ActiveRecord::Base
+  extend Invoicing::FindSubclasses
+  set_table_name 'find_subclasses_non_existent'
+end
+
+
+#####################
+
+class FindSubclassesTest < Test::Unit::TestCase
+  
+  def test_known_subclasses
+    # All subclasses of TestBaseclass except for TestSubclassNotInDatabase
+    expected = ['TestBaseclass', 'TestModule::TestInsideModuleSubclass', 'TestOutsideModuleSubSubclass',
+      'TestSubSubclass', 'TestSubclass', 'TestSubclassInAnotherFile']
+    assert_equal expected, TestBaseclass.known_subclasses.map{|cls| cls.name}.sort
+  end
+  
+  def test_known_subclasses_for_subtype
+    expected = ['TestSubSubclass', 'TestSubclass']
+    assert_equal expected, TestSubclass.known_subclasses.map{|cls| cls.name}.sort
+  end
+  
+  def test_error_when_unknown_type_is_encountered
+    assert_raise ActiveRecord::SubclassNotFound do
+      SomeSillySuperclass.known_subclasses
+    end
+  end
+  
+  def test_class_method_condition_in_find
+    assert_equal [1, 2, 4], TestBaseclass.all(:conditions => {:coolness_factor => 3}).map{|r| r.id}.sort
+  end
+  
+  def test_class_method_condition_in_named_scope
+    assert_equal [6], TestBaseclass.with_coolness(999).map{|r| r.id}
+  end
+  
+  def test_class_method_condition_combined_with_column_condition_as_string_list
+    assert_equal [2, 4], TestBaseclass.with_coolness(3).all(:conditions => ["value LIKE ?", 'B%']).map{|r| r.id}.sort
+  end
+  
+  def test_class_method_condition_combined_with_column_condition_as_hash
+    assert_equal [1], TestBaseclass.scoped(:conditions => {:value => 'Mooo!', :coolness_factor => 3}).all.map{|r| r.id}
+  end
+  
+  def test_class_method_condition_combined_with_column_condition_on_joined_table_expressed_as_string
+    conditions = {'find_subclasses_associates.value' => 'Cool stuff', 'find_subclasses_records.coolness_factor' => 3}
+    assert_equal [1], TestBaseclass.all(:joins => :associate, :conditions => conditions).map{|r| r.id}
+  end
+  
+  def test_class_method_condition_combined_with_column_condition_on_joined_table_expressed_as_hash
+    conditions = {:find_subclasses_associates => {:value => 'Cool stuff'},
+                  :find_subclasses_records    => {:coolness_factor => 3}}
+    assert_equal [1], TestBaseclass.all(:joins => :associate, :conditions => conditions).map{|r| r.id}
+  end
+  
+  def test_class_method_condition_with_same_table_name
+    conditions = {'find_subclasses_records.value' => 'Baaa!', 'find_subclasses_records.coolness_factor' => 3}
+    assert_equal [2, 4], TestBaseclass.all(:conditions => conditions).map{|r| r.id}.sort
+  end
+  
+  def test_class_method_condition_with_list_of_alternatives
+    assert_equal [3, 6], TestBaseclass.all(:conditions => {:coolness_factor => [5, 999]}).map{|r| r.id}.sort
+  end
+  
+  def test_class_method_condition_with_range_of_alternatives
+    assert_equal [1, 2, 3, 4, 6], TestBaseclass.all(:conditions => {:coolness_factor => 1..1000}).map{|r| r.id}.sort
+  end
+  
+  def test_class_method_condition_invoked_on_subclass
+    assert_equal [2], TestSubclass.with_coolness(3).all.map{|r| r.id}
+  end
+  
+  def test_class_method_condition_false_type_coercion
+    assert_equal [5], TestBaseclass.find(:all, :conditions => {:coolness_factor => false}).map{|r| r.id}
+  end
+  
+  def test_class_method_condition_true_type_coercion
+    assert_equal [1, 2, 3, 4, 6], TestBaseclass.all(:conditions => {:coolness_factor => true}).map{|r| r.id}.sort
+  end
+end

data/test/fixtures/README

@@ -0,0 +1,7 @@
+The SQL files in this folder are executed once on the current ActiveRecord database connection
+before the tests are run. Use them to set up a database schema and any contents (fixtures)
+required by the tests. Tests are run in transactions and rolled back, so the database should
+be restored back to the state defined in these files after each test.
+
+It's important that all tables are created with option ENGINE=InnoDB, otherwise MySQL creates
+MyISAM tables which do not support transactions.

data/test/fixtures/cached_record.sql

@@ -0,0 +1,22 @@
+DROP TABLE IF EXISTS cached_records;
+
+CREATE TABLE cached_records (
+    id2 int primary key auto_increment,
+    value varchar(255)
+) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
+
+INSERT INTO cached_records(id2, value) values(1, 'One'), (2, 'Two');
+
+ALTER SEQUENCE cached_records_id2_seq start 1000;
+
+
+DROP TABLE IF EXISTS refers_to_cached_records;
+
+CREATE TABLE refers_to_cached_records (
+    id int primary key auto_increment,
+    cached_record_id int
+) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
+
+INSERT INTO refers_to_cached_records(id, cached_record_id) values(1, 1), (2, 1), (3, NULL);
+
+ALTER SEQUENCE refers_to_cached_records_id_seq start 1000;

data/test/fixtures/class_info.sql

@@ -0,0 +1,28 @@
+DROP TABLE IF EXISTS class_info_test_records;
+
+CREATE TABLE class_info_test_records (
+    id int primary key auto_increment,
+    value int,
+    type varchar(255)
+);
+
+INSERT INTO class_info_test_records (id, value, type) values
+    (1, 2, 'ClassInfoTestRecord'),
+    (2, 3, 'ClassInfoTestSubclass'),
+    (3, 3, 'ClassInfoTestSubclass2'),
+    (4, 3, 'ClassInfoTestSubSubclass');
+
+ALTER SEQUENCE class_info_test_records_id_seq start 1000;
+
+
+DROP TABLE IF EXISTS class_info_test2_records;
+
+CREATE TABLE class_info_test2_records (
+    id int primary key auto_increment,
+    value int,
+    okapi varchar(255)
+);
+
+INSERT INTO class_info_test2_records(id, value, okapi) values(1, 1, 'OKAPI!');
+
+ALTER SEQUENCE class_info_test2_records_id_seq start 1000;

data/test/fixtures/currency_value.sql

@@ -0,0 +1,29 @@
+DROP TABLE IF EXISTS currency_value_records;
+
+CREATE TABLE currency_value_records (
+    id int primary key auto_increment,
+    currency_code varchar(3),
+    amount decimal(20,4),
+    tax_amount decimal(20,4)
+) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
+
+INSERT INTO currency_value_records(id, currency_code, amount, tax_amount) values
+    (1, 'GBP', 123.45, NULL),
+    (2, 'EUR', 98765432, 0.02),
+    (3, 'CNY', 5432, 0),
+    (4, 'JPY', 8888, 123),
+    (5, 'XXX', 123, NULL);
+
+ALTER SEQUENCE currency_value_records_id_seq start 1000;
+
+    
+DROP TABLE IF EXISTS no_currency_column_records;
+
+CREATE TABLE no_currency_column_records (
+    id int primary key auto_increment,
+    amount decimal(20,4)
+) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
+
+INSERT INTO no_currency_column_records(id, amount) values(1, '95.15');
+
+ALTER SEQUENCE no_currency_column_records_id_seq start 1000;

data/test/fixtures/find_subclasses.sql

@@ -0,0 +1,43 @@
+DROP TABLE IF EXISTS find_subclasses_records;
+
+CREATE TABLE find_subclasses_records (
+    id int primary key auto_increment,
+    value varchar(255),
+    type_name varchar(255),
+    associate_id int
+) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
+
+INSERT INTO find_subclasses_records(id, value, associate_id, type_name) values
+    (1, 'Mooo!',    1, 'TestBaseclass'),
+    (2, 'Baaa!', NULL, 'TestSubclass'),
+    (3, 'Mooo!', NULL, 'TestSubSubclass'),
+    (4, 'Baaa!', NULL, 'TestSubclassInAnotherFile'),
+    (5, 'Mooo!',    1, 'TestModule::TestInsideModuleSubclass'),
+    (6, 'Baaa!',    1, 'TestOutsideModuleSubSubclass');
+
+ALTER SEQUENCE find_subclasses_records_id_seq start 1000;
+
+
+DROP TABLE IF EXISTS find_subclasses_associates;
+
+CREATE TABLE find_subclasses_associates (
+    id int primary key auto_increment,
+    value varchar(255)
+) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
+
+INSERT INTO find_subclasses_associates (id, value) values(1, 'Cool stuff');
+
+ALTER SEQUENCE find_subclasses_associates_id_seq start 1000;
+
+
+DROP TABLE IF EXISTS find_subclasses_non_existent;
+
+CREATE TABLE find_subclasses_non_existent (
+    id int primary key auto_increment,
+    value varchar(255),
+    type varchar(255)
+) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
+
+INSERT INTO find_subclasses_non_existent(id, value, type) values(1, 'Badger', 'SurelyThereIsNoClassWithThisName');
+
+ALTER SEQUENCE find_subclasses_non_existent_id_seq start 1000;

data/test/fixtures/ledger_item.sql

@@ -0,0 +1,39 @@
+DROP TABLE IF EXISTS ledger_item_records;
+
+CREATE TABLE ledger_item_records (
+    id2 int primary key auto_increment,
+    type2 varchar(255) not null,
+    sender_id2 int,
+    recipient_id2 int,
+    identifier2 varchar(255),
+    issue_date2 datetime,
+    currency2 varchar(5),
+    total_amount2 decimal(20,4),
+    tax_amount2 decimal(20,4),
+    status2 varchar(100),
+    period_start2 datetime,
+    period_end2 datetime,
+    uuid2 varchar(40),
+    due_date2 datetime,
+    created_at datetime,
+    updated_at datetime
+) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
+
+
+INSERT INTO ledger_item_records
+    (id2, type2,             sender_id2, recipient_id2, identifier2, issue_date2,  currency2, total_amount2, tax_amount2, status2,     period_start2, period_end2,  uuid2,                                  due_date2,    created_at,            updated_at) values
+    (1, 'MyInvoice',                  1, 2,             '1',         '2008-06-30', 'GBP',            315.00,       15.00, 'closed',    '2008-06-01',  '2008-07-01', '30f4f680-d1b9-012b-48a5-0017f22d32c0', '2008-07-30', '2008-06-02 12:34:00', '2008-07-01 00:00:00'),
+    (2, 'InvoiceSubtype',             2, 1,             '12-ASDF',   '2009-01-01', 'GBP',            141.97,       18.52, 'closed',    '2008-01-01',  '2009-01-01', 'fe4d20a0-d1b9-012b-48a5-0017f22d32c0', '2009-01-31', '2008-12-25 00:00:00', '2008-12-26 00:00:00'),
+    (3, 'MyCreditNote',               1, 2,             'putain!',   '2008-07-13', 'GBP',            -57.50,       -7.50, 'closed',    '2008-06-01',  '2008-07-01', '671a05d0-d1ba-012b-48a5-0017f22d32c0', NULL,         '2008-07-13 09:13:14', '2008-07-13 09:13:14'),
+    (4, 'MyPayment',                  1, 2,             '14BC4E0F',  '2008-07-06', 'GBP',            256.50,        0.00, 'cleared',   NULL,          NULL,         'cfdf2ae0-d1ba-012b-48a5-0017f22d32c0', NULL,         '2008-07-06 01:02:03', '2008-07-06 02:03:04'),
+    (5, 'MyLedgerItem',               2, 3,             NULL,        '2007-04-23', 'USD',            432.10,        NULL, 'closed',    NULL,          NULL,         'f6d6a700-d1ae-012b-48a5-0017f22d32c0', '2011-02-27', '2008-01-01 00:00:00', '2008-01-01 00:00:00'),
+    (6, 'CorporationTaxLiability',    4, 1,             'OMGWTFBBQ', '2009-01-01', 'GBP',         666666.66,        NULL, 'closed',    '2008-01-01',  '2009-01-01', '7273c000-d1bb-012b-48a5-0017f22d32c0', '2009-04-23', '2009-01-23 00:00:00', '2009-01-23 00:00:00'),
+    (7, 'MyPayment',                  1, 2,             'nonsense',  '2009-01-23', 'GBP',        1000000.00,        0.00, 'failed',    NULL,          NULL,         'af488310-d1bb-012b-48a5-0017f22d32c0', NULL,         '2009-01-23 00:00:00', '2009-01-23 00:00:00'),
+    (8, 'MyPayment',                  1, 2,             '1quid',     '2008-12-23', 'GBP',              1.00,        0.00, 'pending',   NULL,          NULL,         'df733560-d1bb-012b-48a5-0017f22d32c0', NULL,         '2009-12-23 00:00:00', '2009-12-23 00:00:00'),
+    (9, 'MyInvoice',                  1, 2,             '9',         '2009-01-23', 'GBP',             11.50,        1.50, 'open',      '2009-01-01',  '2008-02-01', 'e5b0dac0-d1bb-012b-48a5-0017f22d32c0', '2009-02-01', '2009-12-23 00:00:00', '2009-12-23 00:00:00'),
+    (10,'MyInvoice',                  1, 2,             'a la con',  '2009-01-23', 'GBP',         432198.76,     4610.62, 'cancelled', '2008-12-01',  '2009-01-01', 'eb167b10-d1bb-012b-48a5-0017f22d32c0', NULL,         '2009-12-23 00:00:00', '2009-12-23 00:00:00'),
+    (11,'MyInvoice',                  1, 2,             'no_lines',  '2009-01-24', 'GBP',              NULL,        NULL, 'closed',    '2009-01-23',  '2009-01-24', '9ed54a00-d99f-012b-592c-0017f22d32c0', '2009-01-25', '2009-01-24 23:59:59', '2009-01-24 23:59:59');
+
+-- Invoice 10 is set to not add up correctly; total_amount is 0.01 too little to test error handling
+
+ALTER SEQUENCE ledger_item_records_id2_seq start 1000;

data/test/fixtures/line_item.sql

@@ -0,0 +1,33 @@
+DROP TABLE IF EXISTS line_item_records;
+
+CREATE TABLE line_item_records (
+    id2 int primary key auto_increment,
+    type2 varchar(255),
+    ledger_item_id2 int not null,
+    net_amount2 decimal(20,4),
+    tax_amount2 decimal(20,4),
+    uuid2 varchar(40),
+    tax_point2 datetime,
+    tax_rate_id2 int,
+    price_id2 int,
+    quantity2 decimal(10,5),
+    creator_id2 int,
+    created_at datetime,
+    updated_at datetime
+) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
+
+
+-- Can you spot which make of computer I have?
+
+INSERT INTO line_item_records
+    (id2, type2, ledger_item_id2, net_amount2, tax_amount2, uuid2,                              tax_point2,   tax_rate_id2, price_id2, quantity2, creator_id2, created_at,            updated_at) values
+    (1,   'SuperLineItem',     1, 100.00,      15.00,   '0cc659f0-cfac-012b-481d-0017f22d32c0', '2008-06-30', 1,            1,         1,         42,          '2008-06-30 12:34:56', '2008-06-30 12:34:56'),
+    (2,   'SubLineItem',       1, 200.00,      0,       '0cc65e20-cfac-012b-481d-0017f22d32c0', '2008-06-25', 2,            2,         4,         42,          '2008-06-30 21:43:56', '2008-06-30 21:43:56'),
+    (3,   'OtherLineItem',     2, 123.45,      18.52,   '0cc66060-cfac-012b-481d-0017f22d32c0', '2009-01-01', 1,            NULL,      1,         43,          '2008-12-25 00:00:00', '2008-12-26 00:00:00'),
+    (4,   'UntaxedLineItem',   5, 432.10,      NULL,    '0cc662a0-cfac-012b-481d-0017f22d32c0', '2007-04-23', NULL,         3,         NULL,      99,          '2007-04-03 12:34:00', '2007-04-03 12:34:00'),
+    (5,   'SuperLineItem',     3, -50.00,      -7.50,   'eab28cf0-d1b4-012b-48a5-0017f22d32c0', '2008-07-13', 1,            1,         0.5,       42,          '2008-07-13 09:13:14', '2008-07-13 09:13:14'),
+    (6,   'OtherLineItem',     6, 666666.66,   NULL,    'b5e66b50-d1b9-012b-48a5-0017f22d32c0', '2009-01-01', 3,            NULL,      0,         666,         '2009-01-23 00:00:00', '2009-01-23 00:00:00'),
+    (7,   'SubLineItem',       9, 10.00,       1.50,    '6f362040-d1be-012b-48a5-0017f22d32c0', '2009-01-31', 1,            1,         0.1,       NULL,        '2009-12-23 00:00:00', '2009-12-23 00:00:00'),
+    (8,   'SubLineItem',      10, 427588.15,   4610.62, '3d12c020-d1bf-012b-48a5-0017f22d32c0', '2009-01-31', NULL,         NULL,      NULL,      42,          '2009-12-23 00:00:00', '2009-12-23 00:00:00');
+
+ALTER SEQUENCE line_item_records_id2_seq start 1000;

data/test/fixtures/price.sql

@@ -0,0 +1,4 @@
+-- For consistency with line_item.sql:
+-- 1 is 100.00 at tax rate 1
+-- 2 is 50.00 at tax rate 2
+-- 3 is 864.20 at tax rate null

data/test/fixtures/tax_rate.sql

@@ -0,0 +1,4 @@
+-- For consistency with line_item.sql:
+-- 1 is at 15%
+-- 2 is at 0%
+-- 3 is not applicable (null)

data/test/fixtures/taxable.sql

@@ -0,0 +1,14 @@
+DROP TABLE IF EXISTS taxable_records;
+
+CREATE TABLE taxable_records (
+    id int primary key auto_increment,
+    currency_code varchar(3),
+    amount decimal(20,4),
+    gross_amount decimal(20,4),
+    tax_factor decimal(10,9)
+) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
+
+INSERT INTO taxable_records(id, currency_code, amount, gross_amount, tax_factor) values
+    (1, 'GBP', 123.45, 141.09, 0.142857143);
+
+ALTER SEQUENCE taxable_records_id_seq start 1000;

data/test/fixtures/time_dependent.sql

@@ -0,0 +1,35 @@
+DROP TABLE IF EXISTS time_dependent_records;
+
+CREATE TABLE time_dependent_records (
+    id2 int primary key auto_increment,
+    valid_from2 datetime not null,
+    valid_until2 datetime,
+    replaced_by_id2 int,
+    value2 varchar(255) not null,
+    is_default2 tinyint(1) not null
+) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
+
+--  2008 -> 2009 -> 2010 -> 2011
+--
+--  1    -> none
+--  2    -> 3    -> 4
+--  5    -> 3
+--  none -> 6*   -> 7*   -> none
+--  8                    -> 9*
+--  10
+--
+--  * = default
+
+INSERT INTO time_dependent_records(id2, valid_from2, valid_until2, replaced_by_id2, value2, is_default2) values
+	( 1, '2008-01-01 00:00:00', '2009-01-01 00:00:00', NULL, 'One',   0), -- false
+	( 2, '2008-01-01 00:00:00', '2009-01-01 00:00:00', 3,    'Two',   0), -- false
+	( 3, '2009-01-01 00:00:00', '2010-01-01 00:00:00', 4,    'Three', 0), -- false
+	( 4, '2010-01-01 00:00:00', NULL,                  NULL, 'Four',  0), -- false
+	( 5, '2008-01-01 00:00:00', '2009-01-01 00:00:00', 3,    'Five',  0), -- false
+	( 6, '2009-01-01 00:00:00', '2010-01-01 00:00:00', 7,    'Six',   1), -- true
+	( 7, '2010-01-01 00:00:00', '2011-01-01 00:00:00', NULL, 'Seven', 1), -- true
+	( 8, '2008-01-01 00:00:00', '2011-01-01 00:00:00', 9,    'Eight', 0), -- false
+	( 9, '2011-01-01 00:00:00', NULL,                  NULL, 'Nine',  1), -- true
+	(10, '2008-01-01 00:00:00', NULL,                  NULL, 'Ten',   0); -- false
+
+ALTER SEQUENCE time_dependent_records_id2_seq start 1000;

data/test/ledger_item_test.rb

@@ -0,0 +1,352 @@
+# encoding: utf-8
+
+require File.join(File.dirname(__FILE__), 'test_helper.rb')
+
+####### Helper stuff
+
+module LedgerItemMethods
+  RENAMED_METHODS = {
+    :id => :id2, :type => :type2, :sender_id => :sender_id2, :recipient_id => :recipient_id2,
+    :sender_details => :sender_details2, :recipient_details => :recipient_details2,
+    :identifier => :identifier2, :issue_date => :issue_date2, :currency => :currency2,
+    :total_amount => :total_amount2, :tax_amount => :tax_amount2, :status => :status2,
+    :description => :description2, :period_start => :period_start2,
+    :period_end => :period_end2, :uuid => :uuid2, :due_date => :due_date2,
+    :line_items => :line_items2
+  }
+  
+  def user_id_to_details_hash(user_id)
+    case user_id
+      when 1, nil
+        {:is_self => true, :name => 'Unlimited Limited', :contact_name => "Mr B. Badger",
+         :address => "The Sett\n5 Badger Lane\n", :city => "Badgertown", :state => "",
+         :postal_code => "Badger999", :country => "England", :country_code => "GB",
+         :tax_number => "123456789"}
+      when 2
+        {:name => 'Lovely Customer Inc.', :contact_name => "Fred",
+         :address => "The pasture", :city => "Mootown", :state => "Cow Kingdom",
+         :postal_code => "MOOO", :country => "Scotland", :country_code => "GB",
+         :tax_number => "987654321"}
+      when 3
+        {:name => 'I drink milk', :address => "Guzzle guzzle", :city => "Cheesetown",
+         :postal_code => "12345", :country => "United States", :country_code => "US"}
+      when 4
+        {:name => 'The taxman', :address => "ALL YOUR EARNINGS\r\n\tARE BELONG TO US",
+         :city => 'Cumbernauld', :state => 'North Lanarkshire', :postal_code => "",
+         :country => 'United Kingdom'}
+    end
+  end
+  
+  def sender_details2
+    user_id_to_details_hash(sender_id2)
+  end
+  
+  def recipient_details2
+    user_id_to_details_hash(recipient_id2)
+  end
+  
+  def description2
+    "#{type2} #{id2}"
+  end
+end
+
+
+####### Classes for use in the tests
+
+class MyLedgerItem < ActiveRecord::Base
+  set_primary_key 'id2'
+  set_inheritance_column 'type2'
+  set_table_name 'ledger_item_records'
+  include LedgerItemMethods
+  acts_as_ledger_item RENAMED_METHODS
+  has_many :line_items2, :class_name => 'SuperLineItem', :foreign_key => 'ledger_item_id2'
+end
+
+class MyInvoice < MyLedgerItem
+  acts_as_ledger_item :subtype => :invoice
+end
+
+class InvoiceSubtype < MyInvoice
+end
+
+class MyCreditNote < MyLedgerItem
+  acts_as_credit_note
+end
+
+class MyPayment < MyLedgerItem
+  acts_as_payment
+end
+
+class CorporationTaxLiability < MyLedgerItem
+  def self.debit_when_sent_by_self
+    true
+  end
+end
+
+class UUIDNotPresentLedgerItem < ActiveRecord::Base
+  set_primary_key 'id2'
+  set_inheritance_column 'type2'
+  set_table_name 'ledger_item_records'
+  include LedgerItemMethods
+  
+  def get_class_info
+    ledger_item_class_info
+  end
+end
+
+class OverwrittenMethodsNotPresentLedgerItem < ActiveRecord::Base
+  set_primary_key 'id2'
+  set_inheritance_column 'type2'
+  set_table_name 'ledger_item_records'
+  acts_as_invoice LedgerItemMethods::RENAMED_METHODS
+end
+
+
+####### The actual tests
+
+class LedgerItemTest < Test::Unit::TestCase
+  
+  def test_total_amount_is_currency_value
+    record = MyLedgerItem.find(5)
+    assert_equal '$432.10', record.total_amount2_formatted
+  end
+  
+  def test_tax_amount_is_currency_value
+    record = MyInvoice.find(1)
+    assert_equal '£15.00', record.tax_amount2_formatted
+  end
+  
+  def test_net_amount
+    assert_equal BigDecimal('300'), MyInvoice.find(1).net_amount
+  end
+  
+  def test_net_amount_nil
+    assert_nil MyInvoice.new.net_amount
+  end
+  
+  def test_net_amount_formatted
+    assert_equal '£300.00', MyInvoice.find(1).net_amount_formatted
+  end
+  
+  def test_sent_by_nil_is_treated_as_self
+    assert MyInvoice.find(1).sent_by?(nil)
+    assert MyCreditNote.find(3).sent_by?(nil)
+  end
+  
+  def test_received_by_nil_is_treated_as_self
+    assert InvoiceSubtype.find(2).received_by?(nil)
+    assert CorporationTaxLiability.find(6).received_by?(nil)
+  end
+  
+  def test_invoice_from_self_is_debit
+    record = MyInvoice.find(1)
+    assert_kind_of MyInvoice, record
+    assert record.debit?(1)
+    assert record.debit?(nil)
+  end
+  
+  def test_invoice_to_self_is_credit
+    record = InvoiceSubtype.find(2)
+    assert_kind_of MyInvoice, record
+    assert !record.debit?(1)
+    assert !record.debit?(nil)
+  end
+  
+  def test_invoice_to_customer_is_seen_as_credit_by_customer
+    assert !MyInvoice.find(1).debit?(2)
+  end
+  
+  def test_invoice_from_supplier_is_seen_as_debit_by_supplier
+    assert InvoiceSubtype.find(2).debit?(2)
+  end
+  
+  def test_credit_note_from_self_is_debit
+    record = MyCreditNote.find(3)
+    assert_kind_of MyCreditNote, record
+    assert record.debit?(nil)
+    assert record.debit?(1)
+  end
+  
+  def test_credit_note_to_customer_is_seen_as_credit_by_customer
+    assert !MyCreditNote.find(3).debit?(2)
+  end
+  
+  def test_payment_receipt_from_self_is_credit
+    record = MyPayment.find(4)
+    assert_kind_of MyPayment, record
+    assert !record.debit?(1)
+    assert !record.debit?(nil)
+  end
+  
+  def test_payment_receipt_to_customer_is_seen_as_debit_by_customer
+    assert MyPayment.find(4).debit?(2)
+  end
+  
+  def test_cannot_determine_debit_status_for_uninvolved_party
+    assert_raise ArgumentError do
+      MyInvoice.find(1).debit?(3)
+    end
+  end
+  
+  def test_assign_uuid_to_new_record
+    record = MyInvoice.new
+    begin
+      UUID
+      uuid_gem_available = true
+    rescue NameError
+      uuid_gem_available = false
+    end
+    if uuid_gem_available
+      assert_match /^[0-9a-f]{8}\-[0-9a-f]{4}\-[0-9a-f]{4}\-[0-9a-f]{4}\-[0-9a-f]{12}$/, record.uuid2
+    else
+      assert record.uuid2.blank?
+      puts "Warning: uuid gem not installed -- not testing UUID generation"
+    end
+  end
+  
+  def test_uuid_gem_not_present
+    begin
+      real_uuid = Object.send(:remove_const, :UUID)
+      UUIDNotPresentLedgerItem.acts_as_ledger_item(LedgerItemMethods::RENAMED_METHODS)
+      assert_nil UUIDNotPresentLedgerItem.new.get_class_info.uuid_generator
+    ensure
+      Object.send(:const_set, :UUID, real_uuid)
+    end
+  end
+  
+  def test_must_overwrite_sender_details
+    assert_raise RuntimeError do
+      OverwrittenMethodsNotPresentLedgerItem.new.sender_details
+    end
+  end
+  
+  def test_must_overwrite_recipient_details
+    assert_raise RuntimeError do
+      OverwrittenMethodsNotPresentLedgerItem.new.recipient_details
+    end
+  end
+  
+  def test_must_provide_line_items_association
+    assert_raise RuntimeError do
+      OverwrittenMethodsNotPresentLedgerItem.new.line_items
+    end
+  end
+  
+  def test_calculate_total_amount_for_new_invoice
+    invoice = MyInvoice.new(:currency2 => 'USD')
+    invoice.line_items2 << SuperLineItem.new(:net_amount2 => 100, :tax_amount2 => 15)
+    invoice.line_items2 << SubLineItem.new(:net_amount2 => 10)
+    invoice.valid?
+    assert_equal BigDecimal('125'), invoice.total_amount2
+    assert_equal BigDecimal('15'), invoice.tax_amount2
+  end
+  
+  def test_calculate_total_amount_for_updated_invoice
+    invoice = MyInvoice.find(9)
+    invoice.line_items2 << SuperLineItem.new(:net_amount2 => 10, :tax_amount2 => 1.5)
+    invoice.save!
+    assert_equal([{'total_amount2' => '23.0000', 'tax_amount2' => '3.0000'}],
+      ActiveRecord::Base.connection.select_all("SELECT total_amount2, tax_amount2 FROM ledger_item_records WHERE id2=9"))
+  end
+  
+  def test_line_items_error
+    assert_raise RuntimeError do
+      MyInvoice.find(1).line_items # not line_items2
+    end
+  end
+  
+  def test_find_invoice_subclasses
+    assert_equal %w(InvoiceSubtype MyInvoice), MyLedgerItem.select_matching_subclasses(:is_invoice, true).map{|c| c.name}.sort
+  end
+
+  def test_find_credit_note_subclasses
+    assert_equal %w(MyCreditNote), MyLedgerItem.select_matching_subclasses(:is_credit_note, true).map{|c| c.name}
+  end
+
+  def test_find_payment_subclasses
+    assert_equal %w(MyPayment), MyLedgerItem.select_matching_subclasses(:is_payment, true).map{|c| c.name}
+  end
+  
+  def test_account_summary
+    summary = {:GBP => {:sales => BigDecimal('257.50'), :purchases => BigDecimal('141.97'),
+      :sale_receipts => BigDecimal('256.50'), :purchase_payments => BigDecimal('0.00'),
+      :balance => BigDecimal('-140.97')}}
+    assert_equal summary, MyLedgerItem.account_summary(1, 2)
+  end
+  
+  def test_account_summary_with_scope
+    summary = {:GBP => {:sales => BigDecimal('257.50'), :purchases => BigDecimal('0.00'),
+      :sale_receipts => BigDecimal('256.50'), :purchase_payments => BigDecimal('0.00'),
+      :balance => BigDecimal('1.00')}}
+    conditions = ['issue_date2 >= ? AND issue_date2 < ?', DateTime.parse('2008-01-01'), DateTime.parse('2009-01-01')]
+    assert_equal summary, MyLedgerItem.scoped(:conditions => conditions).account_summary(1, 2)
+  end
+  
+  def test_account_summaries
+    summaries = {
+      1 => {:GBP => {:balance => BigDecimal('140.97'), :sales => BigDecimal('141.97'),
+                     :purchases => BigDecimal('257.50'), :sale_receipts => BigDecimal('0.00'),
+                     :purchase_payments => BigDecimal('256.50')}
+           },
+      3 => {:USD => {:balance => BigDecimal('-432.10'), :sales => BigDecimal('0.00'),
+                     :purchases => BigDecimal('0.00'), :sale_receipts => BigDecimal('432.10'),
+                     :purchase_payments => BigDecimal('0.00')}
+           }
+    }
+    assert_equal summaries, MyLedgerItem.account_summaries(2)
+  end
+  
+  def test_account_summaries_with_scope
+    summaries = {
+      1 => {:GBP => {:balance => BigDecimal('-315.00'), :sales => BigDecimal('0.00'),
+                     :purchases => BigDecimal('315.00'), :sale_receipts => BigDecimal('0.00'),
+                     :purchase_payments => BigDecimal('0.00')}
+           },
+      3 => {:USD => {:balance => BigDecimal('-432.10'), :sales => BigDecimal('0.00'),
+                     :purchases => BigDecimal('0.00'), :sale_receipts => BigDecimal('432.10'),
+                     :purchase_payments => BigDecimal('0.00')}
+           }
+    }
+    conditions = {:conditions => ['issue_date2 < ?', DateTime.parse('2008-07-01')]}
+    assert_equal summaries, MyLedgerItem.scoped(conditions).account_summaries(2)
+  end
+  
+  def test_sent_by_scope
+    assert_equal [2,5], MyLedgerItem.sent_by(2).map{|i| i.id}.sort
+  end
+  
+  def test_received_by_scope
+    assert_equal [1,3,4,7,8,9,10,11], MyLedgerItem.received_by(2).map{|i| i.id}.sort
+  end
+  
+  def test_sent_or_received_by_scope
+    assert_equal [1,2,3,4,5,7,8,9,10,11], MyLedgerItem.sent_or_received_by(2).map{|i| i.id}.sort
+  end
+  
+  def test_in_effect_scope
+    assert_equal [1,2,3,4,5,6,7,8,9,10,11], MyLedgerItem.all.map{|i| i.id}.sort
+    assert_equal [1,2,3,4,5,6,11], MyLedgerItem.in_effect.map{|i| i.id}.sort
+  end
+  
+  def test_open_or_pending_scope
+    assert_equal [8,9], MyLedgerItem.open_or_pending.map{|i| i.id}.sort
+  end
+  
+  def test_due_at_scope
+    assert_equal [1,3,4,7,8,10,11], MyLedgerItem.due_at(DateTime.parse('2009-01-30')).map{|i| i.id}.sort
+    assert_equal [1,2,3,4,7,8,10,11], MyLedgerItem.due_at(DateTime.parse('2009-01-31')).map{|i| i.id}.sort
+  end
+  
+  def test_sorted_scope
+    assert_equal [5,1,4,3,8,2,6,7,9,10,11], MyLedgerItem.sorted(:issue_date).map{|i| i.id}
+  end
+  
+  def test_sorted_scope_with_non_existent_column
+    assert_equal [1,2,3,4,5,6,7,8,9,10,11], MyLedgerItem.sorted(:this_column_does_not_exist).map{|i| i.id}
+  end
+  
+  def test_exclude_empty_invoices_scope
+    assert_equal [1,2,3,4,5,6,7,8,9,10], MyLedgerItem.exclude_empty_invoices.map{|i| i.id}.sort
+  end
+  
+end