require_relative '../test_helper'
require 'hquery-patient-api'

class SpecificsTest < Test::Unit::TestCase
  
  def setup
    @context = get_js_context(HQMF2JS::Generator::JS.library_functions)
    test_initialize_js = 
    "
      hqmf.SpecificsManager.initialize({},hqmfjs, {'id':'OccurrenceAEncounter', 'type':'Encounter', 'function':'SourceOccurrenceAEncounter'},{'id':'OccurrenceBEncounter', 'type':'Encounter', 'function':'SourceOccurrenceBEncounter'})
      hqmfjs.SourceOccurrenceAEncounter = function(patient) {
        return [{'id':1},{'id':2},{'id':3},{'id':4},{'id':5}]
      }
      hqmfjs.SourceOccurrenceBEncounter = function(patient) {
        return [{'id':1},{'id':2},{'id':3},{'id':4},{'id':5}]
      }
    "
    @context.eval(test_initialize_js)
  end


  def test_specifics_initialized_proper
    
    @context.eval('hqmf.SpecificsManager.keyLookup[0]').must_equal 'OccurrenceAEncounter'
    @context.eval('hqmf.SpecificsManager.keyLookup[1]').must_equal 'OccurrenceBEncounter'
    @context.eval("hqmf.SpecificsManager.indexLookup['OccurrenceAEncounter']").must_equal 0
    @context.eval("hqmf.SpecificsManager.indexLookup['OccurrenceBEncounter']").must_equal 1
    @context.eval('hqmf.SpecificsManager.functionLookup[0]').must_equal 'SourceOccurrenceAEncounter'
    @context.eval('hqmf.SpecificsManager.functionLookup[1]').must_equal 'SourceOccurrenceBEncounter'
    @context.eval("hqmf.SpecificsManager.typeLookup['Encounter'].length").must_equal 2
    @context.eval("hqmf.SpecificsManager.typeLookup['Encounter'][0]").must_equal 0
    @context.eval("hqmf.SpecificsManager.typeLookup['Encounter'][1]").must_equal 1
  end
  
  def test_specifics_row_union
    
    union_rows = "
      var row1 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1}});
      var specific1 = new hqmf.SpecificOccurrence([row1]);
      var row2 = new Row('OccurrenceAEncounter',{'OccurrenceBEncounter':{'id':2}});
      var specific2 = new hqmf.SpecificOccurrence([row2]);
      result = specific1.union(specific2);
      result.rows.length;
    "
    
    @context.eval(union_rows).must_equal 2
    @context.eval("result.rows[0].values[0].id").must_equal 1
    @context.eval("result.rows[0].values[1]").must_equal '*'
    @context.eval("result.rows[1].values[0]").must_equal '*'
    @context.eval("result.rows[1].values[1].id").must_equal 2
    
  end

  def test_row_creation
    
    rows = "
      var row1 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1}});
      var row2 = new Row('OccurrenceBEncounter',{'OccurrenceBEncounter':{'id':2}});
      var row3 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1},'OccurrenceBEncounter':{'id':2}});
      var row4 = new Row(undefined, {});
    "
    
    @context.eval(rows)
    @context.eval("row1.values[0].id").must_equal 1
    @context.eval("row1.values[1]").must_equal '*'
    @context.eval("row2.values[0]").must_equal '*'
    @context.eval("row2.values[1].id").must_equal 2
    @context.eval("row3.values[0].id").must_equal 1
    @context.eval("row3.values[1].id").must_equal 2
    @context.eval("row4.values[0]").must_equal '*'
    @context.eval("row4.values[1]").must_equal '*'
  end
    
  
  def test_row_match
    rows = "
      var row1 = new Row(undefined, {});
    "
    @context.eval(rows)
    @context.eval("Row.match('*', {'id':1}).id").must_equal 1
    @context.eval("Row.match({'id':2}, '*').id").must_equal 2
    @context.eval("Row.match({'id':1}, {'id':1}).id").must_equal 1
    @context.eval("Row.match('*', '*')").must_equal '*'
    @context.eval("typeof(Row.match({'id':3}, {'id':2})) === 'undefined'").must_equal true
    
  end
  
  
  def test_row_equal
    
    rows = "
      var row1 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1}});
      var row2 = new Row('OccurrenceBEncounter',{'OccurrenceBEncounter':{'id':2}});
      var row3 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1},'OccurrenceBEncounter':{'id':2}});
      var row4 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':2},'OccurrenceBEncounter':{'id':3}});
      var row5 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':2},'OccurrenceBEncounter':{'id':3}});
      var row6 = new Row(undefined,{});
    "
    
    @context.eval(rows)
    @context.eval("row1.equals(row1)").must_equal true
    @context.eval("row1.equals(row2)").must_equal false
    @context.eval("row2.equals(row2)").must_equal true
    @context.eval("row3.equals(row4)").must_equal false
    @context.eval("row4.equals(row5)").must_equal true
    @context.eval("row6.equals(row6)").must_equal true
    
  end
  
  
  def test_row_intersect
    
    rows = "
      var row1 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1}});
      var row2 = new Row('OccurrenceBEncounter',{'OccurrenceBEncounter':{'id':2}});
      var row3 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1},'OccurrenceBEncounter':{'id':2}});
      var row4 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':2},'OccurrenceBEncounter':{'id':2}});
      var row5 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':3},'OccurrenceBEncounter':{'id':3}});
      var row6 = new Row(undefined,{});
    "
    
    @context.eval(rows)
    @context.eval("row1.intersect(row2).values[0].id").must_equal 1
    @context.eval("row1.intersect(row2).values[1].id").must_equal 2
    @context.eval("row2.intersect(row1).values[0].id").must_equal 1
    @context.eval("row2.intersect(row1).values[1].id").must_equal 2
    @context.eval("row1.intersect(row3).values[0].id").must_equal 1
    @context.eval("row1.intersect(row3).values[1].id").must_equal 2
    @context.eval("row2.intersect(row3).values[0].id").must_equal 1
    @context.eval("row2.intersect(row3).values[1].id").must_equal 2
    @context.eval("typeof(row1.intersect(row4)) === 'undefined'").must_equal true
    @context.eval("row2.intersect(row4).values[0].id").must_equal 2
    @context.eval("row2.intersect(row4).values[1].id").must_equal 2
    @context.eval("typeof(row1.intersect(row5)) === 'undefined'").must_equal true
    @context.eval("typeof(row2.intersect(row5)) === 'undefined'").must_equal true
    @context.eval("typeof(row3.intersect(row4)) === 'undefined'").must_equal true
    @context.eval("row1.intersect(row6).values[0].id").must_equal 1
    @context.eval("row1.intersect(row6).values[1]").must_equal '*'
    @context.eval("row2.intersect(row6).values[0]").must_equal '*'
    @context.eval("row2.intersect(row6).values[1].id").must_equal 2
    @context.eval("row6.intersect(row6).values[0]").must_equal '*'
    @context.eval("row6.intersect(row6).values[1]").must_equal '*'
    
  end
  
  def test_specifics_row_intersection
    
    intersect_rows = "
      var row1 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1}});
      var row2 = new Row('OccurrenceBEncounter',{'OccurrenceBEncounter':{'id':2}});
      var row3 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1},'OccurrenceBEncounter':{'id':2}});
      var row4 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':2},'OccurrenceBEncounter':{'id':2}});
      var row5 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':3},'OccurrenceBEncounter':{'id':3}});
      var row6 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1},'OccurrenceBEncounter':{'id':3}});
      
      var specific1 = new hqmf.SpecificOccurrence([row1]);
      var specific2 = new hqmf.SpecificOccurrence([row2]);
      var specific3 = new hqmf.SpecificOccurrence([row3,row4]);
      var specific4 = new hqmf.SpecificOccurrence([row3,row6]);
      var specific5 = new hqmf.SpecificOccurrence([row5,row6]);
      
      var allSpecific1 = new hqmf.SpecificOccurrence();
      allSpecific1.addIdentityRow();
      allSpecific1.addIdentityRow();
      allSpecific1.addIdentityRow();
      var allSpecific2 = new hqmf.SpecificOccurrence();
      allSpecific2.addIdentityRow();
      allSpecific2.addIdentityRow();
      allSpecific2.addIdentityRow();
      
    "
    
    @context.eval(intersect_rows)
    @context.eval("specific1.intersect(specific2).rows.length").must_equal 1
    @context.eval("specific1.intersect(specific2).rows[0].values[0].id").must_equal 1
    @context.eval("specific1.intersect(specific2).rows[0].values[1].id").must_equal 2
  
    @context.eval("specific1.intersect(specific3).rows.length").must_equal 1
    @context.eval("specific1.intersect(specific3).rows[0].values[0].id").must_equal 1
    @context.eval("specific1.intersect(specific3).rows[0].values[1].id").must_equal 2
  
    @context.eval("specific1.intersect(specific4).rows.length").must_equal 2
    @context.eval("specific1.intersect(specific4).rows[0].values[0].id").must_equal 1
    @context.eval("specific1.intersect(specific4).rows[0].values[1].id").must_equal 2
    @context.eval("specific1.intersect(specific4).rows[1].values[0].id").must_equal 1
    @context.eval("specific1.intersect(specific4).rows[1].values[1].id").must_equal 3
  
    @context.eval("specific2.intersect(specific3).rows.length").must_equal 2
    @context.eval("specific2.intersect(specific3).rows[0].values[0].id").must_equal 1
    @context.eval("specific2.intersect(specific3).rows[0].values[1].id").must_equal 2
    @context.eval("specific2.intersect(specific3).rows[1].values[0].id").must_equal 2
    @context.eval("specific2.intersect(specific3).rows[1].values[1].id").must_equal 2
    
    @context.eval("specific2.intersect(specific5).rows.length").must_equal 0
    
    @context.eval("specific4.intersect(specific5).rows.length").must_equal 1
    @context.eval("specific4.intersect(specific5).rows[0].values[0].id").must_equal 1
    @context.eval("specific4.intersect(specific5).rows[0].values[1].id").must_equal 3


    @context.eval("allSpecific1.intersect(allSpecific2).rows.length").must_equal 1
    
  end
  
  def test_specifics_timediff
    init_rows = "
      var row1 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1},'OccurrenceBEncounter':{'id':20}});
      var row2 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':2},'OccurrenceBEncounter':{'id':20}});
      var row3 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':3},'OccurrenceBEncounter':{'id':30}});
      
      var specific = new hqmf.SpecificOccurrence([row1,row2,row3]);
      
      var ts1 = new TS('20100101100000');
      var ts2 = new TS('20100101101000');
      
      var events1 = [{'id': 1, 'asTS': function() {return ts1;}}];
      events1.specific_occurrence = 'OccurrenceAEncounter';
      var events2 = [{'id': 20, 'asTS': function() {return ts2;}},{'id': 30, 'asTS': function() {return ts2;}}];
      events2.specific_occurrence = 'OccurrenceBEncounter';
      var timediffs = TIMEDIFF(XPRODUCT(events1, events2), null, specific);
    "
    
    @context.eval(init_rows)
    @context.eval("timediffs.length").must_equal 1
    @context.eval("timediffs[0]").must_equal 10
  end
  
  def test_specifics_event_counting
    
    init_rows = "
      var row1 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1},'OccurrenceBEncounter':{'id':20}});
      var row2 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':2},'OccurrenceBEncounter':{'id':20}});
      var row3 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':3},'OccurrenceBEncounter':{'id':30}});
      
      var specific = new hqmf.SpecificOccurrence([row1,row2,row3]);
      specific.addIdentityRow();

      var pop = new Boolean(true);
      pop.specificContext = specific;  
    "
    
    @context.eval(init_rows)
    @context.eval("specific.uniqueEvents([0])").must_equal 3
    @context.eval("specific.uniqueEvents([1])").must_equal 2
    @context.eval('hqmf.SpecificsManager.indexLookup["OccurrenceAEncounter"]').must_equal 0
    @context.eval('hqmf.SpecificsManager.indexLookup["OccurrenceBEncounter"]').must_equal 1
    @context.eval('hqmf.SpecificsManager.getColumnIndex("OccurrenceAEncounter")').must_equal 0
    @context.eval('hqmf.SpecificsManager.getColumnIndex("OccurrenceBEncounter")').must_equal 1
    assert_raise V8::JSError do
      @context.eval('hqmf.SpecificsManager.getColumnIndex("OccurrenceCEncounter")')
    end
    @context.eval('hqmf.SpecificsManager.validate(pop)').must_equal true
    @context.eval('hqmf.SpecificsManager.countUnique(["OccurrenceAEncounter"], pop)').must_equal 3
    @context.eval('hqmf.SpecificsManager.countUnique(["OccurrenceBEncounter"], pop)').must_equal 2
    @context.eval('hqmf.SpecificsManager.countUnique(["OccurrenceAEncounter", "OccurrenceBEncounter"], pop)').must_equal 5
    @context.eval('hqmf.SpecificsManager.countUnique(null, pop)').must_equal 1
  end

  def test_specifics_event_exclusion
    
    init_rows = "
      var row1 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1},'OccurrenceBEncounter':{'id':20}});
      var row2 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':2},'OccurrenceBEncounter':{'id':20}});
      var row3 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':3},'OccurrenceBEncounter':{'id':30}});
      
      var specific1 = new hqmf.SpecificOccurrence([row1,row2,row3]);
      var specific2 = new hqmf.SpecificOccurrence([row1]);
      var specific3 = new hqmf.SpecificOccurrence([]);
      specific3.addIdentityRow();

      var pop1 = new Boolean(true);
      pop1.specificContext = specific1;
      var pop2 = new Boolean(true);
      pop2.specificContext = specific2;
      var pop3 = new Boolean(true);
      pop3.specificContext = specific3;
      var pop4 = new Boolean(false);
      pop4.specificContext = specific3;
    "
    
    @context.eval(init_rows)
    @context.eval('var resultSpecific = specific1.removeMatchingRows(0, specific2)')
    @context.eval('resultSpecific.rows.length').must_equal 2
    @context.eval('resultSpecific.rows[0].values[0].id').must_equal 2
    @context.eval('resultSpecific.rows[1].values[0].id').must_equal 3
    @context.eval('resultSpecific = specific1.removeMatchingRows(1, specific2)')
    @context.eval('resultSpecific.rows.length').must_equal 1
    @context.eval('resultSpecific.rows[0].values[0].id').must_equal 3
    @context.eval('var result = hqmf.SpecificsManager.exclude(["OccurrenceAEncounter"], pop1, pop2)')
    @context.eval('result.isTrue()').must_equal true
    @context.eval('result.specificContext.rows.length').must_equal 2
    @context.eval('result.specificContext.rows[0].values[0].id').must_equal 2
    @context.eval('result.specificContext.rows[1].values[0].id').must_equal 3
    @context.eval('result = hqmf.SpecificsManager.exclude(["OccurrenceBEncounter"], pop1, pop2)')
    @context.eval('result.isTrue()').must_equal true
    @context.eval('result.specificContext.rows.length').must_equal 1
    @context.eval('result.specificContext.rows[0].values[0].id').must_equal 3
    @context.eval('result = hqmf.SpecificsManager.exclude(["OccurrenceAEncounter","OccurrenceBEncounter"], pop1, pop2)')
    @context.eval('result.isTrue()').must_equal true
    @context.eval('result.specificContext.rows.length').must_equal 1
    @context.eval('result.specificContext.rows[0].values[0].id').must_equal 3
    @context.eval('result = hqmf.SpecificsManager.exclude(null, pop3, pop3)')
    @context.eval('result.isTrue()').must_equal false
    @context.eval('result = hqmf.SpecificsManager.exclude(null, pop3, pop4)')
    @context.eval('result.isTrue()').must_equal true
    @context.eval('result = hqmf.SpecificsManager.exclude(null, pop4, pop3)')
    @context.eval('result.isTrue()').must_equal false
    @context.eval('result = hqmf.SpecificsManager.exclude(null, pop4, pop4)')
    @context.eval('result.isTrue()').must_equal false
  end

  def test_negation
    rows = "
      var row1 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1}});
      var row2 = new Row('OccurrenceBEncounter',{'OccurrenceBEncounter':{'id':2}});
      var row3 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1},'OccurrenceBEncounter':{'id':2}});
      var row4 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':2},'OccurrenceBEncounter':{'id':3}});
      var row5 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':3},'OccurrenceBEncounter':{'id':4}});
      var row6 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1},'OccurrenceBEncounter':{'id':3}});
  
      var specific1 = new hqmf.SpecificOccurrence([row1]);
      var specific2 = new hqmf.SpecificOccurrence([row2]);
      var specific3 = new hqmf.SpecificOccurrence([row3,row4]);
      var specific4 = new hqmf.SpecificOccurrence([row3,row6]);
      var specific5 = new hqmf.SpecificOccurrence([row5,row6]);
      var specific6 = new hqmf.SpecificOccurrence([row1,row2])
    "
    
    # test negation single specific
    # test negation multiple specifics
    
    @context.eval(rows)
    
    # has row checks
    @context.eval('specific1.hasRow(row1)').must_equal true
    @context.eval('specific1.hasRow(row2)').must_equal true
    @context.eval('specific1.hasRow(row3)').must_equal true
    @context.eval('specific1.hasRow(row4)').must_equal false
    @context.eval('specific1.hasRow(row5)').must_equal false
    
    # cartesian checks
    @context.eval('hqmf.SpecificsManager._generateCartisian([[1,2,3]]).length').must_equal 3
    @context.eval('hqmf.SpecificsManager._generateCartisian([[1,2,3],[5,6]]).length').must_equal 6
    @context.eval('hqmf.SpecificsManager._generateCartisian([[1,2,3],[5,6]])[0][0]').must_equal 1
    @context.eval('hqmf.SpecificsManager._generateCartisian([[1,2,3],[5,6]])[0][1]').must_equal 5
    @context.eval('hqmf.SpecificsManager._generateCartisian([[1,2,3],[5,6]])[1][0]').must_equal 1
    @context.eval('hqmf.SpecificsManager._generateCartisian([[1,2,3],[5,6]])[1][1]').must_equal 6
    @context.eval('hqmf.SpecificsManager._generateCartisian([[1,2,3],[5,6]])[2][0]').must_equal 2
    @context.eval('hqmf.SpecificsManager._generateCartisian([[1,2,3],[5,6]])[2][1]').must_equal 5
    
    # specificsWithValue on Row
    @context.eval('row1.specificsWithValues()[0]').must_equal 0
    @context.eval('row2.specificsWithValues()[0]').must_equal 1
    @context.eval('row3.specificsWithValues()[0]').must_equal 0
    @context.eval('row3.specificsWithValues()[1]').must_equal 1
  
    # specificsWithValue on Specific
    @context.eval('specific1.specificsWithValues()[0]').must_equal 0
    @context.eval('specific2.specificsWithValues()[0]').must_equal 1
    @context.eval('specific3.specificsWithValues()[0]').must_equal 0
    @context.eval('specific3.specificsWithValues()[1]').must_equal 1
    @context.eval('specific6.specificsWithValues()[0]').must_equal 0
    @context.eval('specific6.specificsWithValues()[1]').must_equal 1
    
    @context.eval('specific1.negate().rows.length').must_equal 4
    @context.eval('specific1.negate().rows[0].values[0].id').must_equal 2
    @context.eval('specific1.negate().rows[1].values[0].id').must_equal 3
    @context.eval('specific1.negate().rows[2].values[0].id').must_equal 4
    @context.eval('specific1.negate().rows[3].values[0].id').must_equal 5
    
    # 5*5 values = 25 in the cartesian - 2 in the non-negated = 23 negated - 5 rows with OccurrA and OccurrB equal = 18!
    @context.eval('specific5.negate().rows.length').must_equal 18
    
  end
  
  def test_add_rows_has_rows_has_specifics
    rows = "
      var row1 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1}});
      var row2 = new Row('OccurrenceBEncounter',{'OccurrenceBEncounter':{'id':2}});
      var row3 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1},'OccurrenceBEncounter':{'id':2}});
      var row3 = new Row(undefined, {});
  
      var specific1 = new hqmf.SpecificOccurrence();
      var specific2 = new hqmf.SpecificOccurrence([row2]);
    "
    
    # test negation single specific
    # test negation multiple specifics
    
    @context.eval(rows)
    
    @context.eval('specific1.hasRows()').must_equal false
    @context.eval('specific2.hasRows()').must_equal true
    @context.eval('specific1.hasSpecifics()').must_equal false
    @context.eval('specific2.hasSpecifics()').must_equal true
    @context.eval('row3.hasSpecifics()').must_equal false
    @context.eval('row2.hasSpecifics()').must_equal true
    
    @context.eval('specific1.rows.length').must_equal 0
    @context.eval('specific1.addRows([row2])')
    @context.eval('specific1.rows.length').must_equal 1
    @context.eval('specific2.rows.length').must_equal 1
    @context.eval('specific2.addRows([row3])')
    @context.eval('specific2.rows.length').must_equal 2
    
  end
  
  def test_maintain_specfics
    @context.eval('var x = new Boolean(true)')
    @context.eval("x.specificContext = 'specificContext'")
    @context.eval("x.specific_occurrence = 'specific_occurrence'")
    @context.eval('var a = new Boolean(true)')
    @context.eval("a = hqmf.SpecificsManager.maintainSpecifics(a,x)")
    @context.eval("typeof(a.specificContext) != 'undefined'").must_equal true
    @context.eval("typeof(a.specific_occurrence) != 'undefined'").must_equal true
    
  end
  
  def test_compact_reused_events
    rows = "
      var row1 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1}});
      var row2 = new Row('OccurrenceBEncounter',{'OccurrenceBEncounter':{'id':2}});
      var row3 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1},'OccurrenceBEncounter':{'id':2}});
      var row4 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':2},'OccurrenceBEncounter':{'id':2}});
      var row5 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':3},'OccurrenceBEncounter':{'id':3}});
      var row6 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1},'OccurrenceBEncounter':{'id':3}});
      
      var specific1 = new hqmf.SpecificOccurrence([row1,row2,row3,row4,row5,row6]);
    "
    
    @context.eval(rows)
    
    @context.eval('specific1.rows.length').must_equal 6
    @context.eval('specific1.compactReusedEvents().rows.length').must_equal 4
    
  end

  def test_compact_reused_events_different_specifics
    
    @context = get_js_context(HQMF2JS::Generator::JS.library_functions)
    
    test_initialize_js = 
    "
      hqmf.SpecificsManager.initialize({},hqmfjs, {'id':'OccurrenceAEncounter1', 'type':'Encounter1', 'function':'SourceOccurrenceAEncounter1'},{'id':'OccurrenceAEncounter2', 'type':'Encounter2', 'function':'SourceOccurrenceAEncounter2'})
      hqmfjs.SourceOccurrenceAEncounter1 = function(patient) {
        return [{'id':1},{'id':2},{'id':3},{'id':4},{'id':5}]
      }
      hqmfjs.SourceOccurrenceAEncounter2 = function(patient) {
        return [{'id':1},{'id':2},{'id':3},{'id':4},{'id':5}]
      }
    "
    @context.eval(test_initialize_js)
    
    rows = "
      var row1 = new Row('OccurrenceAEncounter1',{'OccurrenceAEncounter1':{'id':1}});
      var row2 = new Row('OccurrenceAEncounter2',{'OccurrenceAEncounter2':{'id':2}});
      var row3 = new Row('OccurrenceAEncounter1',{'OccurrenceAEncounter1':{'id':1},'OccurrenceAEncounter2':{'id':2}});
      var row4 = new Row('OccurrenceAEncounter1',{'OccurrenceAEncounter1':{'id':2},'OccurrenceAEncounter2':{'id':2}});
      var row5 = new Row('OccurrenceAEncounter1',{'OccurrenceAEncounter1':{'id':3},'OccurrenceAEncounter2':{'id':3}});
      var row6 = new Row('OccurrenceAEncounter1',{'OccurrenceAEncounter1':{'id':1},'OccurrenceAEncounter2':{'id':3}});
      
      var specific1 = new hqmf.SpecificOccurrence([row1,row2,row3,row4,row5,row6]);
    "
    
    @context.eval(rows)
    
    @context.eval('specific1.rows.length').must_equal 6
    @context.eval('specific1.compactReusedEvents().rows.length').must_equal 6
    
  end
  
  def test_row_build_rows_for_matching
    
    events = "
      var entryKey = 'OccurrenceAEncounter';
      var boundsKey = 'OccurrenceBEncounter';
      var entry = {'id':3};
      var bounds = [{'id':1},{'id':2},{'id':3},{'id':4},{'id':5},{'id':6},{'id':7},{'id':8}];
    "
  
    @context.eval(events)
    @context.eval('var rows = Row.buildRowsForMatching(entryKey,entry,boundsKey,bounds)')
    @context.eval('rows.length').must_equal 8
    @context.eval('rows[0].values.length').must_equal 2
    @context.eval('rows[0].values[0].id').must_equal 3
    @context.eval('rows[0].values[1].id').must_equal 1
    @context.eval('rows[7].values[0].id').must_equal 3
    @context.eval('rows[7].values[1].id').must_equal 8
    @context.eval('var specific = new hqmf.SpecificOccurrence(rows)')
    @context.eval('specific.rows.length').must_equal 8
    @context.eval('specific.compactReusedEvents().rows.length').must_equal 7
    @context.eval('var rows = Row.buildRowsForMatching(undefined,entry,boundsKey,bounds)')
    @context.eval('rows.length').must_equal 8
    @context.eval("rows[0].tempValue.id").must_equal 3
    @context.eval("rows[5].tempValue.id").must_equal 3
    @context.eval("rows[0].tempValue.id").must_equal 3
    @context.eval("rows[0].values[1].id").must_equal 1
    @context.eval("rows[5].values[1].id").must_equal 6
  end
  
  def test_row_build_for_data_criteria
  
    events = "
      var entryKey = 'OccurrenceAEncounter';
      var entries = [{'id':1},{'id':2},{'id':3},{'id':4},{'id':5},{'id':6},{'id':7},{'id':8}];
    "
  
    @context.eval(events)
    @context.eval('var rows = Row.buildForDataCriteria(entryKey,entries)')
    @context.eval('rows.length').must_equal 8
    @context.eval('rows[0].values.length').must_equal 2
    @context.eval('rows[0].values[0].id').must_equal 1
    @context.eval('rows[0].values[1]').must_equal '*'
    @context.eval('rows[7].values[0].id').must_equal 8
    @context.eval('rows[7].values[1]').must_equal '*'
    
  end
  
  def test_finalize_events
    rows = "
      var row1 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1}});
      var row2 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':2}});
      var row3 = new Row('OccurrenceBEncounter',{'OccurrenceBEncounter':{'id':2}});
      var row4 = new Row('OccurrenceBEncounter',{'OccurrenceBEncounter':{'id':4}});
      var row5 = new Row('OccurrenceBEncounter',{'OccurrenceBEncounter':{'id':5}});
      var row6 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1},'OccurrenceBEncounter':{'id':4}});
      var row7 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1},'OccurrenceBEncounter':{'id':5}});
      var row8 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':2},'OccurrenceBEncounter':{'id':4}});
      
      var specific1 = new hqmf.SpecificOccurrence([row1,row2]);
      var specific2 = new hqmf.SpecificOccurrence([row3,row4,row5]);
      var specific3 = new hqmf.SpecificOccurrence([row6,row7,row8]);
    "
    @context.eval(rows)
    @context.eval('var result = specific1.finalizeEvents(specific2,specific3)')
    @context.eval('result.rows.length').must_equal 3
    @context.eval('result.rows[0].values[0].id').must_equal 1
    @context.eval('result.rows[0].values[1].id').must_equal 4
    @context.eval('result.rows[1].values[0].id').must_equal 1
    @context.eval('result.rows[1].values[1].id').must_equal 5
    @context.eval('result.rows[2].values[0].id').must_equal 2
    @context.eval('result.rows[2].values[1].id').must_equal 4
  
    @context.eval('var result = specific2.finalizeEvents(specific1,specific3)')
    @context.eval('result.rows.length').must_equal 3
  
    @context.eval('var result = specific1.finalizeEvents(null,specific3)')
    @context.eval('result.rows.length').must_equal 3
    
    # result if 5 and not 6 becasue the 2/2 row gets dropped
    @context.eval('var result = specific1.finalizeEvents(specific2, null)')
    @context.eval('result.rows.length').must_equal 5
    
  end
  
  def test_validate
    rows = "
      var row1 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1}});
      var row2 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':2}});
      var row3 = new Row('OccurrenceBEncounter',{'OccurrenceBEncounter':{'id':2}});
      var row4 = new Row('OccurrenceBEncounter',{'OccurrenceBEncounter':{'id':4}});
      var row5 = new Row('OccurrenceBEncounter',{'OccurrenceBEncounter':{'id':5}});
      var row6 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1},'OccurrenceBEncounter':{'id':4}});
      var row7 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1},'OccurrenceBEncounter':{'id':5}});
      var row8 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':2},'OccurrenceBEncounter':{'id':4}});
  
      var row9 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1},'OccurrenceBEncounter':{'id':6}});
      
      var specific1 = new hqmf.SpecificOccurrence([row1,row2]);
      var specific2 = new hqmf.SpecificOccurrence([row3,row4,row5]);
      var specific3 = new hqmf.SpecificOccurrence([row6,row7,row8]);
      var specific4 = new hqmf.SpecificOccurrence([row9]);
      var specific5 = new hqmf.SpecificOccurrence();
      
      var pop1 = new Boolean(true)
      pop1.specificContext = specific1
  
      var pop2 = new Boolean(true)
      pop2.specificContext = specific2
  
      var pop3 = new Boolean(true)
      pop3.specificContext = specific3
  
      var pop4 = new Boolean(true)
      pop4.specificContext = specific4
  
      var pop5 = new Boolean(true)
      pop5.specificContext = specific5
      
      var pop3f = new Boolean(false)
      pop3f.specificContext = specific3
            
    "
    @context.eval(rows)
    
    @context.eval('hqmf.SpecificsManager.validate(hqmf.SpecificsManager.intersectSpecifics(pop1,pop2,pop3))').must_equal true
    @context.eval('hqmf.SpecificsManager.validate(hqmf.SpecificsManager.intersectSpecifics(pop1,pop2,pop4))').must_equal false
    @context.eval('hqmf.SpecificsManager.validate(hqmf.SpecificsManager.intersectSpecifics(pop1,pop2,pop5))').must_equal false
    @context.eval('hqmf.SpecificsManager.validate(hqmf.SpecificsManager.intersectSpecifics(pop3f,pop1,pop2))').must_equal false
    
  end
  
  def test_intersect_all
  
    rows = "
      var row1 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1}});
      var row2 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':2}});
      var row3 = new Row('OccurrenceBEncounter',{'OccurrenceBEncounter':{'id':2}});
      var row4 = new Row('OccurrenceBEncounter',{'OccurrenceBEncounter':{'id':4}});
      var row5 = new Row('OccurrenceBEncounter',{'OccurrenceBEncounter':{'id':5}});
      var row6 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1},'OccurrenceBEncounter':{'id':4}});
      var row7 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1},'OccurrenceBEncounter':{'id':5}});
      var row8 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':2},'OccurrenceBEncounter':{'id':4}});
      
      var specific1 = new hqmf.SpecificOccurrence([row1,row2]);
      var specific2 = new hqmf.SpecificOccurrence([row3,row4,row5]);
      var specific3 = new hqmf.SpecificOccurrence([row6,row7,row8]);
      
      var pop1 = new Boolean(true)
      pop1.specificContext = specific1
  
      var pop2 = new Boolean(true)
      pop2.specificContext = specific2
  
      var pop3 = new Boolean(true)
      pop3.specificContext = specific3
      
            
    "
    @context.eval(rows)
    
    @context.eval('var intersection = hqmf.SpecificsManager.intersectAll(new Boolean(true), [pop1,pop2,pop3])')
    assert @context.eval('intersection.isTrue()')
    @context.eval('var result = intersection.specificContext')
    
    @context.eval('result.rows.length').must_equal 3
  
    @context.eval('result.rows[0].values[0].id').must_equal 1
    @context.eval('result.rows[0].values[1].id').must_equal 4
    @context.eval('result.rows[1].values[0].id').must_equal 1
    @context.eval('result.rows[1].values[1].id').must_equal 5
    @context.eval('result.rows[2].values[0].id').must_equal 2
    @context.eval('result.rows[2].values[1].id').must_equal 4
  
    @context.eval('var intersection = hqmf.SpecificsManager.intersectAll(new Boolean(true), [pop1,pop2,pop3], true)')
    @context.eval('var result = intersection.specificContext')
    
    # 5*5 = 25 - 5 equal rows - 3 non-negated = 17
    @context.eval('result.rows.length').must_equal 17
    
  end
  
  def test_union_all
  
    rows = "
      var row1 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1}});
      var row2 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':2}});
      var row3 = new Row('OccurrenceBEncounter',{'OccurrenceBEncounter':{'id':2}});
      var row4 = new Row('OccurrenceBEncounter',{'OccurrenceBEncounter':{'id':4}});
      var row5 = new Row('OccurrenceBEncounter',{'OccurrenceBEncounter':{'id':5}});
      var row6 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1},'OccurrenceBEncounter':{'id':4}});
      var row7 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1},'OccurrenceBEncounter':{'id':5}});
      var row8 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':2},'OccurrenceBEncounter':{'id':4}});
      
      var specific1 = new hqmf.SpecificOccurrence([row1,row2]);
      var specific2 = new hqmf.SpecificOccurrence([row3,row4,row5]);
      var specific3 = new hqmf.SpecificOccurrence([row6,row7,row8]);
      
      var pop1 = new Boolean(true)
      pop1.specificContext = specific1
  
      var pop2 = new Boolean(true)
      pop2.specificContext = specific2
  
      var pop3 = new Boolean(true)
      pop3.specificContext = specific3
      
            
    "
    @context.eval(rows)
    
    @context.eval('var union = hqmf.SpecificsManager.unionAll(new Boolean(true), [pop1,pop2,pop3])')
    assert @context.eval('union.isTrue()')
    @context.eval('var result = union.specificContext')
    
    @context.eval('result.rows.length').must_equal 8
  
    @context.eval('var union = hqmf.SpecificsManager.unionAll(new Boolean(true), [pop1,pop2,pop3], true)')
    assert @context.eval('union.isTrue()')
    @context.eval('var result = union.specificContext')
    
    # originally 5*5, but we remove 1,2 from the left and 2,4,5 from the right
    # that leaves [3,4,5] x [1,3] which is 6 rows... minus the 3,3 row we get 5 rows
    
    @context.eval('result.rows.length').must_equal 5
  
  end

  def test_row_grouping_key
  
    rows = "
      hqmf.SpecificsManager.initialize({},hqmfjs, {'id':'OccurrenceAEncounter', 'type':'Encounter', 'function':'SourceOccurrenceAEncounter'},{'id':'OccurrenceBEncounter', 'type':'Encounter', 'function':'SourceOccurrenceBEncounter'},{'id':'OccurrenceAProcedure', 'type':'Procedure', 'function':'SourceOccurrenceAProcedure'})
      
      var row1 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1}});
      var row2 = new Row('OccurrenceBEncounter',{'OccurrenceBEncounter':{'id':2}});
      var row3 = new Row('OccurrenceAEncounter',{'OccurrenceAEncounter':{'id':1},'OccurrenceBEncounter':{'id':4}});
      var row4 = new Row(undefined, {});
      
    "
    @context.eval(rows)
    
    @context.eval("row1.groupKey()").must_equal "1_*_*_"
    @context.eval("row1.groupKey('OccurrenceAEncounter')").must_equal "X_*_*_"
    @context.eval("row1.groupKey('OccurrenceAProcedure')").must_equal "1_*_X_"
    @context.eval("row2.groupKey()").must_equal "*_2_*_"
    @context.eval("row2.groupKey('OccurrenceAProcedure')").must_equal "*_2_X_"
    @context.eval("row3.groupKey()").must_equal "1_4_*_"
    @context.eval("row3.groupKey('OccurrenceAEncounter')").must_equal "X_4_*_"
    @context.eval("row3.groupKey('OccurrenceBEncounter')").must_equal "1_X_*_"
    @context.eval("row3.groupKey('OccurrenceAProcedure')").must_equal "1_4_X_"
    @context.eval("row4.groupKey()").must_equal "*_*_*_"
    @context.eval("row4.groupKey('OccurrenceBEncounter')").must_equal "*_X_*_"
    
  end
  
  def test_group_specifics
  
    rows = "
      var non_specific_rows = [new Row(undefined, {undefined: {id:10}, 'OccurrenceAEncounter':{'id':1}}),
                               new Row(undefined, {undefined: {id:11}, 'OccurrenceAEncounter':{'id':1}}),
                               new Row(undefined, {undefined: {id:12}, 'OccurrenceAEncounter':{'id':2}}),
                               new Row(undefined, {undefined: {id:13}, 'OccurrenceAEncounter':{'id':2}}),
                               new Row(undefined, {undefined: {id:14}, 'OccurrenceAEncounter':{'id':2}}),
                               new Row(undefined, {undefined: {id:15}, 'OccurrenceAEncounter':{'id':3}})]
      
      var specific_rows = [new Row('OccurrenceAEncounter',{'OccurrenceAEncounter': {id:10}, 'OccurrenceBEncounter':{'id':1}}),
                           new Row('OccurrenceAEncounter',{'OccurrenceAEncounter': {id:11}, 'OccurrenceBEncounter':{'id':1}}),
                           new Row('OccurrenceAEncounter',{'OccurrenceAEncounter': {id:12}, 'OccurrenceBEncounter':{'id':2}}),
                           new Row('OccurrenceAEncounter',{'OccurrenceAEncounter': {id:13}, 'OccurrenceBEncounter':{'id':2}}),
                           new Row('OccurrenceAEncounter',{'OccurrenceAEncounter': {id:14}, 'OccurrenceBEncounter':{'id':2}}),
                           new Row('OccurrenceAEncounter',{'OccurrenceAEncounter': {id:15}, 'OccurrenceBEncounter':{'id':3}})]
      
      var specific1 = new hqmf.SpecificOccurrence(non_specific_rows);
      var specific2 = new hqmf.SpecificOccurrence(specific_rows);
      
    "
    @context.eval(rows)
    
    @context.eval("specific1.group()['1_*_'].length").must_equal 2
    @context.eval("specific1.group()['2_*_'].length").must_equal 3
    @context.eval("specific1.group()['3_*_'].length").must_equal 1

    @context.eval("specific2.group('OccurrenceAEncounter')['X_1_'].length").must_equal 2
    @context.eval("specific2.group('OccurrenceAEncounter')['X_2_'].length").must_equal 3
    @context.eval("specific2.group('OccurrenceAEncounter')['X_3_'].length").must_equal 1
    
  end
  
  def test_extract_events
    rows = "
      var non_specific_rows = [new Row(undefined, {undefined: new hQuery.CodedEntry({_id:10}), 'OccurrenceAEncounter':new hQuery.CodedEntry({'_id':1})}),
                               new Row(undefined, {undefined: new hQuery.CodedEntry({_id:11}), 'OccurrenceAEncounter':new hQuery.CodedEntry({'_id':1})}),
                               new Row(undefined, {undefined: new hQuery.CodedEntry({_id:12}), 'OccurrenceAEncounter':new hQuery.CodedEntry({'_id':2})}),
                               new Row(undefined, {undefined: new hQuery.CodedEntry({_id:13}), 'OccurrenceAEncounter':new hQuery.CodedEntry({'_id':2})}),
                               new Row(undefined, {undefined: new hQuery.CodedEntry({_id:14}), 'OccurrenceAEncounter':new hQuery.CodedEntry({'_id':2})}),
                               new Row(undefined, {undefined: new hQuery.CodedEntry({_id:15}), 'OccurrenceAEncounter':new hQuery.CodedEntry({'_id':3})})]
      
      var specific_rows = [new Row('OccurrenceAEncounter',{'OccurrenceAEncounter': new hQuery.CodedEntry({_id:10}), 'OccurrenceBEncounter':new hQuery.CodedEntry({'_id':1})}),
                           new Row('OccurrenceAEncounter',{'OccurrenceAEncounter': new hQuery.CodedEntry({_id:11}), 'OccurrenceBEncounter':new hQuery.CodedEntry({'_id':1})}),
                           new Row('OccurrenceAEncounter',{'OccurrenceAEncounter': new hQuery.CodedEntry({_id:12}), 'OccurrenceBEncounter':new hQuery.CodedEntry({'_id':2})}),
                           new Row('OccurrenceAEncounter',{'OccurrenceAEncounter': new hQuery.CodedEntry({_id:13}), 'OccurrenceBEncounter':new hQuery.CodedEntry({'_id':2})}),
                           new Row('OccurrenceAEncounter',{'OccurrenceAEncounter': new hQuery.CodedEntry({_id:14}), 'OccurrenceBEncounter':new hQuery.CodedEntry({'_id':2})}),
                           new Row('OccurrenceAEncounter',{'OccurrenceAEncounter': new hQuery.CodedEntry({_id:15}), 'OccurrenceBEncounter':new hQuery.CodedEntry({'_id':3})})]
    "
    @context.eval(rows)
    @context.eval('hqmf.SpecificsManager.extractEvents(undefined, non_specific_rows).length').must_equal 6
    @context.eval('hqmf.SpecificsManager.extractEvents(undefined, non_specific_rows)[0].id').must_equal 10
    @context.eval('hqmf.SpecificsManager.extractEvents(undefined, non_specific_rows)[1].id').must_equal 11
    @context.eval('hqmf.SpecificsManager.extractEvents(undefined, non_specific_rows)[2].id').must_equal 12
    @context.eval('hqmf.SpecificsManager.extractEvents(undefined, non_specific_rows)[3].id').must_equal 13
    @context.eval('hqmf.SpecificsManager.extractEvents(undefined, non_specific_rows)[4].id').must_equal 14
    @context.eval('hqmf.SpecificsManager.extractEvents(undefined, non_specific_rows)[5].id').must_equal 15
    
    @context.eval("hqmf.SpecificsManager.extractEvents('OccurrenceAEncounter', specific_rows).length").must_equal 6
    @context.eval("hqmf.SpecificsManager.extractEvents('OccurrenceAEncounter', specific_rows)[0].id").must_equal 10
    @context.eval("hqmf.SpecificsManager.extractEvents('OccurrenceAEncounter', specific_rows)[1].id").must_equal 11
    @context.eval("hqmf.SpecificsManager.extractEvents('OccurrenceAEncounter', specific_rows)[2].id").must_equal 12
    @context.eval("hqmf.SpecificsManager.extractEvents('OccurrenceAEncounter', specific_rows)[3].id").must_equal 13
    @context.eval("hqmf.SpecificsManager.extractEvents('OccurrenceAEncounter', specific_rows)[4].id").must_equal 14
    @context.eval("hqmf.SpecificsManager.extractEvents('OccurrenceAEncounter', specific_rows)[5].id").must_equal 15
    
  end

  def test_specifics_subset_operators
  
    rows = "
    
      getTime = function(year,month,day) {
        return (new Date(year,month,day)).getTime()/1000
      }
      
      var non_specific_rows = [new Row(undefined, {undefined: new hQuery.CodedEntry({_id:10,time:getTime(2010,0,5)}), 'OccurrenceAEncounter':new hQuery.CodedEntry({'_id':1})}),
                               new Row(undefined, {undefined: new hQuery.CodedEntry({_id:11,time:getTime(2010,0,1)}), 'OccurrenceAEncounter':new hQuery.CodedEntry({'_id':1})}),
                               new Row(undefined, {undefined: new hQuery.CodedEntry({_id:12,time:getTime(2010,0,1)}), 'OccurrenceAEncounter':new hQuery.CodedEntry({'_id':2})}),
                               new Row(undefined, {undefined: new hQuery.CodedEntry({_id:13,time:getTime(2010,0,5)}), 'OccurrenceAEncounter':new hQuery.CodedEntry({'_id':2})}),
                               new Row(undefined, {undefined: new hQuery.CodedEntry({_id:14,time:getTime(2010,0,2)}), 'OccurrenceAEncounter':new hQuery.CodedEntry({'_id':2})}),
                               new Row(undefined, {undefined: new hQuery.CodedEntry({_id:15,time:getTime(2010,0,2)}), 'OccurrenceAEncounter':new hQuery.CodedEntry({'_id':3})})]
    
      var specific_rows = [new Row('OccurrenceAEncounter',{'OccurrenceAEncounter': new hQuery.CodedEntry({_id:10,time:getTime(2010,0,5)}), 'OccurrenceBEncounter':new hQuery.CodedEntry({'_id':1})}),
                           new Row('OccurrenceAEncounter',{'OccurrenceAEncounter': new hQuery.CodedEntry({_id:11,time:getTime(2010,0,1)}), 'OccurrenceBEncounter':new hQuery.CodedEntry({'_id':1})}),
                           new Row('OccurrenceAEncounter',{'OccurrenceAEncounter': new hQuery.CodedEntry({_id:12,time:getTime(2010,0,1)}), 'OccurrenceBEncounter':new hQuery.CodedEntry({'_id':2})}),
                           new Row('OccurrenceAEncounter',{'OccurrenceAEncounter': new hQuery.CodedEntry({_id:13,time:getTime(2010,0,5)}), 'OccurrenceBEncounter':new hQuery.CodedEntry({'_id':2})}),
                           new Row('OccurrenceAEncounter',{'OccurrenceAEncounter': new hQuery.CodedEntry({_id:14,time:getTime(2010,0,2)}), 'OccurrenceBEncounter':new hQuery.CodedEntry({'_id':2})}),
                           new Row('OccurrenceAEncounter',{'OccurrenceAEncounter': new hQuery.CodedEntry({_id:15,time:getTime(2010,0,2)}), 'OccurrenceBEncounter':new hQuery.CodedEntry({'_id':3})})]

      var specific1 = new hqmf.SpecificOccurrence(non_specific_rows);
      var specific2 = new hqmf.SpecificOccurrence(specific_rows);
      var specific3 = new hqmf.SpecificOccurrence([new Row(undefined)]);
      var specific4 = new hqmf.SpecificOccurrence()
      
    "
    @context.eval(rows)
    
    ###
    ##### COUNT
    ###
    
    moreThanOne = 'new IVL_PQ(new PQ(2))'
    lessThanThree = 'new IVL_PQ(null, new PQ(2))'
    exactly1 = 'new IVL_PQ(new PQ(1), new PQ(1))'
    
    @context.eval("specific1.COUNT(#{moreThanOne}).rows.length").must_equal 5
    @context.eval("specific1.COUNT(#{moreThanOne}).rows[0].tempValue.id").must_equal 10
    @context.eval("specific1.COUNT(#{moreThanOne}).rows[1].tempValue.id").must_equal 11
    @context.eval("specific1.COUNT(#{moreThanOne}).rows[2].tempValue.id").must_equal 12
    @context.eval("specific1.COUNT(#{moreThanOne}).rows[3].tempValue.id").must_equal 13
    @context.eval("specific1.COUNT(#{moreThanOne}).rows[4].tempValue.id").must_equal 14
    @context.eval("specific1.COUNT(#{lessThanThree}).rows.length").must_equal 3
    @context.eval("specific1.COUNT(#{lessThanThree}).rows[0].tempValue.id").must_equal 10
    @context.eval("specific1.COUNT(#{lessThanThree}).rows[1].tempValue.id").must_equal 11
    @context.eval("specific1.COUNT(#{lessThanThree}).rows[2].tempValue.id").must_equal 15
    @context.eval("specific1.COUNT(#{exactly1}).rows.length").must_equal 1
    @context.eval("specific1.COUNT(#{exactly1}).rows[0].tempValue.id").must_equal 15
    
    @context.eval("specific2.COUNT(#{moreThanOne}).rows.length").must_equal 5
    @context.eval("specific2.COUNT(#{moreThanOne}).rows[0].values[0].id").must_equal 10
    @context.eval("specific2.COUNT(#{moreThanOne}).rows[1].values[0].id").must_equal 11
    @context.eval("specific2.COUNT(#{moreThanOne}).rows[2].values[0].id").must_equal 12
    @context.eval("specific2.COUNT(#{moreThanOne}).rows[3].values[0].id").must_equal 13
    @context.eval("specific2.COUNT(#{moreThanOne}).rows[4].values[0].id").must_equal 14
    @context.eval("specific2.COUNT(#{lessThanThree}).rows.length").must_equal 3
    @context.eval("specific2.COUNT(#{lessThanThree}).rows[0].values[0].id").must_equal 10
    @context.eval("specific2.COUNT(#{lessThanThree}).rows[1].values[0].id").must_equal 11
    @context.eval("specific2.COUNT(#{lessThanThree}).rows[2].values[0].id").must_equal 15
    @context.eval("specific2.COUNT(#{exactly1}).rows.length").must_equal 1
    @context.eval("specific2.COUNT(#{exactly1}).rows[0].values[0].id").must_equal 15

    @context.eval("specific3.COUNT(#{exactly1}).rows.length").must_equal 1
    @context.eval("specific4.COUNT(#{moreThanOne}).rows.length").must_equal 0


    ###
    ##### FIRST
    ###
    @context.eval("specific1.FIRST().rows.length").must_equal 3
    @context.eval("specific1.FIRST().rows[0].tempValue.id").must_equal 11
    @context.eval("specific1.FIRST().rows[1].tempValue.id").must_equal 12
    @context.eval("specific1.FIRST().rows[2].tempValue.id").must_equal 15
    
    @context.eval("specific2.FIRST().rows.length").must_equal 3
    @context.eval("specific2.FIRST().rows[0].values[0].id").must_equal 11
    @context.eval("specific2.FIRST().rows[1].values[0].id").must_equal 12
    @context.eval("specific2.FIRST().rows[2].values[0].id").must_equal 15

    @context.eval("specific3.FIRST().rows.length").must_equal 1
    @context.eval("specific4.FIRST().rows.length").must_equal 0

    ###
    ##### MOST RECENT
    ###

    @context.eval("specific1.RECENT().rows.length").must_equal 3
    @context.eval("specific1.RECENT().rows[0].tempValue.id").must_equal 10
    @context.eval("specific1.RECENT().rows[1].tempValue.id").must_equal 13
    @context.eval("specific1.RECENT().rows[2].tempValue.id").must_equal 15
    
    @context.eval("specific2.RECENT().rows.length").must_equal 3
    @context.eval("specific2.RECENT().rows[0].values[0].id").must_equal 10
    @context.eval("specific2.RECENT().rows[1].values[0].id").must_equal 13
    @context.eval("specific2.RECENT().rows[2].values[0].id").must_equal 15

    @context.eval("specific3.RECENT().rows.length").must_equal 1
    @context.eval("specific4.RECENT().rows.length").must_equal 0

    
  end
  
end