brevity 0.4.0

data/spec/parsing/note/note_nodes_spec.rb

@@ -0,0 +1,82 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+describe RestNoteNode do
+  {
+    '/2' => Note.new(Rational(1,2)),
+    '4/2' => Note.new(Rational(4,2)),
+    '28' => Note.new(Rational(28,1)),
+    '56/33' => Note.new(Rational(56,33)),
+  }.each do |str,tgt|
+    res = NOTE_PARSER.parse(str)
+    context str do
+      it 'should parse as RestNoteNode' do
+        res.should be_a RestNoteNode
+      end
+
+      describe '#to_note' do
+        n = res.to_note
+        it 'should produce a Note' do
+          n.should be_a Note
+        end
+        
+        it 'should produce value matching input str' do
+          n.should eq tgt
+        end
+      end
+    end
+  end
+end
+
+describe MonophonicNoteNode do
+  {
+    '/2C2=C2' => Note.new(Rational(1,2),[C2],links:{C2=>Link::Slur.new(C2)}),
+    '4/2D#6^' => Note.new(Rational(4,2),[Eb6],accent:Accent::Martellato.new),
+    '28Eb7>' => Note.new(Rational(28,1),[Eb7],accent:Accent::Marcato.new),
+    '56/33B1.' => Note.new(Rational(56,33),[B1],accent:Accent::Staccato.new),
+  }.each do |str,tgt|
+    res = NOTE_PARSER.parse(str)
+    context str do
+      it 'should parse as MonophonicNoteNode' do
+        res.should be_a MonophonicNoteNode
+      end
+
+      describe '#to_note' do
+        n = res.to_note
+        it 'should produce a Note' do
+          n.should be_a Note
+        end
+        
+        it 'should produce value matching input str' do
+          n.should eq tgt
+        end
+      end
+    end
+  end
+end
+
+describe PolyphonicNoteNode do
+  {
+    '/2C2,D2,E2-F2' => Note.new(Rational(1,2),[C2,D2,E2],links:{E2=>Link::Legato.new(F2)}),
+    '4/2D#6,G4' => Note.new(Rational(4,2),[Eb6,G4]),
+    '28Eb7,D7,G7_' => Note.new(Rational(28,1),[Eb7,D7,G7],accent:Accent::Tenuto.new),
+    '56/33B1,B2,B3,B4,B5' => Note.new(Rational(56,33),[B1,B2,B3,B4,B5]),
+  }.each do |str,tgt|
+    res = NOTE_PARSER.parse(str)
+    context str do
+      it 'should parse as PolyphonicNoteNode' do
+        res.should be_a PolyphonicNoteNode
+      end
+
+      describe '#to_note' do
+        n = res.to_note
+        it 'should produce a Note' do
+          n.should be_a Note
+        end
+        
+        it 'should produce value matching input str' do
+          n.should eq tgt
+        end
+      end
+    end
+  end
+end

data/spec/parsing/note/note_spec.rb

@@ -0,0 +1,188 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+describe NoteParser do
+  before :all do
+    @parser = NoteParser.new
+    @valid = {
+      :numbers => [1,5,50,3999,01,0010,0000005050],
+      :links => ["=","-","~","/"],
+      :accents => [".","'",">","^","_",""],
+      :pitch_classes => ["A","B","C","D","E","F","G"],
+      :accidentals => ["\#","b",""],
+      :octaves => [0,1,2,3,4,5,6,7,8,9],
+    }
+    
+    @invalid = {
+      :numbers => [0,00],
+      :links => ["{",";"],
+      :accents => ["*","&"],
+      :pitch_classes => ["H","Z"],
+      :accidentals => ["$"],
+      :octaves => [-1,10],
+    }
+    
+    @valid[:pitches] = []
+    @valid[:pitch_classes].each do |pc|
+      @valid[:accidentals].each do |a|
+        @valid[:octaves].each do |o|
+          @valid[:pitches].push "#{pc}#{a}#{o}"
+        end
+      end
+    end
+
+    @invalid[:pitches] = []
+    @invalid[:pitch_classes].each do |pc|
+      @valid[:accidentals].each do |a|
+        @valid[:octaves].each do |o|
+          @invalid[:pitches].push "#{pc}#{a}#{o}"
+        end
+      end
+    end
+    @valid[:pitch_classes].each do |pc|
+      @invalid[:accidentals].each do |a|
+        @valid[:octaves].each do |o|
+          @invalid[:pitches].push "#{pc}#{a}#{o}"
+        end
+      end
+    end
+    @valid[:pitch_classes].each do |pc|
+      @valid[:accidentals].each do |a|
+        @invalid[:octaves].each do |o|
+          @invalid[:pitches].push "#{pc}#{a}#{o}"
+        end
+      end
+    end
+    @invalid[:pitch_classes].each do |pc|
+      @invalid[:accidentals].each do |a|
+        @valid[:octaves].each do |o|
+          @invalid[:pitches].push "#{pc}#{a}#{o}"
+        end
+      end
+    end
+    @invalid[:pitch_classes].each do |pc|
+      @valid[:accidentals].each do |a|
+        @invalid[:octaves].each do |o|
+          @invalid[:pitches].push "#{pc}#{a}#{o}"
+        end
+      end
+    end
+    @valid[:pitch_classes].each do |pc|
+      @invalid[:accidentals].each do |a|
+        @invalid[:octaves].each do |o|
+          @invalid[:pitches].push "#{pc}#{a}#{o}"
+        end
+      end
+    end
+    #puts @valid[:pitches]
+  end
+  
+  context "note duration only" do
+    it 'should parse' do
+      @parser.parse("1/4").should_not be nil
+    end
+  end
+
+  context 'duration and one pitch' do
+    context 'valid pitch' do
+      context 'without link marker' do
+        it 'should parse' do
+          @valid[:pitches].each do |pitch|
+            str = "1/4#{pitch}"
+            @parser.parse(str).should_not be nil
+          end
+        end
+      end
+      
+      context 'with link marker' do
+        context 'link marker is valid' do
+          it 'should parse' do
+            @valid[:pitches].each do |pitch|
+              @valid[:links].each do |link|
+                str = "1/4#{pitch}#{link}#{pitch}"
+                @parser.parse(str).should_not be nil
+              end
+            end
+          end
+        end
+
+        context 'link marker is not valid' do
+          it 'should not parse' do
+            @valid[:pitches].each do |pitch|
+              @invalid[:links].each do |link|
+                str = "1/4#{pitch}#{link}#{pitch}"
+                @parser.parse(str).should be nil
+              end
+            end
+          end
+        end
+      end
+    end
+
+    context 'invalid pitch' do
+      context 'without link marker' do
+        it 'should parse' do
+          @invalid[:pitches].each do |pitch|
+            str = "1/4#{pitch}"
+            @parser.parse(str).should be nil
+          end
+        end
+      end
+      
+      context 'with link marker' do
+        it 'should not parse' do
+          @invalid[:pitches].each do |pitch|
+            @valid[:links].each do |link|
+              str = "1/4#{pitch}#{link}#{pitch}"
+              @parser.parse(str).should be nil
+            end
+          end
+        end
+      end
+    end    
+  end
+
+  context 'duration and multiple pitches' do
+    context 'all valid pitches' do
+      context 'without links' do
+        it 'should parse' do
+          str = "4/" + @valid[:pitches].join(",")
+          @parser.parse(str).should_not be nil
+        end
+      end
+      
+      context 'with link marker' do
+        context 'link marker is valid' do
+          it 'should parse' do
+            @valid[:links].each do |link|
+              str = "4/" + @valid[:pitches].join("#{link}C4,")
+              @parser.parse(str).should_not be nil
+            end
+          end
+        end
+
+        context 'link marker is not valid' do
+          it 'should not parse' do
+            @invalid[:links].each do |link|
+              str = "4/" + @valid[:pitches].join("#{link}C4,")
+              @parser.parse(str).should be nil
+            end
+          end
+        end
+      end
+    end
+
+    context 'one invalid pitch' do
+      it 'should not parse' do
+        str = "4/" + ([@invalid[:pitches][0]] + @valid[:pitches]).join(",")
+        @parser.parse(str).should be nil
+      end
+    end    
+
+    context 'all invalid pitches' do
+      it 'should not parse' do
+        str = "4/" + @invalid[:pitches].join(",")
+        @parser.parse(str).should be nil
+      end
+    end    
+  end  
+end

data/spec/parsing/note/pitch_node_spec.rb

@@ -0,0 +1,48 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+  
+describe 'String#to_pitch' do
+  it 'should create a Pitch object that matches the musical note' do
+    {
+      "Ab2" => Pitch.new(octave: 2, semitone: 8),
+      "C0" => Pitch.new(octave: 0, semitone: 0),
+      "db4" => Pitch.new(octave: 4, semitone: 1),
+      "F#12" => Pitch.new(octave: 12, semitone: 6),
+      "E#7" => Pitch.new(octave: 7, semitone: 5),
+      "G9" => Pitch.new(octave: 9, semitone: 7),
+      "Bb10" => Pitch.new(octave: 10, semitone: 10),
+    }.each do |str, expected_pitch|
+      str.to_pitch.should eq(expected_pitch)
+    end
+  end
+end
+
+describe PitchNode do
+  parser = PitchParser.new
+  
+  {
+    'C4' => C4,
+    'Db2' => Db2,
+    'C#2' => Db2,
+    'Db2' => Db2,
+    'F7' => F7,
+    'B1' => B1,
+  }.each do |str,tgt|
+    res = parser.parse(str)
+    context str do
+      it 'should parse as PitchNode' do
+        res.should be_a PitchNode
+      end
+      
+      describe '#to_pitch' do
+        p = res.to_pitch
+        it 'should produce a Pitch object' do
+          p.should be_a Pitch
+        end
+        
+        it 'should produce pitch matching input str' do
+          p.should eq tgt
+        end
+      end
+    end
+  end  
+end

data/spec/parsing/note/pitch_spec.rb

@@ -0,0 +1,23 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+describe PitchParser do
+  before :all do
+    @parser = PitchParser.new
+  end
+  
+  it 'should parse "C4"' do
+    @parser.parse("C4").should_not be nil
+  end
+  
+  it 'should parse "C#9"' do
+    @parser.parse("C#9").should_not be nil
+  end
+  
+  it 'should parse "Ab0"' do
+    @parser.parse("Ab0").should_not be nil
+  end
+  
+  it 'should parse "G#2"' do
+    @parser.parse("G#2").should_not be nil
+  end
+end

data/spec/parsing/numbers/nonnegative_integer_spec.rb

@@ -0,0 +1,11 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+describe NonnegativeIntegerParser do
+  parser = NonnegativeIntegerParser.new
+
+  ["1","50","05","502530","0"].each do |str|
+    it "should parse '#{str}'" do
+      parser.parse(str).should_not be nil
+    end
+  end
+end

data/spec/parsing/numbers/positive_integer_spec.rb

@@ -0,0 +1,17 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+describe PositiveIntegerParser do
+  parser = PositiveIntegerParser.new
+
+  ["1","50","05","502530"].each do |str|
+    it "should parse '#{str}'" do
+      parser.parse(str).should_not be nil
+    end
+  end
+
+  ["0"].each do |str|
+    it "should not parse '#{str}'" do
+      parser.parse(str).should be nil
+    end
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,112 @@
+require 'rspec'
+require 'brevity'
+
+include Brevity
+include Music::Transcription
+include Pitches
+
+RSpec::Matchers.define :parse do |str|
+  match do |parser|
+    !parser.parse(str).nil?
+  end
+end
+
+RSpec::Matchers.define :parse_as do |str,nodeclass|
+  match do |parser|
+    parser.parse(str).is_a?(nodeclass)
+  end
+end
+
+LABELS = ["riff","GUITAR2","_my_part_"]
+NOTES = {
+  '/2A7' => Note::Half.new([A7]),
+  '/4A3.' => Note::Quarter.new([A3],accent: Accent::Staccato.new),
+  '/2Bb2' => Note::Half.new([Bb2]),
+  '/2G2,C2-Eb3' => Note::Half.new([G2,C2],links: {C2=>Link::Legato.new(Eb3)}),
+  '1Eb3' => Note::Whole.new([Eb3]),
+}
+sequences = {}
+[2,3].each do |n|
+  NOTES.entries.permutation(n).each do |perm|
+    strs, notes = perm.transpose
+    sequences[strs.join(" ")] = notes
+  end
+end
+SEQUENCES = sequences
+
+MODIFIERS = {
+  :duplicate => {
+    ':1' => lambda {|primitives| primitives.clone },
+    ':2' => lambda {|primitives| primitives.clone + primitives.clone },
+    ':3' => lambda {|primitives| primitives.clone + primitives.clone + primitives.clone }
+  },
+  :stretch => {
+    '*1' => lambda {|primitives| primitives.clone },
+    '*3/2' => lambda do |primitives|
+      primitives.map {|p| p.respond_to?(:stretch) ? p.stretch('3/2'.to_r) : p }
+    end,
+    '*/4' => lambda do |primitives|
+      primitives.map {|p| p.respond_to?(:stretch) ? p.stretch('1/4'.to_r) : p }
+    end,
+    '=1' => lambda do |primitives|
+      duration = primitives.map do |p|
+        p.respond_to?(:duration) ? p.duration : 0
+      end.inject(0,:+)
+      ratio = 1 / duration
+      primitives.map {|p| p.respond_to?(:stretch) ? p.stretch(ratio) : p }
+    end,
+    '=/2' => lambda do |primitives|
+      duration = primitives.map do |p|
+        p.respond_to?(:duration) ? p.duration : 0
+      end.inject(0,:+)
+      ratio = Rational(1,2) / duration
+      primitives.map {|p| p.respond_to?(:stretch) ? p.stretch(ratio) : p }
+    end,
+    '=2/3' => lambda do |primitives|
+      duration = primitives.map do |p|
+        p.respond_to?(:duration) ? p.duration : 0
+      end.inject(0,:+)
+      ratio = Rational(2,3) / duration
+      primitives.map {|p| p.respond_to?(:stretch) ? p.stretch(ratio) : p }
+    end,
+  },
+  :transpose => {
+    '+0' => lambda {|primitives| primitives.clone },
+    '-0' => lambda {|primitives| primitives.clone },
+    '+4' => lambda do |primitives|
+      primitives.map {|p| p.respond_to?(:transpose) ? p.transpose(4) : p }
+    end,
+    '-4' => lambda do |primitives|
+      primitives.map {|p| p.respond_to?(:transpose) ? p.transpose(-4) : p }
+    end,
+    '+10' => lambda do |primitives|
+      primitives.map {|p| p.respond_to?(:transpose) ? p.transpose(10) : p }
+    end,
+    '-99' => lambda do |primitives|
+      primitives.map {|p| p.respond_to?(:transpose) ? p.transpose(-99) : p }
+    end
+  }
+}
+
+EXPR_PARSER = ExpressionParser.new
+DUR_PARSER = DurationParser.new
+NOTE_PARSER = NoteParser.new
+LABEL_PARSER = LabelParser.new
+COMMENT_PARSER = CommentParser.new
+COMMAND_PARSER = CommandParser.new
+FILE_PARSER = FileParser.new
+
+class CommandTester
+  include Commands
+  
+  attr_reader :env
+  def initialize
+    @env = {}
+    @env[ENV_START_TEMPO] = nil
+    @env[ENV_START_METER] = nil
+    @env[ENV_TEMPO_CHANGES] = {}
+    @env[ENV_METER_CHANGES] = {}
+    @env[ENV_EXPRS] = {}
+    @env[ENV_PARTS] = {}
+  end
+end