finmodeling 0.1 → 0.2

data/lib/finmodeling/trailing_avg_forecasting_policy.rb

@@ -0,0 +1,23 @@
+module FinModeling
+  class TrailingAvgForecastingPolicy
+    def initialize(args)
+      @vals = args
+    end
+
+    def revenue_on(date)
+      @vals[:revenue_estimator].estimate_on(date)
+    end
+
+    def sales_pm_on(date)
+      @vals[:sales_pm_estimator].estimate_on(date)
+    end
+  
+    def fi_over_nfa_on(date)
+      @vals[:fi_over_nfa_estimator].estimate_on(date)
+    end
+  
+    def sales_over_noa_on(date)
+      @vals[:sales_over_noa_estimator].estimate_on(date)
+    end
+  end
+end

data/lib/finmodeling/version.rb

@@ -1,3 +1,3 @@
 module FinModeling
-  VERSION = "0.1"
+  VERSION = "0.2"
 end

data/lib/finmodeling/weighted_avg_cost_of_capital.rb

@@ -0,0 +1,35 @@
+module FinModeling
+  class WeightedAvgCostOfCapital
+    attr_reader :rate
+
+    def initialize(equity_market_val, debt_market_val, cost_of_equity, after_tax_cost_of_debt)
+      @equity_market_val      = equity_market_val 
+      @debt_market_val        = debt_market_val
+      @cost_of_equity         = cost_of_equity
+      @after_tax_cost_of_debt = after_tax_cost_of_debt
+
+      e_weight = @equity_market_val / (@equity_market_val + @debt_market_val)
+      d_weight = @debt_market_val   / (@equity_market_val + @debt_market_val)
+
+      @rate = Rate.new((e_weight * @cost_of_equity.value) + (d_weight * @after_tax_cost_of_debt.value))
+    end
+
+    def summary
+      s = CalculationSummary.new
+      s.title = "Cost of Capital"
+      s.totals_row_enabled = false
+
+      s.header_row = CalculationHeader.new(:key => "", :vals => [Date.today.to_s])
+
+      s.rows = [ ]
+
+      s.rows << CalculationRow.new(:key => "Market Value of Equity ($MM)", :vals => [@equity_market_val.to_nearest_million])
+      s.rows << CalculationRow.new(:key => "Market Value of Debt ($MM)", :vals => [@debt_market_val.to_nearest_million])
+      s.rows << CalculationRow.new(:key => "Cost of Equity (%)", :vals => [sprintf("%.2f", 100.0*@cost_of_equity.value)])
+      s.rows << CalculationRow.new(:key => "Cost of Debt (%)", :vals => [sprintf("%.2f", 100.0*@after_tax_cost_of_debt.value)])
+      s.rows << CalculationRow.new(:key => "Weighted Avg Cost of Capital (%)", :vals => [sprintf("%.2f", 100.0*@rate.value)])
+
+      return s
+    end
+  end
+end

data/lib/finmodeling/yahoo_finance_helpers.rb

@@ -0,0 +1,20 @@
+module YahooFinance
+  def YahooFinance.get_market_cap(stock_symbol)
+    quote = YahooFinance::get_quotes(YahooFinance::ExtendedQuote, stock_symbol).values.first
+    m = /([0-9\.]*)([MB])/.match(quote.marketCap)
+    mkt_cap = m[1].to_f
+    case
+      when m[2]=="M"
+        mkt_cap *= 1000*1000
+      when m[2]=="B"
+        mkt_cap *= 1000*1000*1000
+    end
+    mkt_cap
+  end
+
+  def YahooFinance.get_num_shares(stock_symbol)
+    mkt_cap = YahooFinance.get_market_cap(stock_symbol)
+    share_price = YahooFinance::get_quotes(YahooFinance::StandardQuote, stock_symbol).values.last.lastTrade.to_f
+    mkt_cap / share_price
+  end
+end

data/lib/finmodeling.rb

@@ -1,14 +1,21 @@
 require 'fileutils'
 require 'digest' 
+
 require 'sec_query'
 require 'edgar'
+require 'yahoofinance'
+require 'finmodeling/yahoo_finance_helpers.rb'
+require 'nasdaq_query'
 
 require 'xbrlware-ruby19'
 require 'xbrlware-extras'
 
+require 'gsl'
 require 'naive_bayes'
 require 'statsample'
 
+require 'finmodeling/invalid_filing_error'
+
 require 'finmodeling/float_helpers'
 require 'finmodeling/string_helpers'
 require 'finmodeling/factory'
@@ -39,22 +46,41 @@ require 'finmodeling/assets_item'
 require 'finmodeling/liabs_and_equity_item_vectors'
 require 'finmodeling/liabs_and_equity_item'
 require 'finmodeling/income_statement_item_vectors'
+require 'finmodeling/comprehensive_income_statement_item_vectors'
 require 'finmodeling/income_statement_item'
+require 'finmodeling/comprehensive_income_statement_item'
 require 'finmodeling/cash_change_item_vectors'
 require 'finmodeling/cash_change_item'
+require 'finmodeling/equity_change_item_vectors'
+require 'finmodeling/equity_change_item'
 
 require 'finmodeling/company_filing_calculation'
+require 'finmodeling/can_choose_successive_periods'
 require 'finmodeling/balance_sheet_calculation'
 require 'finmodeling/assets_calculation'
 require 'finmodeling/liabs_and_equity_calculation'
 require 'finmodeling/income_statement_calculation'
+require 'finmodeling/comprehensive_income_statement_calculation'
 require 'finmodeling/net_income_calculation'
+require 'finmodeling/comprehensive_income_calculation'
 require 'finmodeling/cash_flow_statement_calculation'
 require 'finmodeling/cash_change_calculation'
+require 'finmodeling/shareholder_equity_statement_calculation'
+require 'finmodeling/equity_change_calculation'
+
+require 'finmodeling/net_income_summary_from_differences'
+require 'finmodeling/cash_change_summary_from_differences'
 
 require 'finmodeling/reformulated_income_statement'
 require 'finmodeling/reformulated_balance_sheet'
 require 'finmodeling/reformulated_cash_flow_statement'
+require 'finmodeling/reformulated_shareholder_equity_statement'
+
+require 'finmodeling/capm'
+require 'finmodeling/debt_cost_of_capital'
+require 'finmodeling/weighted_avg_cost_of_capital'
+require 'finmodeling/fama_french_cost_of_equity'
+require 'finmodeling/reoi_valuation'
 
 require 'finmodeling/config'
 
@@ -63,8 +89,13 @@ FinModeling::Classifiers.train
 
 require 'finmodeling/balance_sheet_analyses'
 require 'finmodeling/income_statement_analyses'
+require 'finmodeling/cash_flow_statement_analyses'
+
+require 'finmodeling/forecasted_reformulated_income_statement'
+require 'finmodeling/forecasted_reformulated_balance_sheet'
 
-require 'finmodeling/generic_forecasting_policy'
-require 'finmodeling/constant_forecasting_policy'
+require 'finmodeling/time_series_estimator'
+require 'finmodeling/trailing_avg_forecasting_policy'
+require 'finmodeling/linear_trend_forecasting_policy'
 require 'finmodeling/forecasts'
 

data/spec/annual_report_filing_spec.rb

@@ -6,63 +6,99 @@ describe FinModeling::AnnualReportFiling  do
   before(:all) do
     company = FinModeling::Company.new(FinModeling::Mocks::Entity.new)
     filing_url = company.annual_reports.last.link
-    FinModeling::Config::disable_caching 
     @filing = FinModeling::AnnualReportFiling.download(filing_url)
   end
 
-  after(:all) do
-    FinModeling::Config::enable_caching 
-  end
-
   subject { @filing }
-  its(:balance_sheet)       { should be_a FinModeling::BalanceSheetCalculation }
-  its(:income_statement)    { should be_a FinModeling::IncomeStatementCalculation }
-  its(:cash_flow_statement) { should be_a FinModeling::CashFlowStatementCalculation }
+  its(:balance_sheet)                   { should be_a FinModeling::BalanceSheetCalculation }
+  its(:income_statement)                { should be_a FinModeling::IncomeStatementCalculation }
+  its(:cash_flow_statement)             { should be_a FinModeling::CashFlowStatementCalculation }
 
-  its(:is_valid?) { should == (@filing.income_statement.is_valid? && @filing.balance_sheet.is_valid? && @filing.cash_flow_statement.is_valid?) }
-
-  describe "write_constructor" do
+  context "when the report doesn't have a comprehensive income statement" do
+    its(:has_a_comprehensive_income_statement?) { should be_false }
+    its(:comprehensive_income_statement) { should be_nil }
+  end
+  context "when the report doesn't have a statement of shareholders' equity" do
+    its(:has_a_shareholder_equity_statement?) { should be_false }
+    its(:shareholder_equity_statement) { should be_nil }
+    its(:is_valid?) { should == [@filing.income_statement,
+                                 @filing.balance_sheet,
+                                 @filing.cash_flow_statement].all?{|x| x.is_valid?} }
+  end
+  context "when the report has a statement of shareholders' equity" do
     before(:all) do
-      file_name = "/tmp/finmodeling-annual-rpt.rb"
-      schema_version_item_name = "@schema_version"
-      item_name = "@annual_rpt"
-      file = File.open(file_name, "w")
-      @filing.write_constructor(file, item_name)
-      file.close
+      filing_url = "http://www.sec.gov/Archives/edgar/data/315189/000110465910063219/0001104659-10-063219-index.htm"
+      FinModeling::Config::disable_caching 
+      @filing = FinModeling::AnnualReportFiling.download filing_url 
+      FinModeling::Config::enable_caching 
+    end
+    subject { @filing }
 
-      eval(File.read(file_name))
+    its(:has_a_shareholder_equity_statement?)   { should be_true }
+    its(:shareholder_equity_statement)          { should be_a FinModeling::ShareholderEquityStatementCalculation }
+    its(:is_valid?) { should == [@filing.income_statement, 
+                                 @filing.balance_sheet, 
+                                 @filing.cash_flow_statement,
+                                 @filing.shareholder_equity_statement].all?{|x| x.is_valid?} }
 
-      @schema_version = eval(schema_version_item_name)
-      @loaded_filing = eval(item_name)
+    context "after write_constructor()ing it to a file and then eval()ing the results" do
+      before(:all) do
+        file_name = "/tmp/finmodeling-annual-rpt.rb"
+        schema_version_item_name = "@schema_version"
+        item_name = "@annual_rpt"
+        file = File.open(file_name, "w")
+        @filing.write_constructor(file, item_name)
+        file.close
+  
+        eval(File.read(file_name))
+  
+        @schema_version = eval(schema_version_item_name)
+        @loaded_filing = eval(item_name)
+      end
+  
+      specify { @schema_version.should be == 1.3 }
+  
+      subject { @loaded_filing }
+      its(:balance_sheet)                  { should have_the_same_periods_as(@filing.balance_sheet) }
+      its(:balance_sheet)                  { should have_the_same_reformulated_last_total(:net_operating_assets).as(@filing.balance_sheet) }
+      its(:income_statement)               { should have_the_same_reformulated_last_total(:net_financing_income).as(@filing.income_statement) }
+      its(:cash_flow_statement)            { should have_the_same_last_total(:cash_change_calculation).as(@filing.cash_flow_statement) }
+      its(:shareholder_equity_statement)   { should be_a FinModeling::ShareholderEquityStatementCalculation }
+      its(:shareholder_equity_statement)   { should have_the_same_last_total(:equity_change_calculation).as(@filing.shareholder_equity_statement) }
+      its(:disclosures)                    { should have_the_same_last_total(:first).as(@filing.disclosures) }
     end
+  end
 
-    it "writes itself to a file, and saves a schema version of 1.1" do
-      @schema_version.should be == 1.1
+  context "when the report has a comprehensive income statement" do
+    before(:all) do
+      filing_url = "http://www.sec.gov/Archives/edgar/data/818479/000081847912000023/0000818479-12-000023-index.htm"
+      FinModeling::Config::disable_caching 
+      @filing = FinModeling::AnnualReportFiling.download filing_url 
+      FinModeling::Config::enable_caching 
     end
+    subject { @filing }
 
-    it "writes itself to a file, and when reloaded, has the same periods" do
-      expected_periods = @filing.balance_sheet.periods.map{|x| x.to_pretty_s}.join(',')
-      @loaded_filing.balance_sheet.periods.map{|x| x.to_pretty_s}.join(',').should == expected_periods
-    end
-    it "writes itself to a file, and when reloaded, has the same net operating assets" do
-      period = @filing.balance_sheet.periods.last
-      expected_noa = @filing.balance_sheet.reformulated(period).net_operating_assets.total
-      @loaded_filing.balance_sheet.reformulated(period).net_operating_assets.total.should be_within(1.0).of(expected_noa)
-    end
-    it "writes itself to a file, and when reloaded, has the same net financing income" do
-      period = @filing.income_statement.periods.last
-      expected_nfi = @filing.income_statement.reformulated(period).net_financing_income.total
-      @loaded_filing.income_statement.reformulated(period).net_financing_income.total.should be_within(1.0).of(expected_nfi)
-    end
-    it "writes itself to a file, and when reloaded, has the same net change in cash" do
-      period = @filing.cash_flow_statement.periods.last
-	  expected_cash_change = @filing.cash_flow_statement.cash_change_calculation.summary(:period=>period).total
-	  @loaded_filing.cash_flow_statement.cash_change_calculation.summary(:period=>period).total.should be_within(1.0).of(expected_cash_change)
-    end
-    it "writes itself to a file, and when reloaded, has the same disclosures" do
-      period = @filing.disclosures.first.periods.last
-      expected_total = @filing.disclosures.first.summary(:period=>period).total
-      @loaded_filing.disclosures.first.summary(:period=>period).total.should == expected_total
+    its(:has_a_comprehensive_income_statement?) { should be_true }
+    its(:comprehensive_income_statement)        { should be_a FinModeling::ComprehensiveIncomeStatementCalculation }
+
+    context "after write_constructor()ing it to a file and then eval()ing the results" do
+      before(:all) do
+        file_name = "/tmp/finmodeling-annual-rpt.rb"
+        schema_version_item_name = "@schema_version"
+        item_name = "@annual_rpt"
+        file = File.open(file_name, "w")
+        @filing.write_constructor(file, item_name)
+        file.close
+  
+        eval(File.read(file_name))
+        @loaded_filing = eval(item_name)
+      end
+  
+      subject { @loaded_filing }
+      its(:comprehensive_income_statement) { should be_a FinModeling::ComprehensiveIncomeStatementCalculation }
+      its(:comprehensive_income_statement) { should have_the_same_last_total(:comprehensive_income_calculation).as(@filing.comprehensive_income_statement) }
     end
+
   end
+
 end

data/spec/assets_calculation_spec.rb

@@ -12,10 +12,13 @@ describe FinModeling::AssetsCalculation  do
     @a = @bal_sheet.assets_calculation
   end
 
-  describe "summary" do
-    it "only requires a period (knows how debts/credits work and whether to flip the total)" do
-      @a.summary(:period=>@period).should be_an_instance_of FinModeling::CalculationSummary
-    end
+  describe ".summary" do
+    subject { @a.summary(:period=>@period) }
+    it { should be_a FinModeling::CalculationSummary }
+  end
+
+  describe ".has_cash_item" do
+    pending "Find a test case..."
   end
 end
 

data/spec/assets_item_spec.rb

@@ -9,33 +9,28 @@ describe FinModeling::AssetsItem do
   end
 
   describe "new" do
-    it "takes a string and returns a new AssetsItem" do
-      ai = FinModeling::AssetsItem.new("Property Plant And Equipment Net")
-      ai.should be_an_instance_of FinModeling::AssetsItem
-    end
+    subject { FinModeling::AssetsItem.new("Property Plant And Equipment Net") }
+    it { should be_a FinModeling::AssetsItem }
   end
 
   describe "train" do
+    subject { FinModeling::AssetsItem.new("Property Plant And Equipment Net") }
     it "trains the classifier that this AssetsItem is of the given type" do
-      FinModeling::AssetsItem.new("Property Plant and Equipment Net").train(:oa)
+      subject.train(:oa)
     end
   end
 
   describe "classification_estimates" do
-    it "returns a hash with the confidence in each AssetsItem type" do
-      ai = FinModeling::AssetsItem.new("Property Plant And Equipment Net")
-
-      FinModeling::AssetsItem::TYPES.each do |klass|
-        ai.classification_estimates.keys.include?(klass).should be_true
-      end
-    end
+    subject { FinModeling::AssetsItem.new("Property Plant And Equipment Net").classification_estimates }
+    its(:keys) { should == FinModeling::AssetsItem::TYPES }
   end
 
   describe "classify" do
+    let(:ai) { FinModeling::AssetsItem.new("Property Plant And Equipment Net") }
+    subject { ai.classify }
     it "returns the AssetsItem type with the highest probability estimate" do
-      ai = FinModeling::AssetsItem.new("Property Plant And Equipment Net")
       estimates = ai.classification_estimates
-      estimates[ai.classify].should be_within(0.1).of(estimates.values.max)
+      estimates[subject].should be_within(0.1).of(estimates.values.max)
     end
   end
 

data/spec/balance_sheet_analyses_spec.rb

@@ -8,30 +8,30 @@ describe FinModeling::BalanceSheetAnalyses do
     @summary.title = "Title 123"
     @summary.rows = [ ]
     @summary.rows << FinModeling::CalculationRow.new(:key => "NOA Growth", :type => :oa, :vals => [  4])
-    @summary.rows << FinModeling::CalculationRow.new(:key => "Row", :type => :fa, :vals => [109])
-    @summary.rows << FinModeling::CalculationRow.new(:key => "Row", :type => :oa, :vals => [ 93])
-    @summary.rows << FinModeling::CalculationRow.new(:key => "Row", :type => :fa, :vals => [  1])
+    @summary.rows << FinModeling::CalculationRow.new(:key => "Row",        :type => :fa, :vals => [109])
+    @summary.rows << FinModeling::CalculationRow.new(:key => "Row",        :type => :oa, :vals => [ 93])
+    @summary.rows << FinModeling::CalculationRow.new(:key => "Row",        :type => :fa, :vals => [  1])
   end
 
   describe ".new" do
     subject { FinModeling::BalanceSheetAnalyses.new(@summary) }
 
     it { should be_a_kind_of FinModeling::CalculationSummary }
-    its(:title) { should == @summary.title }
-    its(:rows) { should == @summary.rows }
-    its(:header_row) { should == @summary.header_row }
-    its(:rows) { should == @summary.rows }
-    its(:num_value_columns) { should == @summary.num_value_columns }
-    its(:key_width) { should == @summary.key_width }
-    its(:val_width) { should == @summary.val_width }
-    its(:max_decimals) { should == @summary.max_decimals }
+    its(:title)              { should == @summary.title }
+    its(:rows)               { should == @summary.rows }
+    its(:header_row)         { should == @summary.header_row }
+    its(:rows)               { should == @summary.rows }
+    its(:num_value_columns)  { should == @summary.num_value_columns }
+    its(:key_width)          { should == @summary.key_width }
+    its(:val_width)          { should == @summary.val_width }
+    its(:max_decimals)       { should == @summary.max_decimals }
     its(:totals_row_enabled) { should be_false }
   end
 
-  describe ".print_extras" do
+  describe ".print_regressions" do
     subject { FinModeling::BalanceSheetAnalyses.new(@summary) }
 
-    it { should respond_to(:print_extras) }
+    it { should respond_to(:print_regressions) }
   end
 
   describe ".noa_growth_row" do

data/spec/balance_sheet_calculation_spec.rb

@@ -10,60 +10,59 @@ describe FinModeling::BalanceSheetCalculation  do
     @period = @balance_sheet.periods.last
   end
 
-  describe "assets_calculation" do
-    it "returns an AssetsCalculation" do
-      @balance_sheet.assets_calculation.should be_an_instance_of FinModeling::AssetsCalculation
-    end
-    it "returns the root node of the assets calculation" do
-      @balance_sheet.assets_calculation.label.downcase.should match /asset/
-    end
-    it "sums to the same value as do the liabilities and equity" do
-      left_sum = @balance_sheet.assets_calculation.leaf_items_sum(:period=>@period)
-      right_sum = @balance_sheet.liabs_and_equity_calculation.leaf_items_sum(:period=>@period)
-      left_sum.should be_within(1.0).of(right_sum)
-    end
+  describe ".assets_calculation" do
+    subject { @balance_sheet.assets_calculation }
+    it { should be_a FinModeling::AssetsCalculation }
+    its(:label) { should match /asset/i }
+
+    let(:right_side_sum) { @balance_sheet.liabs_and_equity_calculation.leaf_items_sum(:period=>@period) }
+    specify { subject.leaf_items_sum(:period=>@period).should be_within(1.0).of(right_side_sum) }
   end
 
-  describe "liabs_and_equity_calculation" do
-    it "returns a LiabsAndEquityCalculation" do
-      @balance_sheet.liabs_and_equity_calculation.should be_an_instance_of FinModeling::LiabsAndEquityCalculation
-    end
-    it "returns the root node of the liability & shareholders' equity calculation" do
-      @balance_sheet.liabs_and_equity_calculation.label.downcase.should match /liab.*equity/
-    end
+  describe ".liabs_and_equity_calculation" do
+    subject { @balance_sheet.liabs_and_equity_calculation}
+    it { should be_a FinModeling::LiabsAndEquityCalculation }
+    its(:label) { should match /liab.*equity/i }
   end
 
-  describe "is_valid?" do
-    it "returns false if none of the asset leaf nodes contains the term 'cash'" do
-      #ea_2011_annual_rpt = "http://www.sec.gov/Archives/edgar/data/712515/000119312511149262/0001193125-11-149262-index.htm"
-      #filing = FinModeling::AnnualReportFiling.download ea_2011_annual_rpt
-      #filing.balance_sheet.is_valid?.should be_false
-      pending
+  describe ".is_valid?" do
+    context "if none of the asset leaf nodes contains the term 'cash'" do
+      it "returns false" do
+        #ea_2011_annual_rpt = "http://www.sec.gov/Archives/edgar/data/712515/000119312511149262/0001193125-11-149262-index.htm"
+        #filing = FinModeling::AnnualReportFiling.download ea_2011_annual_rpt
+        #filing.balance_sheet.is_valid?.should be_false
+        pending "Need to find another example of this...."
+      end
     end
-    it "returns false if none of the liability/equity net income leaf nodes contains the term 'equity'" do
-      #ea_2011_annual_rpt = "http://www.sec.gov/Archives/edgar/data/712515/000119312511149262/0001193125-11-149262-index.htm"
-      #filing = FinModeling::AnnualReportFiling.download ea_2011_annual_rpt
-      #filing.balance_sheet.is_valid?.should be_false
-      pending
+    context "if none of the liability/equity net income leaf nodes contains the term 'equity'" do
+      it "returns false" do
+        #ea_2011_annual_rpt = "http://www.sec.gov/Archives/edgar/data/712515/000119312511149262/0001193125-11-149262-index.htm"
+        #filing = FinModeling::AnnualReportFiling.download ea_2011_annual_rpt
+        #filing.balance_sheet.is_valid?.should be_false
+        pending "Need to find another example of this...."
+      end
     end
-    it "returns false if the assets total does not match the liabilities and equity total" do
-      #ea_2011_annual_rpt = "http://www.sec.gov/Archives/edgar/data/712515/000119312511149262/0001193125-11-149262-index.htm"
-      #filing = FinModeling::AnnualReportFiling.download ea_2011_annual_rpt
-      #filing.balance_sheet.is_valid?.should be_false
-      pending
+    context "if the assets total does not match the liabilities and equity total" do
+      it "returns false" do
+        #ea_2011_annual_rpt = "http://www.sec.gov/Archives/edgar/data/712515/000119312511149262/0001193125-11-149262-index.htm"
+        #filing = FinModeling::AnnualReportFiling.download ea_2011_annual_rpt
+        #filing.balance_sheet.is_valid?.should be_false
+        pending "Need to find another example of this...."
+      end
     end
-    it "returns true otherwise" do
-      @balance_sheet.is_valid?.should be_true
+    context "otherwise" do
+      it "returns true" do
+        @balance_sheet.is_valid?.should be_true
+      end
     end
   end
 
-  describe "reformulated" do
-    it "takes a period and returns a ReformulatedBalanceSheet" do
-      @balance_sheet.reformulated(@period).should be_an_instance_of FinModeling::ReformulatedBalanceSheet
-    end
+  describe ".reformulated" do
+    subject { @balance_sheet.reformulated(@period) }
+    it { should be_a FinModeling::ReformulatedBalanceSheet }
   end
 
-  describe "write_constructor" do
+  describe ".write_constructor" do
     before(:all) do
       file_name = "/tmp/finmodeling-bal-sheet.rb"
       item_name = "@bal_sheet"
@@ -72,18 +71,13 @@ describe FinModeling::BalanceSheetCalculation  do
       file.close
 
       eval(File.read(file_name))
-
       @loaded_bs = eval(item_name)
     end
 
-    it "writes itself to a file, and when reloaded, has the same periods" do
-      expected_periods = @balance_sheet.periods.map{|x| x.to_pretty_s}.join(',')
-      @loaded_bs.periods.map{|x| x.to_pretty_s}.join(',').should == expected_periods
-    end
-    it "writes itself to a file, and when reloaded, has the same net operating assets" do
-      period = @balance_sheet.periods.last
-      expected_noa = @balance_sheet.reformulated(period).net_operating_assets.total
-      @loaded_bs.reformulated(period).net_operating_assets.total.should be_within(1.0).of(expected_noa)
+    context "after write_constructor()ing it to a file and then eval()ing the results" do
+      subject { @loaded_bs }
+      it { should have_the_same_periods_as @balance_sheet }
+      it { should have_the_same_reformulated_last_total(:net_operating_assets).as(@balance_sheet) }
     end
   end