optimus-ep 0.5

data/spec/excel_parser_spec.rb

@@ -0,0 +1,26 @@
+# Part of the Optimus package for managing E-Prime data
+# 
+# Copyright (C) 2008 Board of Regents of the University of Wisconsin System
+# 
+# Written by Nathan Vack <njvack@wisc.edu>, at the Waisman Laborotory for Brain
+# Imaging and Behavior, University of Wisconsin - Madison
+
+require File.join(File.dirname(__FILE__),'spec_helper')
+require File.join(File.dirname(__FILE__), '../lib/eprime')
+include EprimeTestHelper
+
+describe Eprime::Reader::ExcelParser do
+  
+  # We don't need to do much here; the superclass handles almost everything
+  
+  before :each do
+    @file = File.open(EXCEL_FILE, 'r')
+    @reader = Eprime::Reader::ExcelParser.new(@file)
+  end
+  
+  it "should read the sample excel file" do
+    lambda {
+      @reader.to_eprime
+    }.should_not raise_error
+  end
+end

data/spec/log_file_parser_spec.rb

@@ -0,0 +1,156 @@
+# Part of the Optimus package for managing E-Prime data
+# 
+# Copyright (C) 2008 Board of Regents of the University of Wisconsin System
+# 
+# Written by Nathan Vack <njvack@wisc.edu>, at the Waisman Laborotory for Brain
+# Imaging and Behavior, University of Wisconsin - Madison
+
+require File.join(File.dirname(__FILE__),'spec_helper')
+require File.join(File.dirname(__FILE__), '../lib/eprime')
+include EprimeTestHelper
+
+
+
+describe Eprime::Reader::LogfileParser do
+  describe "parsing a good file" do
+    before :each do
+      @file = File.open(LOG_FILE, 'r')
+      @reader = Eprime::Reader::LogfileParser.new(@file)
+      @reader.make_frames!
+    end
+  
+    it "should create six frames from the example file" do
+      @reader.frames.size.should == 6
+    end
+  
+    it "should have data in every frame" do
+      @reader.frames.detect{ |c| c.keys.size == 0}.should be_nil
+    end
+  
+    it "should have a level 3 frame at the start" do
+      @reader.frames.first.level.should == 3
+    end
+  
+    it "should have a level 1 frame at the end" do
+      @reader.frames.last.level.should == 1
+    end
+  
+    it "should have a known TypeA key in first frame" do
+      @reader.frames.first["TypeA"].should_not be_nil
+    end
+  
+    it "should not have a known Gibberish key in first frame" do
+      @reader.frames.first["Gibberish"].should be_nil
+    end
+  
+    it "should have a known RandomSeed key in last frame" do
+      @reader.frames.last["RandomSeed"].should_not be_nil
+    end
+  
+    it "should not have a known StartR.OnsetTime key in last frame" do
+      @reader.frames.last["StartR.OnsetTime"].should be_nil
+    end
+    
+    it "should read levels from the header" do
+      @reader.levels.should include("Session")
+    end
+    
+    it "should find a top_level of 3" do
+      @reader.top_level.should == 3
+    end
+    
+    it "should have three top frames" do
+      @reader.top_frames.length.should == 3
+    end
+  
+    it "should have a parent in the first frame" do
+      @reader.frames.first.parent.should_not be_nil
+    end
+  
+    describe "making eprime data" do
+      before :each do
+        @eprime = @reader.to_eprime
+      end
+    
+      it "should generate three rows from the example file" do
+        @eprime.length.should == 3
+      end
+      
+      it "should ignore extra colons in input data" do
+        @eprime.first['SessionTime'].should == '11:11:11'
+      end
+    
+      it "should append level name to ambiguous columns" do
+        @eprime.columns.should include("CarriedVal[Session]")
+      end
+      
+      it "should not include ambiguous columns without level name" do
+        @eprime.columns.should_not include("CarriedVal")
+      end
+      
+      it "should mark ambiguous columns for skip" do
+        @reader.skip_columns.should include("CarriedVal")
+      end
+    
+      it "should include columns from level 2 and level 1 frames" do
+        @eprime.columns.should include("RandomSeed")
+        @eprime.columns.should include("BlockTitle")
+      end
+      
+      it "should rename Experiment to ExperimentName" do
+        @eprime.columns.should include("ExperimentName")
+        @eprime.columns.should_not include("Experiment")
+      end
+    
+      it "should compute task counters" do
+        @eprime.first["Block"].should == 1
+        @eprime.last["Block"].should == 2
+        @eprime.last["Trial"].should == 2
+      end
+    
+      it "should have a counter column" do
+        @eprime.columns.should include("Trial")
+      end
+    end
+  end
+  
+  describe "with sorted columns" do
+    before :each do
+      @file = File.open(LOG_FILE, 'r')
+      @reader = Eprime::Reader::LogfileParser.new(@file, :columns => STD_COLUMNS)
+      @reader.make_frames!
+      @eprime = @reader.to_eprime
+    end
+    
+    after :each do
+      @file.close
+    end
+    
+    it "should have ExperimentName first" do
+      @eprime.columns.first.should == "ExperimentName"
+    end
+    
+    it "should have three rows" do
+      @eprime.length.should == 3
+    end
+    
+    
+  end
+  
+  describe "parsing bad files" do
+    before :each do
+      @file = File.open(CORRUPT_LOG_FILE, 'r')
+      @reader = Eprime::Reader::LogfileParser.new(@file)
+    end
+    after :each do
+      @file.close
+    end
+    
+    it "should throw an error when the last frame is not closed" do
+      lambda {@reader.make_frames!}.
+        should raise_error(Eprime::DamagedFileError)
+    end
+    
+  end
+  
+end

data/spec/row_filter_spec.rb

@@ -0,0 +1,32 @@
+# Part of the Optimus package for managing E-Prime data
+# 
+# Copyright (C) 2008 Board of Regents of the University of Wisconsin System
+# 
+# Written by Nathan Vack <njvack@wisc.edu>, at the Waisman Laborotory for Brain
+# Imaging and Behavior, University of Wisconsin - Madison
+
+require File.join(File.dirname(__FILE__),'spec_helper')
+require File.join(File.dirname(__FILE__), '../lib/eprime')
+require 'row_filter'
+include EprimeTestHelper
+
+describe Eprime::RowFilter do
+  before :each do
+    @edata = mock_edata
+  end
+  
+  it "should allow filtering based on a proc" do
+    filter = Eprime::RowFilter.new(@edata, lambda { |row| !row['sparse'].to_s.empty? })
+    filter.each do |row|
+      row['sparse'].to_s.should_not be_empty
+    end
+  end
+  
+  it "should filter based on column equal test" do
+    filter = Eprime::RowFilter.new(@edata, ['run_start', 'equals', 2400])
+    filter.to_a.size.should_not == 0
+    filter.each do |row|
+      row['run_start'].should == '2400'
+    end
+  end
+end

data/spec/samples/bad_excel_tsv.txt

@@ -0,0 +1,4 @@
+/path/to/my_test
+ExperimentName	Subject	Session	RFP.StartTime	BlockTitle	PeriodA	CarriedVal[Session]	BlockList	Trial	NameOfPeriodList	NumPeriods	PeriodB	Procedure[Block]	Block	Group	CarriedVal[Block]	BlockList.Sample	SessionTime	Clock.Scale	BlockList.Cycle	Stim1.OnsetTime	CarriedVal[Trial]	Display.RefreshRate	Running[Block]	StartDelay	CarriedVal	Stim1.OffsetTime	Running[Trial]	ScanStartTime	Periods	TypeA	BlockElapsed	RFP.LastPulseTime	BlockTime	Procedure[Trial]	SessionDate	TypeB	Procedure	StartTime	RandomSeed	Running
+optimus_test	1	1	15000	My Task	10000	SessionLevel	1	1	TestList	3	10000	testBlocProc	1	1	BlockLevel	1	11	1	1	88684	TrialLevel	60.000	TestBlockList	0	TrialLevel	93583	TestList	11	2	Danger	300000	15000	15000	RunTrial	03-15-2008	2	RunTrial	5000	1123581321	TestList
+optimus_test	1	1	305000	My Task	10000	SessionLevel	1	1	TestList	3

data/spec/samples/corrupt_log_file.txt

@@ -0,0 +1,116 @@
+*** Header Start ***
+VersionPersist: 1
+LevelName: Session
+LevelName: Block
+LevelName: Trial
+LevelName: SubTrial
+LevelName: LogLevel5
+LevelName: LogLevel6
+LevelName: LogLevel7
+LevelName: LogLevel8
+LevelName: LogLevel9
+LevelName: LogLevel10
+Experiment: test_gng_v1
+SessionDate: 11-11-2006
+SessionTime: 15:11:37
+RandomSeed: -1148015259
+Group: 1
+Subject: 043
+Session: 043
+Display.RefreshRate: 60.365
+*** Header End ***
+	Level: 2
+	*** LogFrame Start ***
+	BlockList: 1
+	NoGoTypeA: Fear
+	NoGoTypeB: 2
+	blocknumb: 1
+	shapeface: faces of all expressions
+	Procedure: RunTrial
+	BlockList.Cycle: 1
+	BlockList.Sample: 1
+	Running: BlockList
+	StartTime: 5000
+	FixTime: 20000
+	InstTime: 5000
+	StartR.OnsetTime: 64697
+	StartR.OffsetTime: 68683
+	FixatRun.OnsetTime: 68739
+	FixatRun.OffsetTime: 88583
+	NoGoInstruct.OnsetTime: 88684
+	NoGoInstruct.OffsetTime: 93583
+	InitITI.OnsetTime: 93687
+	InitITI.OffsetTime: 96083
+	*** LogFrame End ***
+	Level: 2
+	*** LogFrame Start ***
+	BlockList: 2
+	NoGoTypeA: Fear
+	NoGoTypeB: 2
+	blocknumb: 1
+	shapeface: 
+	Procedure: StimProc
+	StimList1: 1
+	StimTypeA: Anger
+	StimTypeB: 2
+	gonogo: Fear2
+	ITI_Run: 3300
+	Code: 14
+	BlockList.Cycle: 1
+	BlockList.Sample: 2
+	Running: BlockList
+	StimTime: 500
+	StimPresent.OnsetDelay: 6
+	StimPresent.OnsetTime: 96189
+	StimPresent.DurationError: -6
+	StimPresent.OffsetTime: 96583
+	StimPresent.RTTime: 0
+	StimPresent.ACC: 1
+	StimPresent.RT: 0
+	StimPresent.RESP: 
+	StimPresent.CRESP: 
+	ITIFixat.OnsetTime: 96686
+	ITIFixat.OffsetTime: 99883
+	TrialType: Go
+	*** LogFrame End ***
+	Level: 2
+	*** LogFrame Start ***
+	BlockList: 2
+	NoGoTypeA: Fear
+	NoGoTypeB: 2
+	blocknumb: 1
+	shapeface: 
+	Procedure: StimProc
+	StimList1: 2
+	StimTypeA: Fear
+	StimTypeB: 2
+	gonogo: Fear2
+	ITI_Run: 2600
+	Code: 15
+	BlockList.Cycle: 1
+	BlockList.Sample: 3
+	Running: BlockList
+	StimTime: 500
+	StimPresent.OnsetDelay: -1
+	StimPresent.OnsetTime: 99982
+	StimPresent.DurationError: 1
+	StimPresent.OffsetTime: 100383
+	StimPresent.RTTime: 0
+	StimPresent.ACC: 1
+	StimPresent.RT: 0
+	StimPresent.RESP: 
+	StimPresent.CRESP: 
+	ITIFixat.OnsetTime: 100496
+	ITIFixat.OffsetTime: 102983
+	TrialType: NoGo
+	*** LogFrame End ***
+Level: 1
+*** LogFrame Start ***
+Experiment: test_gng_v1
+SessionDate: 11-11-2006
+SessionTime: 15:11:37
+RandomSeed: -1148015259
+Group: 1
+Subject: 043
+Session: 043
+Display.RefreshRate: 60.365

data/spec/samples/eprime_tsv.txt

@@ -0,0 +1,7 @@
+STRING	INTEGER	INTEGER	INTEGER	STRING	STRING	STRING	STRING	INTEGER	STRING	STRING	STRING	STRING	INTEGER	STRING	STRING	STRING	STRING	STRING	STRING	STRING	STRING	STRING	STRING	STRING	STRING	STRING	STRING	STRING	STRING	STRING	STRING	STRING	STRING	STRING	STRING	STRING	STRING
+EXPNAME	SUBJECT	SESSION	LOG_LEVEL	VARIABLE	VARIABLE	VARIABLE	VARIABLE	LOG_LEVEL	VARIABLE	VARIABLE	VARIABLE	VARIABLE	LOG_LEVEL	VARIABLE	VARIABLE	VARIABLE	VARIABLE	VARIABLE	VARIABLE	VARIABLE	VARIABLE	VARIABLE	VARIABLE	VARIABLE	VARIABLE	VARIABLE	VARIABLE	VARIABLE	VARIABLE	VARIABLE	VARIABLE	VARIABLE	VARIABLE	VARIABLE	VARIABLE	VARIABLE	VARIABLE
+1	1	1	2	2	2	2	2	2	2	2	2	2	2	2	2	2	2	2	2	2	2	2	2	2	2	2	2	2	2	2	2	2	2	2	2	2	2
+ExperimentName	Subject	Session	RFP.StartTime	BlockTitle	PeriodA	CarriedVal[Session]	BlockList	Trial	NameOfPeriodList	NumPeriods	PeriodB	Procedure[Block]	Block	Group	CarriedVal[Block]	BlockList.Sample	SessionTime	Clock.Scale	BlockList.Cycle	Stim1.OnsetTime	CarriedVal[Trial]	Display.RefreshRate	Running[Block]	StartDelay	Stim1.OffsetTime	Running[Trial]	ScanStartTime	Periods	TypeA	BlockElapsed	RFP.LastPulseTime	BlockTime	Procedure[Trial]	SessionDate	TypeB	StartTime	RandomSeed
+optimus_test	1	1	15000	My Task	10000	SessionLevel	1	1	TestList	3	10000	testBlocProc	1	1	BlockLevel	1	11	1	1	88684	TrialLevel	60	TestBlockList	0	93583	TestList	11	2	Danger	300000	15000	15000	RunTrial	3/15/08	2	5000	1123581321
+optimus_test	1	1	305000	My Task	10000	SessionLevel	1	1	TestList	3	10000	testBlocProc	2	1	BlockLevel	1	11	1	1	99999	TrialLevel	60	TestBlockList	0	111111	TestList	11	2	Fear	300000	305000	15000	RunTrial	3/15/08	1	5000	1123581321
+optimus_test	1	1	305000	My Task	10000	SessionLevel	1	2	TestList	3	10000	testBlocProc	2	1	BlockLevel	1	11	1	2	122222	TrialLevel	60	TestBlockList	0	133333	TestList	11	2	Loathing	300000	305000	15000	RunTrial	3/15/08	1	5000	1123581321

data/spec/samples/excel_tsv.txt

@@ -0,0 +1,5 @@
+/path/to/my_test
+ExperimentName	Subject	Session	RFP.StartTime	BlockTitle	PeriodA	CarriedVal[Session]	BlockList	Trial	NameOfPeriodList	NumPeriods	PeriodB	Procedure[Block]	Block	Group	CarriedVal[Block]	BlockList.Sample	SessionTime	Clock.Scale	BlockList.Cycle	Stim1.OnsetTime	CarriedVal[Trial]	Display.RefreshRate	Running[Block]	StartDelay	Stim1.OffsetTime	Running[Trial]	ScanStartTime	Periods	TypeA	BlockElapsed	RFP.LastPulseTime	BlockTime	Procedure[Trial]	SessionDate	TypeB	StartTime	RandomSeed
+optimus_test	1	1	15000	My Task	10000	SessionLevel	1	1	TestList	3	10000	testBlocProc	1	1	BlockLevel	1	11	1	1	88684	TrialLevel	60	TestBlockList	0	93583	TestList	11	2	Danger	300000	15000	15000	RunTrial	3/15/08	2	5000	1123581321
+optimus_test	1	1	305000	My Task	10000	SessionLevel	1	1	TestList	3	10000	testBlocProc	2	1	BlockLevel	1	11	1	1	99999	TrialLevel	60	TestBlockList	0	111111	TestList	11	2	Fear	300000	305000	15000	RunTrial	3/15/08	1	5000	1123581321
+optimus_test	1	1	305000	My Task	10000	SessionLevel	1	2	TestList	3	10000	testBlocProc	2	1	BlockLevel	1	11	1	2	122222	TrialLevel	60	TestBlockList	0	133333	TestList	11	2	Loathing	300000	305000	15000	RunTrial	3/15/08	1	5000	1123581321

data/spec/samples/optimus_log.txt

@@ -0,0 +1,110 @@
+*** Header Start ***
+VersionPersist: 1
+LevelName: Session
+LevelName: Block
+LevelName: Trial
+LevelName: SubTrial
+LevelName: LogLevel5
+LevelName: LogLevel6
+LevelName: LogLevel7
+LevelName: LogLevel8
+LevelName: LogLevel9
+LevelName: LogLevel10
+Experiment: optimus_test
+SessionDate: 03-15-2008
+SessionTime: 11:11:11
+RandomSeed: 1123581321
+Group: 1
+Subject: 1
+Session: 1
+Display.RefreshRate: 60.000
+*** Header End ***
+		Level: 3
+		*** LogFrame Start ***
+		BlockList: 1
+		TypeA: Danger
+		TypeB: 2
+		Procedure: RunTrial
+		BlockList.Cycle: 1
+		BlockList.Sample: 1
+		Running: TestList
+		StartTime: 5000
+		Stim1.OnsetTime: 88684
+		Stim1.OffsetTime: 93583
+		CarriedVal: TrialLevel
+		*** LogFrame End ***
+	Level: 2
+	*** LogFrame Start ***
+	BlockTitle: My Task
+	NameOfPeriodList: TestList
+	Periods: 2
+	StartDelay: 0
+	Procedure: testBlocProc
+	Running: TestBlockList
+	ScanStartTime: 11:11:11
+	BlockTime: 15000
+	RFP.StartTime: 15000
+	RFP.LastPulseTime: 15000
+	BlockElapsed: 300000
+	CarriedVal: BlockLevel
+	*** LogFrame End ***
+		Level: 3
+		*** LogFrame Start ***
+		BlockList: 1
+		TypeA: Fear
+		TypeB: 1
+		Procedure: RunTrial
+		BlockList.Cycle: 1
+		BlockList.Sample: 1
+		Running: TestList
+		StartTime: 5000
+		Stim1.OnsetTime: 99999
+		Stim1.OffsetTime: 111111
+		CarriedVal: TrialLevel
+		*** LogFrame End ***
+		Level: 3
+		*** LogFrame Start ***
+		BlockList: 1
+		TypeA: Loathing
+		TypeB: 1
+		Procedure: RunTrial
+		BlockList.Cycle: 2
+		BlockList.Sample: 1
+		Running: TestList
+		StartTime: 5000
+		Stim1.OnsetTime: 122222
+		Stim1.OffsetTime: 133333
+		CarriedVal: TrialLevel
+		*** LogFrame End ***
+	Level: 2
+	*** LogFrame Start ***
+	BlockTitle: My Task
+	NameOfPeriodList: TestList
+	Periods: 2
+	StartDelay: 0
+	Procedure: testBlocProc
+	Running: TestBlockList
+	ScanStartTime: 11:11:11
+	BlockTime: 15000
+	RFP.StartTime: 305000
+	RFP.LastPulseTime: 305000
+	BlockElapsed: 300000
+	CarriedVal: BlockLevel
+	Block: 0
+	*** LogFrame End ***
+Level: 1
+*** LogFrame Start ***
+CarriedVal: SessionLevel
+Experiment: optimus_test
+SessionDate: 03-15-2008
+SessionTime: 11:11:11
+RandomSeed: 1123581321
+Group: 1
+Subject: 1
+Session: 1
+Display.RefreshRate: 60.000
+Clock.Scale: 1
+NumPeriods: 3 
+PeriodA: 10000 
+PeriodB: 10000 
+*** LogFrame End ***

data/spec/samples/short_columns.txt

@@ -0,0 +1 @@
+ExperimentName	StartDelay

data/spec/samples/sorted_columns.txt

@@ -0,0 +1 @@
+Block	BlockElapsed	BlockList	BlockList.Cycle	BlockList.Sample	BlockTime	BlockTitle	CarriedVal	CarriedVal[Block]	CarriedVal[Session]	CarriedVal[Trial]	Clock.Scale	Display.RefreshRate	ExperimentName	Group	NameOfPeriodList	NumPeriods	PeriodA	PeriodB	Periods	Procedure	Procedure[Block]	Procedure[Trial]	RFP.LastPulseTime	RFP.StartTime	RandomSeed	Running	Running[Block]	Running[Trial]	ScanStartTime	Session	SessionDate	SessionTime	StartDelay	StartTime	Stim1.OffsetTime	Stim1.OnsetTime	Subject	Trial	TypeA	TypeB

data/spec/samples/std_columns.txt

@@ -0,0 +1 @@
+ExperimentName	Subject	Session	RFP.StartTime	BlockTitle	PeriodA	CarriedVal[Session]	BlockList	Trial	NameOfPeriodList	NumPeriods	PeriodB	Procedure[Block]	Block	Group	CarriedVal[Block]	BlockList.Sample	SessionTime	Clock.Scale	BlockList.Cycle	Stim1.OnsetTime	CarriedVal[Trial]	Display.RefreshRate	Running[Block]	StartDelay	CarriedVal	Stim1.OffsetTime	Running[Trial]	ScanStartTime	Periods	TypeA	BlockElapsed	RFP.LastPulseTime	BlockTime	Procedure[Trial]	SessionDate	TypeB	Procedure	StartTime	RandomSeed	Running

data/spec/samples/unknown_type.txt

@@ -0,0 +1,2 @@
+This file is unknown.
+It's definitely not an eprime file.

data/spec/samples/unreadable_file

@@ -0,0 +1 @@
+The spec should render this file chmod 000

data/spec/spec_helper.rb

@@ -0,0 +1,98 @@
+# Part of the Optimus package for managing E-Prime data
+# 
+# Copyright (C) 2008 Board of Regents of the University of Wisconsin System
+# 
+# Written by Nathan Vack <njvack@wisc.edu>, at the Waisman Laborotory for Brain
+# Imaging and Behavior, University of Wisconsin - Madison
+
+module EprimeTestHelper
+  unless constants.include?('SAMPLE_DIR')
+    SAMPLE_DIR = File.join(File.dirname(__FILE__), 'samples')
+    LOG_FILE = File.join(SAMPLE_DIR, 'optimus_log.txt')
+    EXCEL_FILE = File.join(SAMPLE_DIR, 'excel_tsv.txt')
+    BAD_EXCEL_FILE = File.join(SAMPLE_DIR, 'bad_excel_tsv.txt')
+    EPRIME_FILE = File.join(SAMPLE_DIR, 'eprime_tsv.txt')
+    UNKNOWN_FILE = File.join(SAMPLE_DIR, 'unknown_type.txt')
+    UNREADABLE_FILE = File.join(SAMPLE_DIR, 'unreadable_file')
+    CORRUPT_LOG_FILE = File.join(SAMPLE_DIR, 'corrupt_log_file.txt')
+    
+    
+    STD_COLUMNS = ["ExperimentName", "Subject", "Session", "RFP.StartTime", "BlockTitle", "PeriodA", "CarriedVal[Session]", "BlockList", "Trial", 
+    "NameOfPeriodList", "NumPeriods", "PeriodB", "Procedure[Block]", "Block", "Group", 
+    "CarriedVal[Block]", "BlockList.Sample", "SessionTime", "Clock.Scale", "BlockList.Cycle", 
+    "Stim1.OnsetTime", "CarriedVal[Trial]", "Display.RefreshRate", "Running[Block]", 
+    "StartDelay", "Stim1.OffsetTime", "Running[Trial]", "ScanStartTime", 
+    "Periods", "TypeA", "BlockElapsed", "RFP.LastPulseTime", "BlockTime", "Procedure[Trial]", 
+    "SessionDate", "TypeB", "StartTime", "RandomSeed"]
+    
+    SORTED_COLUMNS = STD_COLUMNS.sort
+    
+    SHORT_COLUMNS = ["ExperimentName", "Subject"]
+
+    CONST_EXPRS = {
+      :const            => ["1",        lambda { 1 }],
+      :add              => ["1+3",      lambda { 1+3 }],
+      :mul              => ["2*4",      lambda { 2*4 }],
+      :add_neg          => ["4 + -5",   lambda { 4 + -5 }],
+      :add_mul_group    => ["4*(3+2)",  lambda { 4*(3+2) }],
+      :fdiv             => ["9/2.0",    lambda { 9/2.0 }],
+      :fmul             => ["0.44*10",  lambda { 0.44*10 }],
+      :mod              => ["10 % 4",   lambda { 10 % 4}]
+    }
+    
+    COMP_EXPRS = {
+      'stim_offset'     => '{stim_time} - {run_start}',
+      'stim_offset_s'   => '{stim_offset}/1000'
+    }
+
+  end
+  
+  
+  def mock_eprime(col_count, row_count)
+    data = Eprime::Data.new()
+    1.upto(row_count) do |rownum|
+      row = data.add_row
+      1.upto(col_count) do |colnum|
+        unless (rownum == row_count and colnum > 1)
+          # Leave some blanks in the last row
+          row["col_#{colnum}"] = "c_#{colnum}_r_#{rownum}"
+        end
+      end
+    end
+    return data
+  end
+  
+  def mock_edata
+    data = Eprime::Data.new()
+    row = data.add_row
+    row['stim_time'] = '3188'
+    row['run_start'] = '2400'
+    row = data.add_row
+    row['stim_time'] = '4515'
+    row['run_start'] = '2400'
+    row['sparse'] = '20'
+    row = data.add_row
+    row['stim_time'] = '6515'
+    row['run_start'] = '2400'
+    row = data.add_row
+    row['stim_time'] = '8115'
+    row['run_start'] = '2400'
+    row['sparse'] = '50'
+    row = data.add_row
+    row['stim_time'] = '9815'
+    row['run_start'] = '2400'
+    row = data.add_row
+    row['stim_time'] = '12515'
+    row['run_start'] = '2800'
+    return data
+  end
+  
+  def es(sym)
+    CONST_EXPRS[sym][0]
+  end
+  
+  def ev(sym)
+    CONST_EXPRS[sym][1].call.to_s
+  end
+  
+end

data/spec/tabfile_parser_spec.rb

@@ -0,0 +1,62 @@
+# Part of the Optimus package for managing E-Prime data
+# 
+# Copyright (C) 2008 Board of Regents of the University of Wisconsin System
+# 
+# Written by Nathan Vack <njvack@wisc.edu>, at the Waisman Laborotory for Brain
+# Imaging and Behavior, University of Wisconsin - Madison
+
+require File.join(File.dirname(__FILE__),'spec_helper')
+require File.join(File.dirname(__FILE__), '../lib/eprime')
+include EprimeTestHelper
+
+
+shared_examples_for "Eprime::Reader::TabfileParser with sample data" do
+  it "should generate and Eprime::Data object" do
+    @eprime.should be_an_instance_of(Eprime::Data)
+  end
+
+  it "should have columns matching the test set" do
+    @eprime.columns.sort.should == STD_COLUMNS.sort
+  end
+
+  it "should contain three rows" do
+    @eprime.length.should == 3
+  end
+end
+
+describe Eprime::Reader::TabfileParser do
+  
+  describe "without column order specified" do
+    before :each do
+      @file = File.open(EXCEL_FILE, 'r')
+      @reader = Eprime::Reader::TabfileParser.new(@file, :skip_lines => 1)
+      @eprime = @reader.to_eprime
+    end
+    
+    it_should_behave_like "Eprime::Reader::TabfileParser with sample data"
+  end
+  
+  describe "with column order specified" do
+    before :each do
+      @file = File.open(EXCEL_FILE, 'r')
+      @reader = Eprime::Reader::TabfileParser.new(@file, :skip_lines => 1, :columns => SORTED_COLUMNS)
+      @eprime = @reader.to_eprime
+    end
+   
+    it_should_behave_like "Eprime::Reader::TabfileParser with sample data"
+    
+  end
+  
+  describe "with data missing from some rows" do
+    before :each do
+      @file = File.open(BAD_EXCEL_FILE, 'r')
+      @reader = Eprime::Reader::TabfileParser.new(@file, :skip_lines => 1)
+    end
+    
+    it "should raise an error when parsing" do
+      lambda {
+        @reader.to_eprime
+      }.should raise_error(Eprime::DamagedFileError)
+    end
+  end
+end