class TC_StreamAligner

# File test/test_stream_aligner.rb, line 7
def self.create_fixture
    logfile = Pocolog::Logfiles.create('test')
    all_values  = logfile.stream('all', 'int', true)
    odd_values  = logfile.stream('odd', 'int', true)
    even_values = logfile.stream('even', 'int', true)

    interleaved_data = []
    100.times do |i|
        all_values.write(Time.at(i * 1000), Time.at(i), i)
        interleaved_data << i
        if i % 2 == 0
            even_values.write(Time.at(i * 1000, 500), Time.at(i, 500), i * 100)
            interleaved_data << i * 100
        else
            odd_values.write(Time.at(i * 1000, 500), Time.at(i, 500), i * 10000)
            interleaved_data << i * 10000
        end
    end
    logfile.close
    interleaved_data
end

# File test/test_stream_aligner.rb, line 31
def setup
    @interleaved_data = TC_StreamAligner.create_fixture
    @logfile = Pocolog::Logfiles.open('test.0.log')
    @stream  = Pocolog::StreamAligner.new(false, logfile.stream('all'), logfile.stream('odd'), logfile.stream('even'))
end

# File test/test_stream_aligner.rb, line 37
def teardown
    FileUtils.rm_f 'test.0.log'
    FileUtils.rm_f 'test.0.idx'
end

# File test/test_stream_aligner.rb, line 48
def test_eof_is_a_valid_loop_termination_condition
    while !@stream.eof?
        index = stream.step
        assert index, "failed at #{stream.sample_index}"
    end
end

# File test/test_stream_aligner.rb, line 42
def test_properties
    assert !stream.eof?
    assert_equal 200, stream.size
    assert_equal [Time.at(0),Time.at(99,500)], stream.time_interval
end

# File test/test_stream_aligner.rb, line 118
def test_seek_at_position
    sample = stream.seek(10)
    assert_equal 10, stream.sample_index
    assert_equal Time.at(5), stream.time
    assert_equal [0, Time.at(5), 5], sample
    
    # Check that seeking did not break step / step_back
    assert_equal [1, Time.at(5, 500), 50000], stream.step
    assert_equal [0, Time.at(6), 6], stream.step
    assert_equal [2, Time.at(6, 500), 600], stream.step
    sample = stream.seek(10)
    assert_equal [2, Time.at(4, 500), 400], stream.step_back
    assert_equal [0, Time.at(4), 4], stream.step_back
    assert_equal [1, Time.at(3, 500), 30000], stream.step_back

    #check if seeking is working if index is not cached 
    #see INDEX_STEP
    sample = stream.seek(21)
    assert_equal 21, stream.sample_index
    assert_equal Time.at(10,500), stream.time
    assert_equal [2, Time.at(10,500), 1000], sample
end

# File test/test_stream_aligner.rb, line 151
def test_seek_at_time
    #no sample must have a later logical time
    #seek returns the last sample possible
    sample = stream.seek(Time.at(5))
    assert_equal 10, stream.sample_index
    assert_equal Time.at(5), stream.time
    assert_equal [0, Time.at(5), 5], sample

    # Check that seeking did not break step / step_back
    assert_equal [1, Time.at(5,500), 50000], stream.step
    assert_equal [0, Time.at(6), 6], stream.step
    assert_equal [2, Time.at(6, 500), 600], stream.step
    sample = stream.seek(Time.at(50))
    assert_equal [1, Time.at(49, 500), 490000], stream.step_back
    assert_equal [0, Time.at(49), 49], stream.step_back
    assert_equal [2, Time.at(48, 500), 4800], stream.step_back
end

# File test/test_stream_aligner.rb, line 74
def test_step_by_step_all_the_way
    2.times do
        stream_indexes, sample_indexes, all_data = Array.new, Array.new, Array.new
        while (data = stream.step) && (all_data.size <= interleaved_data.size * 2)
            stream_indexes  << data[0]
            sample_indexes << stream.sample_index
            all_data << data[2]
        end
        # verify that calling #step again is harmless
        assert !stream.step 
        assert stream.eof?
        assert_equal 200, stream.sample_index
        assert_equal interleaved_data, all_data
        assert_equal [[0, 2, 0, 1]].to_set, stream_indexes.each_slice(4).to_set
        assert_equal (0...200).to_a, sample_indexes

        # Now go back
        stream_indexes, sample_indexes, all_data = Array.new, Array.new, Array.new
        while (data = stream.step_back) && (all_data.size <= interleaved_data.size * 2)
            stream_indexes  << data[0]
            sample_indexes << stream.sample_index
            all_data << data[2]
        end
        
        assert_equal interleaved_data, all_data.reverse
        assert_equal [[0, 2, 0, 1]].to_set, stream_indexes.reverse.each_slice(4).to_set
        assert_equal (0...200).to_a, sample_indexes.reverse
    end
end

# File test/test_stream_aligner.rb, line 106
def test_step_by_step_middle
    assert_equal [0, Time.at(0), 0], stream.step
    assert_equal [2, Time.at(0, 500), 0], stream.step
    assert_equal [0, Time.at(1), 1], stream.step
    assert_equal [1, Time.at(1, 500), 10000], stream.step
    assert_equal [0, Time.at(1), 1], stream.step_back
    assert_equal [2, Time.at(0, 500), 0], stream.step_back
    assert_equal [0, Time.at(1), 1], stream.step
    assert_equal [1, Time.at(1, 500), 10000], stream.step
end

# File test/test_stream_aligner.rb, line 141
def test_step_to_eof
    stream.seek(197)
    assert_equal false, stream.eof?
    stream.step
    assert_equal false, stream.eof?
    stream.step
    assert_equal true, stream.eof?
end

# File test/test_stream_aligner.rb, line 55
def test_time_advancing
    cnt = 0
    last_time = nil
    while !@stream.eof?
        index, time, data = stream.step
        assert(!last_time || last_time < time)
        last_time = time
        cnt = cnt + 1
    end
    last_time = nil
    stream.step
    while cnt > 0
        index, time, data = stream.step_back()
        assert(!last_time || last_time > time)
        cnt = cnt - 1
        last_time = time
    end    
end